為什么我在 R 中看到帶有 ggplot 的 geom_line 的條形 plot？

Question

我有以下data.frame我想使用ggplot繪制多個變量。 我知道如果使用Date而不拆分為Year 、 Month和Day會得到line plot但想知道，如何使用Year列可以得到line plot ？

library(tidyverse)
library(lubridate)

set.seed(123)
DF <- data.frame(Date = seq(as.Date("2011-01-01"), to = as.Date("2014-12-31"), by = "day"),
                  F = runif(1461,20,60), D = runif(1461,30,70)) %>% 
                  separate(Date, into = c("Year", "Month", "Day")) 

ggplot(DF, aes(x = Year))+
  geom_line(aes(y = F)) +
    geom_line(aes(y = D))

Answer 1

將Year設為數字，然后為y選擇某種摘要 function（否則您會得到看起來像條形的垂直線）。

DF %>%
  mutate(across(Year, as.numeric)) %>%
  ggplot(aes(x = Year))+
  geom_line(stat = "summary", aes(y = F), fun = mean, color = 'red') +
  geom_line(stat = "summary", aes(y = D), fun = mean, color = 'blue')

請注意，您可以通過將F和D旋轉到它們自己的列來簡化一點：

DF %>%
  mutate(across(Year, as.numeric)) %>%
  pivot_longer(c(F, D)) %>%
  ggplot(aes(x = Year, y = value, color = name))+
  geom_line(stat = "summary", fun = mean)