如何显示保存的树形图对象？包括MWE吗？

Question

这可能是一个愚蠢的问题，但有谁知道在 R 中生成树形图对象后如何显示它？考虑下面的代码：

loadpackages <-function(package.list = c("ggplot2", "Rcpp")) {new.packages <-package.list[!(package.list %in% installed.packages()[, "Package"])]
    if (length(new.packages))
      install.packages(new.packages, repos = 'http://cran.us.r-project.org')
    lapply(eval(package.list), require, character.only = TRUE)}
loadpackages(c("treemap"))

data(GNI2014)
tm = treemap(
  GNI2014,
  index = c("continent", "iso3"),
  vSize = "population",
  vColor = "GNI",
  draw = FALSE, # comment this line out to see the treemap
  type = "value"
)

这不会产生任何图形，但会保存“树形图列表”。有谁知道我如何显示这个对象？

PS：我的动机是在生成特定的树形图后修改一些分类标签（添加百分比），但我无法从树顶对象的显示中生成绘图。

Answer 1

查看源代码，它似乎没有存储足够的信息来允许重新绘制。这treemap()是因为它会产生副作用而被调用。鉴于此，我不知道draw=FALSE如果以后无法绘制它，他们为什么还有选择。

即使官方功能不允许，您也可以破解该功能。我们可以修改该函数以返回它传递给绘图的所有参数。这是经过测试的版本treemap_2.4-1

treemap2 <- treemap
drawcall <- body(treemap)[[c(85,3,2)]]
drawcall[[1]] <- quote(list)
savelist <- as.list(body(t2)[[c(90,3)]])
savelist[["drawparam"]] <- drawcall
body(treemap)[[c(90,3)]] <- as.call(savelist)

然后你可以像以前一样调用该函数

tm <- treemap2(
  GNI2014,
  index = c("continent", "iso3"),
  vSize = "population",
  vColor = "GNI",
  draw = FALSE,
  type = "value"
)

现在用于绘制函数的所有参数都存储在tm$drawparam. 它使用隐藏函数tmDrawRect来完成所有绘图，但您可以使用以下命令调用它

do.call(treemap:::tmDrawRect, tm$drawparam)

使用存储在对象中的数据。如果您更改其中的任何数据tm$drawparam，将直接影响绘图。