16

我正在尝试创建一个facet_wrap将四个单独的行与共同的第五行进行比较的图；目标是让这第五行出现在所有其他四个facet_wrap情节上。

这是我的最小代码：

library(ggplot2)

x    = c( 1,  3,  1,  3,  2,  4,  2,  4)
y    = c( 1,  3,  2,  4,  1,  3,  2,  4)
type = c("A","A","B","B","C","C","D","D")
data = data.frame(x,y,type)

x    = c( 4,  1)
y    = c( 1,  4)
type = c("E","E")
line = data.frame(x,y,type)

ggplot(data, aes(x,y)) + geom_line() + facet_wrap(~type) +
geom_line(data = line, aes(x,y))

我希望将第五行添加为独立的data.frame可以让我这样做，但它只是将它添加为第五个方面，如下图所示：

坏刻面图

我希望“E”方面出现在所有其他情节上。有什么想法吗？我知道geom_vline,geom_hline和geom_abline都将出现在所有方面，但我不确定是什么让它们与众不同。

4

2 回答 2

9

您已type='E'在linedata.frame 中指定。如果您想在 type 上有此行，则使用您希望在其上显示该行的类型A,B,C,D创建一个data.frame

xl    = c( 4,  1)
yl    = c( 1,  4)
type =rep(LETTERS[1:4], each=2)
line2 = data.frame(x=xl,y=yl,type)

ggplot(data, aes(x,y)) + geom_line() + facet_wrap(~type) +
   geom_line(data = line2)

您也可以使用annotate，这意味着您不指定 data.frame，而是直接传递 x 和 y 值

ggplot(data, aes(x,y)) + geom_line() + facet_wrap(~type) +
  annotate(geom='line', x=xl,y=yl)

两者都创建

在此处输入图像描述

于 2013-12-04T23:49:13.813 回答
4

您还可以使用 geom_abline(...) 如下：

x    <-  c( 1,  3,  1,  3,  2,  4,  2,  4)
y    <-  c( 1,  3,  2,  4,  1,  3,  2,  4)
type <-  c("A","A","B","B","C","C","D","D")
data <-  data.frame(x,y,type)

int   <- c(5,5,5,5)
slope <- c(-1,-1,-1,-1)
type  <- c("A","B","C","D")
ref   <- data.frame(int, slope, type)
ggplot(data, aes(x,y)) + geom_line() + facet_wrap(~type, scales="free") +
  geom_abline(data = ref, aes(intercept=int, slope=slope), color="red", size=2)

产生这个：

于 2013-12-05T00:03:09.630 回答