R 中 ggplot 中的组线图中缺少线段

Question

我使用 ggplot 在 R 中按组创建了累积和的线图。我的问题是有些行包含缺失的段——要么在行的开头、行的末尾，要么在行的中间。 我该如何解决这个问题？

library(dplyr)
library(ggplot2)

df.1 <-
  data.frame(
    x = c(1, 2, 3, 4),
    y = c(10, 23, 25, 28),
    z = factor(1)
  )

df.2 <-
  data.frame(
    x = c(3, 4, 5, 6),
    y = c(5, 10, 12, 16),
    z = factor(2)
  )

df.3 <-
  data.frame(
    x = c(1, 3, 5, 6),
    y = c(2, 7, 8, 12),
    z = factor(3)
  )

df <-
  df.1 %>%
    full_join(
      df.2
    ) %>%
    full_join(
      df.3
    )

df

plot <-
  ggplot(
    df
  ) +
  aes(
    x = x,
    y = y,
    color = z
  ) +
  geom_point() +
  geom_line() +
  theme_minimal()

plot

Answer 1

您可以使用 base::expand.grid 和 zoo::fill 来解决此问题。

df.shell <-
  expand.grid(
    unique(df$z),
    unique(df$x)
  )
names(df.shell) <- c("z", "x")

df.shell

df.full <-
  df.shell %>%
  left_join(df, by = c("z", "x")) %>%
  arrange(z, x)

df.full

df.full.filled <-
  df.full %>%
  group_by(z) %>%
  mutate(y = ifelse(x == 1 & is.na(y), 0, y)) %>%
  fill(y, .direction = "updown")

df.full.filled

plot.filled <-
  ggplot(
    df.full.filled
  ) +
  aes(
    x = x,
    y = y,
    color = z
  ) +
  geom_point() +
  geom_line() +
  theme_minimal()

plot.filled