R语言：如何使用单列数据绘制包含14个指定分组的条形图

核心注意点：你需要先把该列转为指定顺序的因子，否则绘图时会自动按数值大小排序，10和96之间会出现大量空白条形。 #

前置准备 #

如果你还没把数据导入R，单列csv文件可以用以下代码导入：

df <- read.csv("你的文件路径.csv", header = FALSE, col.names = "val")

假设你的数据存在数据框df中，目标单列的列名为val，先执行以下代码调整变量类型：

# 自定义你要保留的取值顺序
target_levels <- c(1:10, 96:98)
# 将目标列转为指定顺序的因子，不在列表里的取值会转为NA自动忽略
df$val <- factor(df$val, levels = target_levels)

方法1：用R基础绘图函数实现（无需安装额外包） #

直接用barplot()函数配合计数函数table()即可：

# 先分组计数
count_data <- table(df$val)
# 绘制条形图
barplot(count_data,
        xlab = "取值",
        ylab = "计数",
        main = "取值分布条形图")

方法2：用ggplot2包实现（更美观，自定义空间大） #

如果还没安装ggplot2，先执行install.packages("ggplot2")安装，之后运行绘图代码：

library(ggplot2)

ggplot(df, aes(x = val)) +
  geom_bar(fill = "steelblue") +
  labs(x = "取值", y = "计数", title = "取值分布条形图") +
  theme_minimal()

常见问题排查 #

• 如果出现条形数不对：检查原始数据里是否存在你指定的14个取值之外的数值，这些值会被转为NA，不会出现在图中
• 如果x轴标签顺序不对：确认factor()函数里的levels参数是否正确传入了c(1:10,96:98)

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