在Base R中调整X轴标签避免与轴标题重叠的技术问询

针对15分钟间隔的高密度时间序列数据，仅用Base R解决X轴标签拥挤、与标题重叠的问题，可通过以下几种方法组合实现：

1. 手动控制X轴标签的显示频率 #

默认自动标签会为大量时间点生成标记，导致拥挤。你可以手动指定要显示的时间间隔（比如每6小时/每天一个标签），直接减少标签数量：

# 读取并转换时间格式
df <- read.csv("your_data.csv")
df$DateTime <- as.POSIXct(df$DateTime, format = "%Y-%m-%d %H:%M:%S")

# 生成自定义标签时间点（示例：每6小时显示一个）
time_range <- range(df$DateTime)
custom_labels <- seq(time_range[1], time_range[2], by = "6 hours")

# 先绘制无X轴的图表
plot(df$DateTime, df$WaterLevel, 
     xlab = "", ylab = "地下水水位", 
     xaxt = "n", # 关闭默认X轴，避免重复
     main = "地下水监测数据")

# 添加自定义X轴，设置标签格式、字号和旋转
axis.POSIXct(1, at = custom_labels, 
             format = "%m-%d %H:%M", # 缩短标签显示内容
             cex.axis = 0.7, 
             las = 2) # 垂直显示标签，减少水平空间占用

# 手动添加X轴标题，调整位置远离标签
title(xlab = "Date/Time", line = 4)

2. 调整绘图边距 #

如果标签旋转后仍和标题挤在一起，可通过par()增加底部边距，给标签留出更多空间：

# 调整边距：底部边距从默认5.1改为7.1（顺序：下、左、上、右）
par(mar = c(7.1, 4.1, 4.1, 2.1))

# 之后再执行绘图代码...

3. 进一步缩短标签格式 #

如果时间标签还是过长，可根据数据跨度简化格式，比如仅显示月-日，或仅显示小时（针对单日数据）：

# 示例：仅显示月-日
axis.POSIXct(1, at = custom_labels, 
             format = "%m-%d", 
             cex.axis = 0.7, 
             las = 2)

关键说明 #

• xaxt = "n"必须设置，避免默认轴和自定义轴重复显示
• las = 2让标签垂直排列，彻底解决水平方向的拥挤问题
• line参数控制轴标题的垂直位置，数值越大，标题离轴越远

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