如何让R基础barplot样式趋近ggplot2？含轴与条形调整需求

以下是针对需求，将R基础绘图的barplot调整为趋近ggplot2样式的具体实现：

关键调整点 #

• 条形与间距控制：通过barplot()的width（条形宽度）和space（条形间间距）参数精准控制，同时用xlim缩小条形与y轴的空白
• 坐标轴样式对齐：移除默认绘图边框，仅保留x、y轴线条；设置y轴刻度文本右对齐，与ggplot2一致
• 样式细节匹配：统一填充色、移除冗余元素、设置坐标轴文本为黑色，调整绘图边距

完整代码 #

# 准备数据
d.f <- data.frame(group = c("a","b","c","d"), val = c(150,120,100,60))

# 打开绘图设备（和你的ggplot2设置一致）
dev.new(width=30.95625, height=16.16604, units="cm", res=300)

# 先绘制barplot，保存条形位置用于后续调整
bp <- barplot(
  d.f$val,
  col = c("red","red","blue","blue"),
  width = 0.5,          # 匹配ggplot2的条形宽度
  space = 0.2,          # 控制条形间间距
  ylim = c(0, 200),     # y轴范围和ggplot2一致
  axes = FALSE,         # 手动绘制坐标轴，方便自定义
  xlab = "",            # 先不设置x轴标签，后续调整位置
  names.arg = c("a","b","c","d"),
  xlim = c(-0.3, length(d.f$val) + 0.2)  # 缩小左边空白，让条形贴近y轴
)

# 绘制y轴：右对齐刻度文本，仅保留轴线
axis(2, las = 1, col = "black", col.axis = "black", hadj = 1)
# 绘制x轴：设置刻度位置为条形中心
axis(1, at = bp, labels = d.f$group, col = "black", col.axis = "black")

# 添加x轴标签，调整位置贴近ggplot2
mtext("group", side = 1, line = 2.5, col = "black")

# 添加坐标轴线条（模拟ggplot2的axis.line）
abline(h = 0, col = "black", lwd = 1)  # y轴基线
abline(v = bp[1] - 0.25, col = "black", lwd = 1)  # 左侧y轴线条

# 移除默认的绘图边框
box(bty = "n")

# 调整绘图边距，匹配ggplot2的plot.margin（cm转英寸）
par(mar = c(0.2*2.54, 0.2*2.54, 0.2*2.54, 0.2*2.54))

效果说明 #

调整后的barplot会实现：

• 条形宽度、间距与你的ggplot2版本一致
• 条形贴近y轴，消除多余空白
• 仅显示x、y轴线条，无额外边框
• y轴刻度文本右对齐，所有文本为黑色
• 填充色完全匹配你的设置

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