1

我正在使用下面显示的代码创建一个 3x3 多面图。问题是我没有传说。

# Create column vectors
XID <- rep(c(1,5,10), each=57)
TAD.unit <- c(0, 0.25, 0.5, 0.75, 1, 1.5, 2, 3, 4, 6, 8, 10, 12, 16, 20, 24, 36, 48, 72)
TAD <- rep(TAD.unit, length=length(XID))
FID <-rep(c(1,2,3),each=length(TAD.unit),length=length(XID))
time <- TAD + (FID-1)*14*24
dist1 <- pweibull(TAD,2,2)
dist2 <- pweibull(TAD,2,4)

# Create data frame
data.df <- as.data.frame(cbind(XID,time, FID, dist1, dist2, TAD))

library(ggplot2)
label_both = function(column,value){paste(column,"=",value)}

# Create plot
my.plot1 <- ggplot(data.df, aes(x=TAD, y=dist1)) + geom_point() + 
  geom_line(aes(x=TAD, y=dist2)) +
  facet_grid(XID ~ FID, labeller=label_both) +
  labs(x = "TAD", y = "Response")

# alternative data structure per recommendation in
# http://stackoverflow.com/questions/15418302/ggplot2-how-to-show-the-legend?rq=1
library(reshape)
df.2 <- melt(data.df, id=c("XID","FID","TAD","time"))

我尝试使用数据框 df.2 来查看我提供链接的堆栈溢出线程中的建议是否有帮助。我尝试了各种 ggplot 命令,但仍然无法正常工作。有人可以帮帮我吗?

另外,如何将图例放置在 3x3 内有空白区域的某个位置?

非常感谢!

4

1 回答 1

0

至于图例,请使用您融化的数据框,例如使用颜色来区分您的两个距离数据集。比如像这样:

ggplot(df.2, aes(x=TAD, y=value, colour = variable)) + geom_line() + facet_grid(XID ~ FID, labeller=label_both) + labs(x = "TAD", y = "Response")

至于传说的定位,我会推荐你​​这个问题,并给出一个很好的答案:

刻面第一个图中的位置图例

于 2013-05-16T13:38:47.320 回答