Hey Gabriela，我看了你遇到的问题——用barplot()绘制性别对应的李克特选项分布时，想把y轴从原始计数改成占总226名受访者的百分比，而且还想摆脱手动输入文本标签的麻烦对吧？咱们一步步来搞定这个问题：

核心思路 #

原来的table()返回的是各组合的计数，我们需要先把这些计数转换成占总人数的百分比，再用转换后的数据绘图，这样y轴自然就会显示百分比，还能自动生成标签。

完整解决方案代码 #

# 1. 计算性别与选项的交叉计数表，再转换为百分比（占总226人的比例）
count_table <- table(Short$Gen, Short$optq18)
perc_table <- prop.table(count_table) * 100  # prop.table默认按全表比例，乘100转百分比

# 2. 绘制条形图，先自定义y轴相关设置
# 先获取条形位置（不提前绘图，只拿位置信息）
bar_pos <- barplot(perc_table, beside = TRUE, 
                   cex.names = 0.7, 
                   legend.text = c("Male", "Female"), 
                   args.legend = list(x = 3.5, y = max(perc_table) + 2, cex = 0.8), # 图例移到最高条上方
                   col = c("bisque1", "cyan4"), 
                   xlab = "It is important to control monthly expenses", 
                   ylab = "Percentage",
                   ylim = c(0, max(perc_table) + 5), # 给顶部留空间放标签/图例
                   yaxt = "n") # 关闭默认y轴，自定义百分比刻度

# 3. 添加自定义的百分比y轴刻度
axis(2, at = seq(0, max(perc_table) + 5, by = 5), 
     labels = paste0(seq(0, max(perc_table) + 5, by = 5), "%"))

# 4. 自动添加每个条形的百分比标签（替代手动输入）
for (i in 1:nrow(perc_table)) {
  text(bar_pos[i,], perc_table[i,] + 0.5,  # 标签放在条形上方0.5的位置
       round(perc_table[i,], 2),  # 保留两位小数，更美观
       cex = 0.6)
}

关键细节说明 #

• 百分比转换：prop.table(count_table)会计算每个单元格占整个表格的比例，乘以100后就是该类别占总226名受访者的百分比，完全符合你的需求；
• 自定义y轴：关闭默认y轴后，我们用axis()生成带%符号的刻度，让图表更直观；
• 自动标签：通过barplot(plot = FALSE)获取条形的位置坐标，再循环添加标签，再也不用手动计算每个数值的位置和百分比，既准确又高效；
• 图例位置：把图例移到最高条形的上方，避免遮挡图表内容。

这样调整后，你的条形图y轴就会直接显示百分比，所有标签也会自动生成，完美解决你遇到的问题~

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