在R中使用ggplot绘制指定格式时间序列图的大数据编码问题

我用Python的pandas+matplotlib给你写了一套完整的实现方案，包含数据预处理和绘图逻辑，你可以直接套用：

1. 核心步骤说明 #

• 先把分开的Year和Month字段合并成标准的日期格式，这是时间序列绘图的基础
• 通过matplotlib的日期工具类设置X轴的5年间隔刻度
• 优化标签显示，避免重叠，提升图表可读性

2. 完整代码示例 #

import pandas as pd
import matplotlib.pyplot as plt
import matplotlib.dates as mdates

# ----------------------
# 替换成你的真实数据读取逻辑，比如：
# data = pd.read_csv('your_data.csv')
# ----------------------
# 模拟1998-2014年的月度数据集（仅用于测试）
data = pd.DataFrame({
    'Year': [1998 + i//12 for i in range(17*12)],
    'Month': [(i%12)+1 for i in range(17*12)],
    'Deaths': [45 + (i%12)*3 + (i//12)*0.4 for i in range(17*12)]
})

# 合并年、月为日期列（指定每月1号作为日期锚点）
data['Date'] = pd.to_datetime(data[['Year', 'Month']].assign(Day=1))
data.set_index('Date', inplace=True)

# 创建绘图画布
fig, ax = plt.subplots(figsize=(12, 6))

# 绘制月度死亡数折线图
ax.plot(data.index, data['Deaths'], linewidth=1.5, color='#3498db')

# 设置X轴：按5年间隔显示年份
ax.xaxis.set_major_locator(mdates.YearLocator(base=5))  # 主刻度每5年一个
ax.xaxis.set_major_formatter(mdates.DateFormatter('%Y'))  # 刻度仅显示年份
ax.xaxis.set_minor_locator(mdates.YearLocator())  # 可选：添加每年的次要刻度线

# 设置轴标签和标题
ax.set_xlabel('年份', fontsize=12)
ax.set_ylabel('月度死亡数', fontsize=12)
ax.set_title('1998-2014年月度死亡数时间序列', fontsize=14, pad=20)

# 自动旋转X轴标签，避免重叠
fig.autofmt_xdate()

# 添加网格线提升可读性
ax.grid(alpha=0.3, linestyle='--')

plt.tight_layout()
plt.show()

关键代码解释 #

• pd.to_datetime(...)：因为只有年和月信息，通过assign(Day=1)生成合法的日期格式，让pandas能识别为时间序列
• YearLocator(base=5)：强制X轴每5年显示一个主刻度，完全符合你的需求
• fig.autofmt_xdate()：自动调整X轴标签的角度，避免年份文字重叠

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