如何在Base R柱状图中拆分Excel导入数据的X轴长标签

方法1：自动拆分标签（无需手动设置names.arg） #

利用strwrap()函数自动按指定宽度拆分长文本，生成带换行符的标签，替代手动编写names.arg：

# 先导入Excel数据（示例用readxl包，也可使用其他导入方法）
library(readxl)
df <- read_excel("你的Excel文件路径.xlsx")

# 自动拆分X轴标签，width可根据标签长度调整
split_labels <- sapply(df$你的X轴列名, function(x) paste(strwrap(x, width = 10), collapse = "\n"))

# 绘制柱状图，las=1确保标签水平显示
barplot(df$你的数值列名, names.arg = split_labels, las = 1)

• width参数：设置每行标签的最大字符数，标签越长可设越小，比如8或12，按需调整。
• 这个方法会自动处理所有标签，不用逐个手动加\n。

方法2：调整图表边距，避免标签覆盖 #

如果拆分后仍有覆盖问题，或不想拆分标签，可通过par()调整绘图区域的底部边距，给标签留出足够空间：

# 增大底部边距（默认mar=c(5,4,4,2)+0.1，这里把底部设为8）
par(mar = c(8, 4, 4, 2) + 0.1)

# 绘制柱状图，直接使用原始标签
barplot(df$你的数值列名, names.arg = df$你的X轴列名, las = 1)

# 绘制完成后可恢复默认边距（可选）
par(mar = c(5, 4, 4, 2) + 0.1)

• mar参数顺序为：底部、左侧、顶部、右侧边距，数值越大边距越宽。

组合方案（推荐） #

把自动拆分标签和调整边距结合，既能自动处理长标签，又能确保标签完全显示不覆盖图表：

library(readxl)
df <- read_excel("你的Excel文件路径.xlsx")

# 自动拆分标签
split_labels <- sapply(df$你的X轴列名, function(x) paste(strwrap(x, width = 10), collapse = "\n"))

# 调整边距
par(mar = c(7, 4, 4, 2) + 0.1)

# 绘图
barplot(df$你的数值列名, names.arg = split_labels, las = 1)

# 恢复默认边距
par(mar = c(5, 4, 4, 2) + 0.1)

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