将 geom_point 和 geom_line 组合在一个图中答案

【问题标题】：combining geom_point and geom_line in one plot将 geom_point 和 geom_line 组合在一个图中
【发布时间】：2015-06-30 00:07:40
【问题描述】：

我有两个类似的数据框：

date <- c("2014-07-06", "2014-07-06","2014-07-06","2014-07-07", "2014-07-07","2014-07-07","2014-07-08","2014-07-08","2014-07-08")
TIME <- c("01:01:01", "10:02:02", "18:03:03","01:01:01", "10:02:02", "18:03:03","01:01:01", "10:02:02", "18:03:03")
depth <- c(12, 23, 4, 15, 22, 34, 22, 12, 5)
temp <- c(14, 10, 16, 13, 10, 9, 10, 14, 16)
depth.temp <- data.frame(date, TIME, depth, temp)
depth.temp$asDate<-as.Date(depth.temp$date)

date <- c("2014-07-06", "2014-07-07","2014-07-08") 
meandepth <- c(13, 16, 9) 
cv <- c(25, 9, 20) 
depth.cv <- data.frame(date, meandepth, cv)
depth.cv$asDate<-as.Date(depth.cv$date)

从我创建的第一个情节开始：

library(ggplot2)
p1 <- qplot(asDate, depth, data=depth.temp, colour=temp, size = I(5), alpha = I(0.3))+ scale_y_reverse()
p1 + scale_colour_gradientn(colours = rev(rainbow(12)))

从第二个开始，这个情节：

p2 <- ggplot(depth.cv, aes(x=asDate, y=meandepth))+ scale_y_reverse()
p2 + geom_line(aes(size = cv))

我想将两个图合并为一个，点在后面，线在前面，有什么建议吗？请注意，点和线不是来自相同的数据，而是来自两个不同的数据框。

【问题讨论】：

How to combine 2 plots (ggplot) into one plot? 的可能重复项
它是相似的，但在那个问题中，点和线都是从同一个数据框创建的，而我对点和线使用两个单独的数据框
将您的代码安排在与链接答案类似的结构中，并确保定义用于每个绘图的数据框，它会正常工作。

标签： r ggplot2

【解决方案1】：

您可以将data 添加到任何geom_，与您在主ggplot 调用中使用的内容无关。为此，我会跳过主要的ggplot 调用中的任何数据或美学映射分配，并在每个相应的geom_ 中完成它们：

library(scales)

gg <- ggplot()
gg <- gg + geom_point(data=depth.temp, aes(x=asDate, y=depth, color=temp), size=5, alpha=0.3)
gg <- gg + geom_line(data=depth.cv, aes(x=asDate, y=meandepth, size=cv))
gg <- gg + scale_color_gradientn(colours=rev(rainbow(12)))
gg <- gg + scale_x_date(labels=date_format("%Y-%m-%d"))
gg <- gg + scale_y_reverse()
gg <- gg + labs(x=NULL, y="Depth")
gg <- gg + theme_bw()
gg

【讨论】：

【解决方案2】：

在我的情况下，为了显示线图，我必须设置 aes 如下：

aes(x=asDate, y=meandepth, group=1)

在 geom_line 图中

【讨论】：