合并ggplot2中的两个图并保留图的各个特征（geom_text，geom_vline）

Question

我有两个geom_line时间序列，其中包含一些geom_text＆amp;每个情节都有geom_points。

其中一个图还有geom_vline。我想知道是否有可能合并两个，但我没有得到解决方案。

以下是两个图：

require(zoo)
require(ggplot2)

set.seed(10)

# plot 1:
tmp1 <- xts(cumsum(rnorm(5000,1,10)), Sys.Date()-5000:1)
data.tmp1 = data.frame(date=as.Date(index(tmp1)),
                      value=drop(coredata(tmp1)))
data.tmp1.year.end = data.frame(date=as.Date(index(tmp1[endpoints(tmp1, "years", 1)])),
                               value= drop(coredata(tmp1[endpoints(tmp1, "years", 1)])))

plot1 = 
  ggplot(data.tmp1, aes(x=date, y=value)) +
  geom_line(aes(y=value), size=1) +
  geom_point(data=data.tmp1.year.end, col="red") +
  geom_text(data=data.tmp1.year.end, label=data.tmp1.year.end$value, vjust=0, hjust=1) 

# plot 2:
tmp2 <- xts(cumsum(rnorm(5000,1,100)), Sys.Date()-5000:1)
data.tmp2 = data.frame(date=as.Date(index(tmp2)),
                       value=drop(coredata(tmp2)))
data.tmp2.year.end = data.frame(date=as.Date(index(tmp2[endpoints(tmp2, "years", 1)])),
                                value= drop(coredata(tmp2[endpoints(tmp2, "years", 1)])))
tmp2.date =as.Date(c("2008-01-01"))

plot2 = 
  ggplot(data.tmp2, aes(x=date, y=value)) +
  geom_line(aes(y=value), size=1) +
  geom_point(data=data.tmp2.year.end, col="red") +
  geom_vline(xintercept=as.numeric(tmp2.date), linetype="dotted") +
  geom_text(data=data.tmp2.year.end, label=data.tmp2.year.end$value, vjust=0, hjust=1)

现在的目标是plot1和plot2共享一个x轴，并且各个图形的所有特征都保存在相应的图中。

结果应如下所示：

Answer 1

您可以尝试将日常数据集和年终数据集合并为单个数据框，然后使用ggplot的faceting在单个日期轴上显示。代码可能如下所示：

data.tmp1 <- cbind(data.tmp1, data_name="tmp1")
data.tmp1.year.end <- cbind(data.tmp1.year.end, data_name="tmp1")
data.tmp2 <- cbind(data.tmp2, data_name="tmp2")
data.tmp2.year.end <- cbind(data.tmp2.year.end, data_name="tmp2")

data.tmp <- rbind(data.tmp1,data.tmp2)
data.tmp.year.end <- rbind(data.tmp1.year.end, data.tmp2.year.end)

ggplot(data.tmp, aes(x=date, y=value)) +
  geom_line(aes(y=value), size=1) +
  geom_point(data=data.tmp.year.end, col="red") +
  geom_text(data=data.tmp.year.end, aes(label=data.tmp.year.end$value), vjust=0, hjust=1) +
  geom_vline(xintercept=as.numeric(tmp2.date), linetype="dotted") +
  facet_grid( data_name ~ . , scales="free_y")

给出了图表