使用 ggplot2 仅将段添加到一个方面答案

【问题标题】：Add a segment only to one facet using ggplot2使用 ggplot2 仅将段添加到一个方面
【发布时间】：2014-08-26 00:46:43
【问题描述】：

举个例子，我有这个数据框，叫做my_data：

         Groups    FactorA    FactorB    FactorC N    value         sd        se         ci
1       Control Condition1 Condition1 Condition1 3 92.00000  6.0827625  3.511885  15.110420
2       Control Condition1 Condition1 Condition2 2 69.00000  8.4852814  6.000000  76.237228
3       Control Condition1 Condition2 Condition1 3 72.33333 10.2632029  5.925463  25.495209
4       Control Condition1 Condition2 Condition2 2 97.00000  2.8284271  2.000000  25.412409
5       Control Condition2 Condition1 Condition1 3 85.00000 13.0000000  7.505553  32.293790
6       Control Condition2 Condition1 Condition2 2 78.50000 16.2634560 11.500000 146.121354
7       Control Condition2 Condition2 Condition1 3 95.00000  5.1961524  3.000000  12.907958
8       Control Condition2 Condition2 Condition2 2 78.00000 22.6274170 16.000000 203.299276
9  Experimental Condition1 Condition1 Condition1 2 80.00000  5.6568542  4.000000  50.824819
10 Experimental Condition1 Condition1 Condition2 3 74.00000 19.9248588 11.503623  49.496093
11 Experimental Condition1 Condition2 Condition1 2 68.50000  0.7071068  0.500000   6.353102
12 Experimental Condition1 Condition2 Condition2 3 78.66667 18.5831465 10.728985  46.163095
13 Experimental Condition2 Condition1 Condition1 2 81.00000 19.7989899 14.000000 177.886866
14 Experimental Condition2 Condition1 Condition2 3 75.33333 17.0391706  9.837570  42.327646
15 Experimental Condition2 Condition2 Condition1 2 81.50000 14.8492424 10.500000 133.415150
16 Experimental Condition2 Condition2 Condition2 3 78.00000  5.2915026  3.055050  13.144821

使用此代码创建

my_data <- data.frame(Groups=c(rep("Control",20),rep("Experimental",20)),
                      FactorA=rep(c("Condition1","Condition2"),20),
                      FactorB=rep(c("Condition1","Condition1","Condition2","Condition2"),10),
                      FactorC=rep(c(rep("Condition1",4),rep("Condition2",4)),5),
                      value=sample(60:100,40,replace=T)
                      )

# add standard errors with a specific function    
my_data <- summarySE(my_data,
                     measurevar="value",
                     groupvars=c("Groups","FactorA","FactorB", "FactorC"))

然后，使用以下代码：

    ggplot(my_data, aes(Groups,value,fill=FactorA)) + 
  geom_bar(position=position_dodge(), stat="identity") +
  geom_errorbar(aes(ymin=value-se, ymax=value+se),
               width=.1,                    # Width of the error bars
               position=position_dodge(.9)) +
  facet_grid(FactorB~FactorC) +
  geom_segment(x=0.8,y=100,xend=1.2,yend=100) +
  theme(axis.text.x=element_text(size=12, colour="black"),
        axis.title.x=element_blank(),
        legend.key.size=unit(1,"cm"),
        legend.text=element_text(size=14),
        plot.title=element_text(lineheight=.8, face="bold"),
        panel.margin=unit(1, "lines"),
        axis.title.y = element_text(size = 16, vjust=0.3),
        strip.text.y = element_text(size=16,face="bold"),
        strip.text.x = element_text(size=16,face="bold")) +
  coord_cartesian(ylim=c(60, 120))

我得到了这个情节

如您所见，geom_segment(x=0.8,y=100,xend=1.2,yend=100) 线出现了四个段，每个面一个，但我只想在一个面中绘制一个段（例如在左上角的图中）。

有人可以帮帮我吗？我尝试了各种解决方案，但都没有。

【问题讨论】：

标签： r graph ggplot2 segment facets

【解决方案1】：

将段的数据放入数据框中，并添加列 FactorB 和 FactorC 以及您需要绘制段的级别。

data.segm<-data.frame(x=0.8,y=100,xend=1.2,yend=100,
                      FactorB="Condition1",FactorC="Condition1")

现在使用这个数据框来添加段。还要在geom_segment() 中添加inherit.aes=FALSE 以忽略ggplot() 中设置的fill=FactorA。

  + geom_segment(data=data.segm,
               aes(x=x,y=y,yend=yend,xend=xend),inherit.aes=FALSE)+

【讨论】：

Didzis，我更新了我的问题，因为为简单起见，我没有插入错误栏，但我需要它们。我以为这不重要，对不起。我无法移动fill=FactorA，因为这会改变误差线的正确位置。请你更新你的答案好吗？非常感谢您的帮助。
我用它来解决一个 smilar 问题，谢谢。有没有办法改变线段的颜色和线型？我在创建数据框时尝试添加linetype="dashed", colour="red"，但该段仍然是纯黑色的。
编辑：直接将其添加到geom_segmentcall 工作正常。