6

我目前正在使用 ggplot2 来比较来自不同组的统计数据，每个组属于不同的区域。这是通过运行 R 脚本的 Web 应用程序（tikiwiki CMS + 插件 R）完成的。每个区域我可以有 2 到 30 个或更多组。对唯一网页中的所有数据运行相同的 R 脚本，结果根据所选区域进行调整 - 作为页面的参数。

目前，我有这个：

region 1: 12 groups = 12 medium facets
region 2: 3 groups = 3 **HUGE** facets
region 3: 24 groups = 24 **TINY** facets
region 4: 16 groups = 16 medium facets
...

区域 2

少组

区域 3

更多组

我想要什么样的结果是：

区域 2

在此处输入图像描述

区域 3 保持不变

我使用facet_wrap(~data, ncol=4)对每个组进行分面，所以我可以有 2 个或 30 多个方面。我的问题是输出：要么 30 个面被塞进一个小盒子里，要么两个面在同一个大小的盒子里过大 -> 见上面的图片......我找不到如何修复比率（或图像输出最大宽度）但保持最终图片大小免费。

在 ggplot2 / R 中是否可以为构面修复默认大小并使生成的图片的大小适应构面的数量？

如果这在 ggplot2 / R 中是不可能的，是否有任何 javascript/jquery 库可以获取代码并正确显示结果（d3，...）？

4

1 回答 1

5

您可以编辑 gtable 将高度设置为物理单位（例如 cm）而不是相对（“null”）

require(ggplot2)
p = qplot(Sepal.Width, Sepal.Length, data=iris) + facet_wrap(~Species, ncol=1)
g = ggplotGrob(p)

panels = which(sapply(g[["heights"]], "attr", "unit") == "null")
g[["heights"]][panels] = list(unit(4, "cm"), unit(8, "cm"), unit(2, "cm"))

device.height = convertHeight(sum(g[["heights"]]), "in", valueOnly=TRUE)

pdf("test.pdf", height = device.height)
grid.draw(g)
dev.off()

在此处输入图像描述

编辑作为后续，这是一个将所有面板的高度和宽度设置为固定值的函数，

freeze_panels <- function(p, draw=TRUE,
                          width=unit(5,"cm"),
                          height=unit(1,"in")){
  require(grid)
  g  <-  ggplotGrob(p)

  vertical_panels <-which(sapply(g[["heights"]], "attr", "unit") == "null")
  horizontal_panels <-which(sapply(g[["widths"]], "attr", "unit") == "null")

  g[["heights"]][vertical_panels] <- replicate(length(vertical_panels), 
                                               height, simplify=FALSE)

  g[["widths"]][horizontal_panels] <- replicate(length(horizontal_panels), 
                                               width, simplify=FALSE)

  device.height  <-  convertHeight(sum(g[["heights"]]), "in", valueOnly=TRUE)
  device.width  <-  convertWidth(sum(g[["widths"]]), "in", valueOnly=TRUE)
  if(draw){
    dev.new(height=device.height, width=device.width)
    grid.newpage()
    grid.draw(g)
  }
  invisible(g)
}



require(ggplot2)
d1 <- subset(mtcars, carb != 8)
d2 <- subset(mtcars, carb %in% c(1,2,3))
p = qplot(vs, am, data=d1) + facet_wrap(~carb)

freeze_panels(p)
freeze_panels(p %+% d2)
freeze_panels(p %+% d2 + facet_wrap(~carb, ncol=1))
于 2013-10-14T13:38:18.903 回答