R语言折线图轴显示调整：将月份刻度改为年份

首先你的核心问题是**date列没有被识别为日期类型**，ggplot无法自动按时间逻辑生成年份刻度。按以下步骤修改代码即可实现需求：

• 第一步：将date列转换为标准日期格式，借助lubridate工具（已包含在tidyverse中，无需额外安装）
• 第二步：用scale_x_date()手动设置x轴的刻度间隔为年，标签只显示年份

修改后的完整代码：

# 加载库
library(tidyverse)

# 读取数据并预处理
monthly <- read.csv('data/monthly_deaths.csv') %>%
  # 根据你的date列格式选择转换函数：
  # 若格式是"YYYY-MM-DD"用ymd()，"DD/MM/YYYY"用dmy()，仅年月如"1841-01"用ym()
  mutate(date = ymd(date),
         proportion_deaths = deaths / births)

# 绘制折线图并设置x轴
monthly_plot <- ggplot(monthly, aes(x = date, y = proportion_deaths, group = 1)) +
  geom_line() +
  scale_x_date(
    breaks = "year",  # 按年度设置刻度点
    labels = ~ format(.x, "%Y")  # 刻度标签只显示4位年份
  ) +
  labs(x = "年份", y = "死亡比例")  # 可选：替换轴标签提升可读性

monthly_plot

关键细节说明： #

• 日期格式转换是基础：如果date是字符类型，ggplot会将其视为离散变量，无法按时间间隔调整刻度。转成Date类型后，ggplot才能识别时间序列的连续性。
• 若不确定date列格式，可运行class(monthly$date)查看类型，或head(monthly$date)输出前几行确认格式，再对应选择ymd()/dmy()/ym()等转换函数。

内容的提问来源于stack exchange，提问作者csRstudy