使用 geom_line 连接缺失值

Question

我正在尝试确定是否可以使用 geom_line 跨缺失值进行连接。例如，在下面的链接中，方面 F 的时间 3 处缺少值。在这种情况下，我想要一条线来连接时间 2 和 4。有没有办法做到这一点？

https://farm8.staticflickr.com/7061/6964089563_b150e0c2a6.jpg

我有一个累积值的数据框，如下所示：

head(cumulative)

  individual series Time     Value
1          A      x    1 -1.008821
2          A      x    2 -2.273712
3          A      x    3 -3.430610
4          A      x    4 -4.618860
5          A      x    5 -4.893075
6          A      x    6 -5.836532

我正在绘制的内容：

ggplot(cumulative, aes(x=Time,y=Value, shape=series)) + 
    geom_point() + 
    geom_line(aes(linetype=series)) + 
    facet_wrap(~ individual, ncol=3)

Answer 1

Richie 的回答非常透彻，但我想展示一些更简单的东西。由于线没有绘制到NA 点，另一种方法是在绘制线时删除这些点。这隐含地在点之间进行线性插值（就像直线一样）。

使用 Richie 回答中的dfr，无需计算z 步骤：

ggplot(dfr, aes(x,y)) + 
  geom_point() +
  geom_line(data=dfr[!is.na(dfr$y),])

就此而言，在这种情况下，可以对整个事物进行子集化。

ggplot(dfr[!is.na(dfr$y),], aes(x,y)) + 
  geom_point() +
  geom_line()

Answer 2

如果值为NA，则不会绘制线条。您需要通过对缺失点进行插值来替换它们。有许多不同的插值算法，您需要尝试几种算法，看看哪一种最适合您的数据。此示例通过 pracma 包中的 interp1 使用线性插值。

样本数据：

dfr <- data.frame(
  x = 1:10,
  y = runif(10)
)
dfr[c(3, 6, 7), "y"] <- NA

插值步骤：

dfr$z <- with(dfr, interp1(x, y, x, "linear"))

比较图：

ggplot(dfr, aes(x, y)) + geom_line()
ggplot(dfr, aes(x, z)) + geom_line()

如果您要向其他人展示此图表，请确保通过插值（可能使用虚线）清楚地标记您合成数据的位置。

---

根据评论更新：
您可以为不同的几何图形指定不同的美学。

ggplot(dfr, aes(x)) + 
  geom_point(aes(y = y)) +
  geom_line(aes(y = z))

要为缺失/非缺失 y 合并不同的线型，您可以执行类似的操作

ggplot(dfr, aes(x)) + 
  geom_point(aes(y = y)) +
  geom_line(aes(y = y)) +
  geom_line(aes(y = z), linetype = "dotted")