R论文级水平条形图绘制：解决轴标签缺失与数值标注问题

针对你遇到的两个问题，以及正式场景的颜色优化，以下是修改后的R代码及说明：

完整代码 #

# 构造数据
df <- data.frame(
  Country = c("USA", "DEU", "CHN", "ITA", "JPN"),
  Stock = c(1000, 500, 15000, 300, 600)
)

# 调整绘图边距，确保y轴标签有足够显示空间
par(mar = c(4, 4, 1, 8))

# 绘制符合正式规范的水平条形图
bar_pos <- barplot(df$Stock, 
                   horiz = TRUE, 
                   names.arg = df$Country,
                   col = "#4a5568",  # 低饱和度深灰色，适配学术场景
                   xlab = "Stock Value",
                   ylab = "Country",
                   las = 1)  # y轴标签水平排列，提升可读性

# 在条形右侧添加Stock数值标签
text(x = df$Stock + 300,  # 偏移量避免数值与条形重叠
     y = bar_pos,
     labels = df$Stock,
     cex = 0.9)  # 微调字体大小匹配图表

问题解决说明 #

• y轴国家名称完整显示：

  1. 通过par(mar = c(4,4,1,8))增大右侧边距，给长标签预留空间；
  2. 使用names.arg直接指定y轴标签，替代原公式写法的隐式映射；
  3. las=1参数让y轴标签水平显示，避免垂直排列时被截断。

• 条形右侧添加数值：
  barplot函数会返回每个条形的中心y坐标（存储在bar_pos中），结合text函数，将数值放在条形末端的右侧（通过df$Stock + 300设置偏移量），确保数值清晰不重叠。

• 正式场景颜色优化：
  选用低饱和度的深灰色#4a5568，避免鲜艳色彩干扰阅读，符合学术论文的严谨风格；若需要区分条形，可使用渐变灰色（如gray.colors(5, start=0.4, end=0.8)），保持视觉一致性。

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