绘制含大量x轴标签的柱状图：如何让标签完整显示？

嗨！碰到柱状图x轴标签挤得放不下的情况太头疼了，我给你整理了几个实用的解决办法，保证所有国家名称都能完整显示出来~

1. 旋转x轴标签（最常用方案） #

把标签旋转成垂直或倾斜角度，直接避免重叠。有两种实现方式：

方式一：直接在barplot里设置参数 #

# 先整理你的数据（假设Countries是你的原始数据向量）
CountriesChart <- data.frame(
  NamesofC = factor(c(Countries), 
                    levels = c("Afghanistan", "Albania", "Algeria", "American Samoa", "Andorra", "Angola", "Antigua and Barbuda", "Argentina", "Armenia", "Australia", "Austria", "Azerbaijan", "Bahrain", "Bangladesh", "Barbados", "Belarus", "Belgium", "Belize", "Benin", "Bermuda", "Bhutan", "Bolivia", "Bosnia and Herzegovina", "Botswana", "Brazil", "Brunei", "Bulgaria", "Burkina Faso", "Burundi", "Cambodia", "Cameroon", "..."))
)

# 绘制柱状图，旋转标签并调整边距
barplot(table(CountriesChart$NamesofC), 
        las = 2,  # las=2让标签垂直于x轴
        cex.names = 0.7,  # 缩小标签字号，节省空间
        mar = c(8, 4, 2, 2))  # 加大底部边距，给标签留足位置

方式二：自定义axis实现灵活角度 #

如果想让标签倾斜45度（比垂直更易读），可以先隐藏默认x轴，再手动添加：

# 先绘制不带x轴的柱状图
bp <- barplot(table(CountriesChart$NamesofC), 
              xaxt = "n",  # 关闭默认x轴
              mar = c(8, 4, 2, 2))

# 手动添加x轴标签，设置45度旋转
axis(1, at = bp, labels = levels(CountriesChart$NamesofC), 
     las = 1,  # 标签水平基础上旋转
     cex.names = 0.7,
     mgp = c(3, 1, 0),  # 调整标签与轴的距离
     angle = 45,  # 旋转角度
     hjust = 1)  # 标签右对齐，避免错位

2. 给长标签手动换行 #

像"Antigua and Barbuda"这种长名称，直接在标签里加换行符\n，把名称拆成两行，既不缩小字号也不用旋转：

# 修改国家列表，给长名称加换行
country_levels <- c("Afghanistan", "Albania", "Algeria", "American\nSamoa", "Andorra", "Angola", "Antigua and\nBarbuda", "Argentina", "Armenia", "Australia", "Austria", "Azerbaijan", "Bahrain", "Bangladesh", "Barbados", "Belarus", "Belgium", "Belize", "Benin", "Bermuda", "Bhutan", "Bolivia", "Bosnia and\nHerzegovina", "Botswana", "Brazil", "Brunei", "Bulgaria", "Burkina\nFaso", "Burundi", "Cambodia", "Cameroon", "...")

CountriesChart <- data.frame(
  NamesofC = factor(c(Countries), levels = country_levels)
)

# 绘制柱状图，标签水平显示即可
barplot(table(CountriesChart$NamesofC), 
        las = 1,  # 标签水平排列
        cex.names = 0.8,
        mar = c(6, 4, 2, 2))

3. 用ggplot2轻松搞定（更美观） #

如果习惯用ggplot2绘图，它处理标签适配会更智能，代码也简洁：

library(ggplot2)

ggplot(CountriesChart, aes(x = NamesofC)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 8)) +  # 45度旋转+右对齐
  labs(x = "Countries")

4. 缩小标签字号（应急方案） #

如果标签数量实在太多，适当缩小字号配合边距调整也能应急：

barplot(table(CountriesChart$NamesofC), 
        cex.names = 0.6,  # 字号缩小到原大小的60%
        mar = c(7, 4, 2, 2),
        las = 2)

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