在ggplot2中移除主题并保留数据比例的同时删减部分数据

核心思路是先渲染完整绘图得到grob对象，再单独提取目标元素的grob，结合原图的布局参数生成干净的SVG，既避免直接修改图层导致的位置偏移，又能消除冗余元素。

步骤1：生成完整绘图并转换为grob #

先创建原始绘图，再用ggplotGrob()将其转为grob对象，这样就能访问底层的图形元素和布局信息：

library(ggplot2)
library(grid)

# 示例数据
d <- data.frame(group = c("A", "B", "C"),
                value = c(10, 15, 5))

# 原始绘图（可包含任意theme修改）
g1 <- ggplot() +
  geom_col(data = d,
           aes(x = group, 
               y = value,
               fill = group)) +
  theme_bw()

# 转换为grob对象
g1_grob <- ggplotGrob(g1)

步骤2：定位目标柱子的grob #

柱子的图形元素藏在panel的子grob里，我们可以通过名称匹配找到它：

# 提取panel对应的grob
panel_grob <- g1_grob$grobs[[which(sapply(g1_grob$grobs, function(x) x$name) == "panel")]]

# 找到geom_col对应的矩形grob
bar_grobs <- panel_grob$children[[which(sapply(panel_grob$children, function(x) x$name) == "geom_rect")]]

# 每个柱子对应bar_grobs$grobs里的一个元素：索引1=A组，2=B组，3=C组

步骤3：批量生成单个柱子的SVG #

基于原图的布局参数，创建仅含目标柱子的grob，再输出为SVG：

# 定义批量导出函数
export_single_bar_svg <- function(bar_index, output_path) {
  # 创建空绘图，保留原图的坐标轴范围（保证位置匹配）
  empty_plot <- ggplot() +
    geom_blank(data = d, aes(x = group, y = value)) +
    theme_void() +
    scale_x_discrete(limits = levels(d$group)) +
    scale_y_continuous(limits = c(0, max(d$value)))
  
  # 转为空绘图的grob
  empty_grob <- ggplotGrob(empty_plot)
  
  # 替换panel的子元素为目标柱子的grob
  panel_pos <- which(sapply(empty_grob$grobs, function(x) x$name) == "panel")
  empty_grob$grobs[[panel_pos]]$children <- list(bar_grobs$grobs[[bar_index]])
  
  # 输出SVG，使用原图的宽高参数
  svg(output_path, width = g1_grob$width, height = g1_grob$height)
  grid.draw(empty_grob)
  dev.off()
}

# 生成三个单独的SVG文件
export_single_bar_svg(1, "bar_A.svg")
export_single_bar_svg(2, "bar_B.svg")
export_single_bar_svg(3, "bar_C.svg")

关键细节 #

• 位置精准匹配：通过保留原图的坐标轴范围和布局尺寸，单个柱子的位置、大小和原图完全一致，不会出现过滤数据后坐标轴重排导致的偏移。
• 无冗余SVG：仅保留目标柱子的图形元素，theme_void()移除了所有默认的坐标轴、网格等元素，输出的SVG干净无冗余代码。
• 适配自定义theme：不管原始绘图有多少theme修改，只要基于ggplotGrob()提取元素，就能继承原图的布局参数，无需额外调整。

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