求助：使用R与ggplot2复刻条形图及图表组合实现方案

一、基础准备（修正包依赖） #

你代码里的library(ggplot)是笔误，正确包加载如下：

library(ggplot2)
library(tidyverse)
library(ggthemes)
# 二选一加载组合工具
library(patchwork) # 语法更简洁
# library(cowplot) # 布局控制更灵活

二、单图表复刻核心流程 #

• 数据预处理：用tidyverse的dplyr/tidyr把数据转换成ggplot友好的长格式（这是复刻图表的关键，避免因数据格式不对导致图层映射失败）
• 基础图层搭建：用ggplot()初始化画布，aes()映射x/y/颜色/分组等变量，再根据目标图表类型添加几何图层（比如geom_line/geom_bar/geom_boxplot等）
• 样式优化：直接调用ggthemes内置主题（如theme_fivethirtyeight()/theme_economist()/theme_wsj()）快速统一风格，再通过theme()自定义坐标轴、标题、图例的细节

三、图表组合实现 #

方法1：用Patchwork（推荐，语法极简） #

直接用+（横向拼接）或/（纵向拼接）组合图表，还能通过plot_layout()调整布局比例，plot_annotation()添加整体标题：

# 假设p1、p2是你已经做好的两个独立图表
combined_patch <- p1 + p2 +
  plot_layout(ncol = 2, widths = c(1.2, 0.8)) # 自定义列宽比例
  plot_annotation(
    title = "整体图表标题",
    subtitle = "副标题",
    theme = theme(plot.title = element_text(size = 16, face = "bold"))
  )

方法2：用Cowplot（适合复杂布局） #

用plot_grid()控制子图排列，draw_plot_label()添加子图标签，theme_cowplot()统一全局样式：

# 组合子图
combined_cow <- plot_grid(
  p1, p2,
  ncol = 2, # 2列排列
  labels = c("A", "B"), # 子图标签
  label_size = 12
)
# 添加全局标题
final_plot <- ggdraw() +
  draw_label("整体图表标题", fontface = "bold", size = 16) +
  draw_plot(combined_cow, y = -0.05) # 调整子图位置避免遮挡标题

四、完整示例代码 #

# 加载依赖包
library(ggplot2)
library(tidyverse)
library(ggthemes)
library(patchwork)

# 模拟复刻用的示例数据
trend_data <- tibble(
  month = month.abb[1:12],
  sales = rnorm(12, 1000, 150)
)
category_data <- tibble(
  product = c("手机", "平板", "电脑", "配件"),
  market_share = c(45, 20, 25, 10)
)

# 复刻第一个图表：月度销量折线图
p1 <- ggplot(trend_data, aes(x = factor(month, levels = month.abb), y = sales)) +
  geom_line(group = 1, color = "#2d3436", linewidth = 1.2) +
  geom_point(color = "#e17055", size = 3) +
  theme_fivethirtyeight() +
  labs(x = "月份", y = "销量", title = "月度销量趋势") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

# 复刻第二个图表：市场份额柱状图
p2 <- ggplot(category_data, aes(x = reorder(product, -market_share), y = market_share)) +
  geom_bar(stat = "identity", fill = "#0984e3") +
  theme_economist() +
  labs(x = "产品类别", y = "市场份额(%)", title = "产品市场占比")

# 组合图表
final_combined <- p1 + p2 +
  plot_layout(ncol = 2) +
  plot_annotation(title = "2023年数码产品销售分析", theme = theme(plot.title = element_text(hjust = 0.5, size = 18)))

print(final_combined)

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