如何使用R语言ggplot包绘制指定样式的条形图

1. 准备数据 #

先确认你的数据集结构，以下是两种常见场景的示例数据，替换为你的真实数据即可：

• 单组条形图数据：

df <- data.frame(
  类别 = c("A", "B", "C", "D", "E"),
  数值 = c(12, 25, 18, 30, 22)
)

• 分组条形图数据（如果目标图是分组样式）：

df_group <- data.frame(
  类别 = rep(c("A", "B", "C"), each = 2),
  分组 = rep(c("组1", "组2"), 3),
  数值 = c(10, 15, 20, 22, 18, 25)
)

2. 加载ggplot2包 #

library(ggplot2)

3. 绘制基础条形图 #

单组条形图

如果数据是已汇总好的数值，用geom_col()；若需统计类别计数，改用geom_bar(stat = "count")：

p <- ggplot(df, aes(x = 类别, y = 数值)) +
  geom_col(fill = "#2E86AB")  # 替换为目标图的条形填充色

分组条形图

添加分组映射并设置并列显示：

p_group <- ggplot(df_group, aes(x = 类别, y = 数值, fill = 分组)) +
  geom_col(position = position_dodge(width = 0.8)) +  # 控制分组间距
  scale_fill_manual(values = c("#2E86AB", "#F24C4C"))  # 自定义分组颜色

4. 匹配目标图样式调整 #

根据目标图的细节调整样式，比如标题、坐标轴、主题等：

# 以单组图为例调整样式
p <- p +
  labs(
    title = "你的条形图标题",
    x = "X轴标签",
    y = "Y轴标签"
  ) +
  theme_minimal() +  # 可选theme_bw()等其他主题匹配目标风格
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),  # 标题居中加粗
    axis.text.x = element_text(angle = 45, hjust = 1),  # X轴标签旋转45度
    axis.title = element_text(size = 12),
    panel.grid.major.y = element_line(color = "#E0E0E0"),  # 调整Y轴网格线
    panel.grid.major.x = element_blank()  # 隐藏X轴网格线
  )

# 添加数据标签（如果目标图有此元素）
p <- p + geom_text(aes(label = 数值), vjust = -0.3, size = 4)

# 显示图形
print(p)

额外功能（按需添加） #

• 若需要误差线：确保数据包含误差上下限，再添加geom_errorbar()：

p <- p + geom_errorbar(
  aes(ymin = 数值 - 2, ymax = 数值 + 2),  # 替换为你的真实误差值
  width = 0.2,
  color = "#333333"
)

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