如何在 R 中使用“组”创建分段图表

Question

我有这样的数据集

又想画一个类似这样的分割图

这将是其中一个组的示例，因此基于数据集，我有 A 组和 B 组，我希望有两个分段图表显示所有组，每个组都有自己的分段图表来显示每个任务开始时间和结束时间，每个任务可能在每个组中出现多次。我有以下代码用于显示 A 组，对在同一张图表中的子图 B 组有什么建议吗？基本上是如何使用组列来完成图表。 现在图表混合了 A 组和 B 组，但我想将它们区分开来有两个单独的分段图表

category <- c('task1', 'task2', 'task2','task1','task1')
start_min <- c(0, 0, 16, 45, 40)
stop_min <- c(14.9,18.8,17.5,65.5, 70)
group <- c('A', 'B', 'A', 'A', 'B')
data <- data.frame(category,start_min,stop_min,group)



task_bars <- ggplot(data, mapping=aes(ymin=0, ymax=1,
                                      xmin=start_min, xmax=stop_min,
                                      fill=as.factor(category),
                                      text=paste("Task:", str_wrap(string = category, width = 70,),
                                                 "<br>Start: ", format(start_min, digits=1), "min", 
                                                 "<br>Stop: ", format(stop_min, digits=1), "min")
)) +
  geom_rect(alpha=0.8) +
  theme_minimal()+
  theme(
    axis.title.x=element_text(color="white"), axis.text.x=element_text(color="white"),
    axis.text.y=element_blank(), axis.ticks.y=element_blank(),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
    panel.border = element_blank(), panel.background = element_blank()) +
  scale_fill_discrete(breaks=data$category)

task_bars <- plotly::ggplotly(proc_bars, tooltip="text", width = 970, height = 120) %>%
  plotly::config(displayModeBar = TRUE) %>% 
  plotly::layout(plot_bgcolor='black', paper_bgcolor='black', margin = list(b=30, l=0, r=10, t=30))

print(task_bars)

Answer 1

想到了两种方法。我将分别展示 ggplot 和 plotly 图。

（仅供参考，我假设 proc_bars 实际上只是之前定义的 task_bars。如果 proc_bars 完全不同，这可能不适用。）

刻面

变化

• 将facet_grid(group ~ .) 添加到情节中

library(ggplot2)
bars1 <- ggplot(data, mapping=aes(ymin=0, ymax=1, xmin=start_min, xmax=stop_min,
                                  fill=as.factor(category))) +
  geom_rect(alpha=0.8) +
  theme_minimal() +
  theme(
    axis.title.x=element_text(color="white"), axis.text.x=element_text(color="white"),
    axis.text.y=element_blank(), axis.ticks.y=element_blank(),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
    panel.border = element_blank(), panel.background = element_blank()) +
    scale_fill_discrete(breaks=data$category) +
  facet_grid(group ~ .)

plotly::ggplotly(bars1, tooltip="text", width = 970, height = 120) %>%
  plotly::config(displayModeBar = TRUE) %>% 
  plotly::layout(plot_bgcolor='black', paper_bgcolor='black', margin = list(b=30, l=0, r=10, t=30))

将“组”移动到 y 轴

此方法更改为使用geom_tile，将group 作为y 轴。默认为height=1，这会将瓷砖放置在中间；我正在设置 height=0.9 来模拟它们之间的一些间距。

变化：

• 从geom_rect 更改为geom_tile，需要添加xcenter 和xwidth
• 注释掉两个主题元素，以便显示 y 轴刻度
• 添加labs(y=NULL) 隐藏“组”y 轴名称，交给你

# this can be done without `dplyr` if desired
data2 <- dplyr::mutate(data, xwidth = stop_min - start_min, xcenter = start_min + xwidth/2)
bars2 <- ggplot(data2, mapping=aes(x=xcenter, y=group, width=xwidth, height=0.9, fill=as.factor(category))) +
  geom_tile(alpha=0.8) +
  theme_minimal() +
  theme(
    axis.title.x=element_text(color="white"), axis.text.x=element_text(color="white"),
    # axis.ticks.y=element_blank(), axis.text.y=element_blank(),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
    panel.border = element_blank(), panel.background = element_blank()) +
  labs(y = NULL) +
  scale_fill_discrete(breaks=data$category)

plotly::ggplotly(bars2, tooltip="text", width = 970, height = 120) %>%
  plotly::config(displayModeBar = TRUE) %>% 
  plotly::layout(plot_bgcolor='black', paper_bgcolor='black', margin = list(b=30, l=0, r=10, t=30))

---

注意事项：

• ggplot2 将按字母顺序排列刻面或 y 刻度；如果您需要不同的顺序，请将group 更改为factor，并且您必须将factor(group, levels=***) 级别组件显式控制为您需要的唯一值的顺序。

• bars1 和bars2 之间的组顺序颠倒了；这是因为在bars1 中，刻面从上到下递增，因此“最小”在顶部；在bars2 中，组从底部（y = 1）到顶部（y = n）递增，因此“最小”位于底部；有几种方法可以控制它，包括上面的factor 注释