R语言中如何为绘图的x轴自定义日期刻度结构与显示格式

针对plot()函数自动生成日期轴时，仅简略显示月份、缺失完整日期与年份信息的问题，可按以下步骤实现符合需求的坐标轴效果：

• 在原plot()代码的参数中新增xaxt = "n"，临时禁用系统自动生成的默认x轴刻度与标注，为自定义坐标轴预留绘制空间。
• 使用专属的日期轴绘制函数axis.Date()，按要求设置刻度位置、标注格式与文字排列方向。

调整后的完整可运行代码如下：

# 读取分号分隔的CSV文件
csvu <- read.csv("2D-plot-Tabelle.csv", sep = ";", encoding = "UTF-8")
# 将字符串格式的日期转换为R可识别的Date类，匹配日.月.年的输入格式
csvu$Datum <- as.Date(csvu$Datum, "%d.%m.%Y")

# 绘制图形主体，关闭默认x轴
plot(csvu$Datum, csvu$Summe,
     main = "This is my plot",
     xlab = "Datum",
     ylab = "Summe",
     type = "b", # 同时展示折线与散点
     lwd = 2, # 线条宽度
     col = rainbow(25),
     pch = 16, # 散点样式为实心圆形
     cex = 2, # 散点大小
     xaxt = "n") # 核心新增参数：关闭系统默认x轴

# 自定义符合格式要求的x轴
axis.Date(1,
          at = csvu$Datum, # 刻度与数据实际的日期位置完全对齐
          labels = format(csvu$Datum, "%d.%m.%Y"), # 标注格式为日.月.年
          las = 2) # 标签垂直排列

核心参数说明：

• xaxt = "n"：关闭系统自动生成坐标轴的逻辑，避免默认刻度与自定义刻度重叠
• at = csvu$Datum：刻度位置与实际数据的记录日期一一对应，不需要系统自动按等距时间间隔划分刻度
• format(csvu$Datum, "%d.%m.%Y")：严格按照日.月.年的格式生成刻度文字，不会简化为仅显示月份
• las = 2：刻度标签垂直于坐标轴排列，避免长日期文字横向重叠，该参数设置为1时为水平排列模式
• 如果数据点较多导致刻度拥挤，可手动在at参数中指定需要展示的关键日期，无需全量标注所有数据点的日期

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