R语言如何利用treemap坐标将不同尺寸ggplot放置到网格指定位置

你可以通过R原生grid包实现该需求，完全适配treemap动态生成的坐标，无需手动配置布局参数，核心逻辑是：treemap返回的x0（x轴起始）、y0（y轴起始）、w（宽度）、h（高度）均为0-1区间的相对坐标，和grid绘图系统的视口坐标体系完全匹配，遍历每个区块创建对应视口，将ggplot输出到对应视口即可。

完整可运行代码 #

library(ggplot2)
library(treemap)
library(grid)

# 示例数据
df <- data.frame(var1 = c("A", "B", "C"),
                 var2 = runif(3),
                 var3 = runif(3),
                 var4 = runif(3),
                 size = c(10, 5, 3),
                 labels = c(1:3))

# 生成三个条形图
p1 <- ggplot(data=df, aes(x=var1, y=var2)) +
  geom_bar(stat="identity")
p2 <- ggplot(data=df, aes(x=var1, y=var3)) +
  geom_bar(stat="identity")
p3 <- ggplot(data=df, aes(x=var1, y=var4)) +
  geom_bar(stat="identity")

# 生成treemap获取坐标
tm <- treemap(df,
              index = "labels",
              vSize = "size",
              palette = "Set2")

# 按treemap的labels顺序存储ggplot对象
plot_list <- list(p1, p2, p3)

# 新建空白绘图页
grid.newpage()

# 遍历所有treemap区块，自动放置对应图表
for (i in seq(nrow(tm$tm))) {
  current_block <- tm$tm[i, ]
  # 创建对应位置大小的视口，左下角对齐匹配treemap的x0/y0定义
  current_vp <- viewport(
    x = current_block$x0,
    y = current_block$y0,
    width = current_block$w,
    height = current_block$h,
    just = c("left", "bottom")
  )
  pushViewport(current_vp)
  # 可选：添加treemap原生背景色和边框，更贴近树图视觉效果
  grid.rect(gp = gpar(fill = current_block$color, col = "white", lwd = 2))
  # 打印图表到当前视口
  print(plot_list[[as.integer(current_block$labels)]], vp = current_vp)
  popViewport()
}

批量场景适配提示 #

如果实际场景中图表数量多，不需要手动逐个定义p1/p2/p3，可以用lapply批量生成ggplot对象存入列表，只要保证列表顺序和treemap的labels顺序一致即可，示例如下：

# 批量生成所有条形图
plot_cols <- c("var2", "var3", "var4")
plot_list <- lapply(plot_cols, function(col) {
  ggplot(data=df, aes(x=var1, y=.data[[col]])) +
    geom_bar(stat="identity")
})

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