如何使用Base R自定义单独排序条形图变量（非数量/字母序）

要实现条形图变量的自定义排序（而非按数量或字母顺序），核心是将目标变量转换为指定水平顺序的因子（factor）——直接用order()或sort()无法改变分类变量的固有排序逻辑。以下是具体实现步骤：

1. 修正数据中的笔误（可选但必要） #

你的数据存在两处明显错误，建议先修正避免后续问题：

• 第19、20行的Question1值为n，应为no的笔误
• 列名Qestion2拼写错误，应为Question2

修正代码：

# 修正Question1的笔误
example_1$Question1[example_1$Question1 == "n"] <- "no"
# 修正列名拼写
colnames(example_1)[colnames(example_1) == "Qestion2"] <- "Question2"

2. 定义自定义排序并转换为因子 #

假设你想要的排序是yes → partial → no → na，只需将该顺序传入factor()的levels参数，强制指定分类顺序：

# 自定义排序规则（可根据需求修改）
custom_order <- c("yes", "partial", "no", "na")
# 将Question1转换为指定水平的因子
example_1$Question1 <- factor(example_1$Question1, levels = custom_order)

3. 绘制自定义排序的条形图 #

此时table()会严格按照你设定的顺序统计频数，barplot()也会沿用该顺序绘制：

png(file="question1.png", width=1200, height=900)
barplot(table(example_1$Question1), main = "question1")
dev.off()

完整可运行代码 #

如果还未加载数据，可先构造数据再执行上述步骤：

# 构造原始数据
example_1 <- data.frame(
  Question1 = c("yes", "no", "yes", "yes", "partial", "yes", "partial", "no", "no", "no", "no", "yes", "yes", "na", "na", "na", "yes", "yes", "n", "n"),
  Qestion2 = c("partial", "yes", "yes", "yes", "no", "partial", "no", "yes", "na", "no", "partial", "no", "na", "partial", "partial", "na", "yes", "no", "no", "no")
)

# 修正数据错误
example_1$Question1[example_1$Question1 == "n"] <- "no"
colnames(example_1)[colnames(example_1) == "Qestion2"] <- "Question2"

# 自定义排序并转换为因子
custom_order <- c("yes", "partial", "no", "na")
example_1$Question1 <- factor(example_1$Question1, levels = custom_order)

# 生成条形图
png(file="question1.png", width=1200, height=900)
barplot(table(example_1$Question1), main = "question1")
dev.off()

关键原理 #

• 字符型变量默认按字母顺序排序，而因子允许通过levels参数强制定义分类的展示顺序
• table()和barplot()会完全遵循因子的水平顺序输出结果，从而实现自定义排序

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