r - 如何使用ggplot在x轴上只显示年份

Question

我希望我的多折线图在 x 轴上仅显示年份(而不是年份和月份)。我尝试使用 "%Y" 格式化“年”，但 df2 显示日、月和年。

library(tidyverse)
theme_set(theme_minimal())

df <- tibble(
             year = as.character(c(2015, 2016)),
             v1 = c(3,10),
             v2 = c(7,18))

    df$year <- as.Date(df$year, "%Y")
    format(df$year, "%Y")
    #> [1] "2015" "2016"

    df2 <- df %>%
      gather(key = "variable", value = "value", -year)

    ggplot(df2, aes(x = year, y = value)) + 
      geom_line(aes(color = variable, linetype = variable)) + 
      scale_color_manual(values = c("darkred", "steelblue"))

Answer 1

使用 lubridate 包。

您可以使用 scale_x_date，因为您的日期是 2015 年和 2016 年的 10 月，所以我将日期移动了 9 个月以在图表中同时显示 2015 年和 2016 年。

library(lubridate)
df2 <- df %>%
    gather(key = "variable", value = "value", -year) %>%
    mutate(year = year - months(9))

ggplot(df2, aes(x = year, y = value)) + 
    geom_line(aes(color = variable, linetype = variable)) + 
    scale_color_manual(values = c("darkred", "steelblue")) + 
    scale_x_date(date_breaks = "1 year",date_labels = "%Y")

另一种方法是从日期列中提取年份作为整数，并使用 year(integer) 来绘制，您还需要指定 breaks。

df2 <- df %>%
    gather(key = "variable", value = "value", -year) %>%
    mutate(year = lubridate::year(year))

ggplot(df2, aes(x = year, y = value)) + 
    geom_line(aes(color = variable, linetype = variable)) + 
    scale_color_manual(values = c("darkred", "steelblue")) +
    scale_x_continuous(breaks = c(2015,2016))

两者的结果相同。