柱状图X轴缺失：如何为美国各州龙卷风计数图添加州标签

你遇到的核心问题是base R的barplot()不会自动读取数据框中的州名作为X轴标签，必须显式通过names.arg参数指定。以下是修正后的完整代码，结合你需求的Y轴设置和标签优化：

# 使用提供的statecount数据
statecount <- structure(list(
  st = c("TX", "KS", "OK", "FL", "NE", "IA", "IL", "MS", "MO", "AL"), 
  n = c(9055L, 4338L, 4029L, 3464L, 2923L, 2654L, 2609L, 2401L, 2381L, 2293L)), 
  row.names = c(NA, 10L), class = "data.frame")

# 绘制柱状图，指定X轴标签为statecount$st
barplot(statecount$n, 
        yaxt = "n", 
        names.arg = statecount$st,  # 关键：指定X轴标签
        las = 2,  # 旋转X轴标签为垂直方向，避免重叠
        cex.names = 0.8)  # 缩小标签字体

# 设置Y轴
axis(side=2, las=1, at=seq(0, 10000, by=1000))

关键参数说明： #

• names.arg = statecount$st：直接将数据框中的州名向量传递给X轴，这是让标签显示的核心步骤。
• las=2：将X轴标签旋转90度，避免州名过多时重叠（你之前尝试这个参数无效，是因为没先指定names.arg）。
• cex.names：专门用于调整X轴标签的字体大小（cex.axis是调整坐标轴刻度数字的大小，不是标签）。

如果需要进一步优化图表可读性，还可以添加标题、调整间距：

barplot(statecount$n, 
        yaxt = "n", 
        names.arg = statecount$st,
        las = 2,
        cex.names = 0.8,
        main = "1950-2020年美国各州龙卷风总数",
        ylab = "龙卷风数量",
        xlab = "州",
        mar = c(6, 4, 4, 2)  # 调整底部边距，避免标签被截断
)
axis(side=2, las=1, at=seq(0, 10000, by=1000))

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