为什么从 geom_point 切换到 geom_line 时 go 出现数据丢失？

Question

我创建了一个大型数据框（BEAVOutletWL_merge），我试图生成从各个列中提取数据的图。 当我输入以下代码时：

BEAVbaro <- ggplot(BEAVOutletWL_merge, aes(x=DateTime,y=BaroPres_kpa)) +
geom_point(size = .01)+
labs(x=NULL, y="BaroPres_kpa") + ylim(98, 103)+
theme()+ggtitle("Beaver Marsh")
BEAVbaro

这是生产的 plot：

但是，当我尝试使用此代码使其成为 plot 行时：

BEAVbaro <- ggplot(BEAVOutletWL_merge, aes(x=DateTime,y=BaroPres_kpa)) +
geom_line(size = .5)+
labs(x=NULL, y="BaroPres_kpa") + ylim(98, 103)+
theme()+ggtitle("Beaver Marsh")
BEAVbaro

此 plot 是生产的：

我唯一改变的是“geom_point”到“geom_line”和大小（出于审美目的），但有谁知道为什么01/22和07/22之间的大块数据突然消失在plot线上？

谢谢！

Answer 1

因为ggplot在有NA值的行中留下空白，所以两侧有NA值的点不会显示为geom_line 。 例子：

library(ggplot2)
library(cowplot)
dd <- data.frame(x = 1:10,
                 y  = c(1, NA, 3, NA, 5, NA, 7, NA, 9, 10))

gg0 <- ggplot(dd, aes(x,y))

plot_grid(gg0 + geom_point(), gg0 + geom_line())

如果你对线性插值没问题，你可以用na.omit()解决这个问题：

gg0  %+% na.omit(dd) + geom_line()

这会很有趣，但比我现在有时间去 plot 一个占位符（例如，一个短的水平破折号）在每个NA侧翼数据点的位置更具挑战性..）