在r中用线和点在一张图中绘制多个列(某些列具有大量NaN)

install.packages("ggplot2")
library(ggplot2)

df <- data.frame(
  x = 1:10,
  col1 = c(1, 2, 3, NaN, 5, NaN, 7, 8, NaN, 10),
  col2 = c(1, 2, NaN, 4, 5, NaN, 7, NaN, 9, 10),
  col3 = c(NaN, 2, 3, 4, NaN, 6, 7, 8, NaN, 10)
)

ggplot(df, aes(x = x)) +
  geom_line(aes(y = col1), color = "blue") +
  geom_point(aes(y = col1), color = "blue") +
  geom_line(aes(y = col2), color = "red") +
  geom_point(aes(y = col2), color = "red") +
  geom_line(aes(y = col3), color = "green") +
  geom_point(aes(y = col3), color = "green") +
  scale_x_continuous(limits = c(1, 10)) +
  scale_y_continuous(limits = c(0, 10))