帶有日期格式的離散x軸的ggplot問題（yyyy-mm-dd）

Question

我有一個如下數據框。 我需要使用ggplot繪制一個折線圖，該折線以每年不同的顏色顯示每年（即2014、2015等）的每一條線。

我無法用下面的代碼用直線連接這些點。 但是，它每年僅繪制不同顏色的點。 這可能很簡單，但我無法弄清楚。

library(reshape2)
library(ggplot2)

plot.data <- melt(Table_1, id.vars = 'Day Obs')
ggplot(plot.data, aes(x = `Day Obs`, y = value)) +
  geom_line(mapping = aes(x = `Day Obs`, y = value, colour = variable),size=1.0) +
  geom_point(mapping = aes(x = `Day Obs`, y = value, colour = variable),size=2.3)

表格1：

Day Obs     2014    2015   2016   2017    2018
2018-08-01    NA     NA     NA     NA    1.002    
2018-08-03    NA     0.85   NA     NA       NA
2018-08-06    NA     NA     NA     NA      0.9
2018-08-07    NA     NA    0.78   0.88      NA
.
.

Answer 1

問題是您在觀測值和geom_line之間缺少i值， geom_line無法連接這些點（因為信息丟失）。 可以看到2018年：

library(reshape2)
library(ggplot2)

plot.data <- melt(Table_1, id.vars = 'Day Obs')
plot.data[plot.data$variable == 2018, ]
#       Day Obs variable value
# 17 2018-08-01     2018 1.002
# 18 2018-08-03     2018    NA
# 19 2018-08-06     2018 0.900
# 20 2018-08-07     2018    NA

在這里，2018-08-03的信息明確丟失。 因此，如果我們繪制點，則這些點之間沒有連接。

ggplot(plot.data, aes(x = `Day Obs`, y = value, colour = variable)) +
  geom_line(size = 1.0) +
  geom_point(size = 2.3)

您可以刪除明確的缺失值，並且可以使用：

ggplot(plot.data[!is.na(plot.data$value), ], 
       aes(x = `Day Obs`, y = value, colour = variable)) +
  geom_line(size = 1.0) +
  geom_point(size = 2.3)

數據

Table_1 <- structure(list(`Day Obs` = structure(c(17744, 17746, 17749, 17750), class = "Date"), 
                          `2014` = c(NA, NA, NA, NA), 
                          `2015` = c(NA, 0.85, NA, NA), 
                          `2016` = c(NA, NA, NA, 0.78), 
                          `2017` = c(NA, NA, NA, 0.88), 
                          `2018` = c(1.002, NA, 0.9, NA)), 
                     row.names = c(NA, -4L), class = "data.frame")