我正在尝试使用 facet_wrap 将一堆数据集绘制为散点,每个散点中都有一条单独的线,指示特定事件发生的时间。但是,我无法让线条在每个情节中单独显示,而是它们都出现在所有情节中。熔化后,数据如下所示:
names(data) = c("Date","ID", "event_date", "variable", "value")
我希望每个图都是值 ~ 日期的散点图,每个图按 ID 划分,在每个“event_date”处出现一条垂直线,为每个 ID 显示。我的最大努力使我:
p <- qplot(Date, value, data=dat, colour=variable)
p <- p + geom_vline(xintercept=as.numeric(dat$event_date))
p + facet_wrap(~ID)
除了出现在每个子图中的所有垂直线外,它完美地工作。有什么建议?通读文档还没有让我到任何地方。
最佳答案
ggplot(dat, aes(Date,value))+ geom_point() + geom_vline(data=dat,aes(xintercept=as.numeric(event_date))) + facet_wrap(~ID)
是我如何使用 facet_grid() 做同样的事情。我很确定它也适用于 facet_wrap。
关于r - 将单独的线添加到 facet_wrapped 图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6963154/