如何在按 x 变量分组的条形图上 plot geom_line 不填充变量？

Question

我有一个数据框 df

  Group Time_Period     mean      uci      lci
1     A      Before 4.712195 5.054539 4.369852
2     A       After 5.881463 6.241784 5.521142
3     B      Before 5.349754 5.872940 4.826567
4     B       After 6.653595 7.246231 6.060959

我想用 plot 这个来说明组之间的平均增加没有差异。 我尝试了以下方法：

ggplot(df, aes(x=Time_Period, y=mean, fill=Group)) +
  geom_bar(stat="identity", position=position_dodge(width = 1), color="black") +
  geom_point(position = position_dodge(width = 1))+
  geom_line(aes(group=Group, color=Group), color=c("cyan4","firebrick","cyan4","firebrick"), size =1, position = position_dodge(width = 1)) +
  geom_errorbar(aes(ymin=lci, ymax=uci), position=position_dodge(width = 1)) +
  theme_bw() +
  scale_y_continuous(limits=c(-0.2,8), breaks= seq(0,300,1), minor_breaks=seq(0,300,0.5)) +
  theme(panel.grid.minor = element_line(colour="lightgrey", size=0.5)) +
  theme(panel.grid.major = element_line(colour="grey", size=0.5)) +
  labs(y="Sales", x="Time Period", fill="Category") +
  theme(axis.text.x = element_text(face="bold", size=12)) +
  theme(axis.text.y = element_text(face="bold", size=12)) +
  theme(axis.title.x = element_text(face="bold", size=16)) +
  theme(axis.title.y = element_text(face="bold", size=16)) +
  theme(legend.text= element_text(face="bold", size=12)) +
  theme(legend.title= element_text(face="bold", size=16))

其中情节：

但是我的经理担心由于重叠而难以区分两条线，所以他告诉我重新排列列，使 x 是 Group，fill 是 Time Period。

我尝试了以下方法：

ggplot(df, aes(x=Group, y=mean, fill=Time_Period)) +
  geom_bar(stat="identity", position=position_dodge(width = 1), color="black") +
  geom_point(position = position_dodge(width = 1))+
  geom_line(aes(group=Group), color="black", size =1, position = position_dodge(width = 1)) +
  geom_errorbar(aes(ymin=lci, ymax=uci), position=position_dodge(width = 1)) +
  theme_bw() +
  scale_y_continuous(limits=c(-0.2,8), breaks= seq(0,300,1), minor_breaks=seq(0,300,0.5)) +
  theme(panel.grid.minor = element_line(colour="lightgrey", size=0.5)) +
  theme(panel.grid.major = element_line(colour="grey", size=0.5)) +
  labs(y="Sales", x="Group", fill="Time Period") +
  theme(axis.text.x = element_text(face="bold", size=12)) +
  theme(axis.text.y = element_text(face="bold", size=12)) +
  theme(axis.title.x = element_text(face="bold", size=16)) +
  theme(axis.title.y = element_text(face="bold", size=16)) +
  theme(legend.text= element_text(face="bold", size=12)) +
  theme(legend.title= element_text(face="bold", size=16))

但我无法弄清楚如何在两个条之间正确地获得 plot 的线条，而不是在中心垂直，即使我调整 position_dodge 的“宽度”参数：

请任何人告诉我如何修复 plot？

Answer 1

您正在寻找position_dodge2() 。 在ggplot2 闪避参考中有一些关于它的内容，在 Github 上的实际代码中有更多内容。 下面的相关部分，添加了一些重点：

闪避保留几何图形的垂直 position，同时调整水平 position。 position_dodge2是position_dodge的一种特殊情况，用于排列可以有可变宽度的箱形图。 position_dodge2也适用于条形和矩形。 但与position_dodge不同， position_dodge2在图层中没有分组变量的情况下工作。

所以这是代码，删除了一些主题。

library(tidyverse)
txt = "
Group Time_Period     mean      uci      lci
1     A      Before 4.712195 5.054539 4.369852
2     A       After 5.881463 6.241784 5.521142
3     B      Before 5.349754 5.872940 4.826567
4     B       After 6.653595 7.246231 6.060959"

df <- read.table(text = txt, header = TRUE) %>%
  mutate(Group = fct_relevel(Group, "A", "B")) %>%
  mutate(Time_Period = fct_relevel(Time_Period, "Before", "After"))

ggplot(df, aes(x=Group, y=mean, fill=Time_Period)) +
  geom_bar(stat="identity", position=position_dodge(width = 1), color="black") +
  geom_point(position = position_dodge(width = 1))+
  geom_line(aes(group=Group), color="black", size =1, 
            position = position_dodge2(width = 1)) +
  geom_errorbar(aes(ymin=lci, ymax=uci), position=position_dodge(width = 1)) +
  theme_bw() +
  scale_y_continuous(limits=c(-0.2,8), breaks= seq(0,300,1), minor_breaks=seq(0,300,0.5)) +
  labs(y="Sales", x="Group", fill="Time Period") 

^{由代表 package (v0.3.0) 于 2019 年 11 月 21 日创建}