R:按比例缩放ggplot2、晶格或基础R图的函数

Question

在R中，我总是觉得基础R、格子和ggplot2图都与文本和绘图符号大小的绝对点大小一起工作，这很烦人。

这意味着，如果您增加绘图窗口的大小，以从中获得页面填充图形

windows(width=5,height=5);qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7))

至

windows(width=10,height=10);qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7))

文本和绘图符号的相对比例相对于其他符号发生了变化。这同样适用于基数R和点阵图。

在我正在编写的一些图形导出函数的上下文中，我想知道是否有可能编写一个函数，该函数将获取当前图形设备(可以使用recordPlot()访问)的输出，并将所有绘图符号和文本以及线宽缩放任意%，从而允许以任何大小导出图形，同时保持相同的外观？也就是说，在保持外观不变的情况下，将整个图形按比例缩放到更大或更小的大小？

PS the same would be required to be able to scale the RStudio plot window on high DPI 4K screens and still make it legible (right now RStudio uses pixel doubling but this makes the plot window look really fuzzy, and also causes problems in combination with Cleartype on Windows, causing colour fringing).

Answer 1

由于某些原因，磅大小被编码为fontsize，因此将其转换为自动缩放的单位似乎并不容易。如果您知道要应用哪种缩放方式，那么以下内容可能会有所帮助

library(ggplot2)
p <- qplot(Sepal.Length, Petal.Length, data = iris, 
           geom=c("point","line"),
           color = Species, size = Petal.Width, alpha = I(0.7))

library(gtable)
library(grid)

g <- ggplotGrob(p)
pts <- g$grobs[[4]][["children"]][[2]] # geom_point layer
lns <- g$grobs[[4]][["children"]][[3]] # geom_line layer
g$grobs[[4]][["children"]][[2]] <- editGrob(pts, size=1.2*pts$size)
gp <- modifyList(lns$gp, list(lwd=1.2*lns$gp$lwd))
g$grobs[[4]][["children"]][[3]] <- editGrob(lns, gp=gp)

grid.newpage()
grid.draw(g)

​

​

Answer 2

这似乎更接近你的最终目标。

library(ggplot2)
p <- qplot(Sepal.Length, Petal.Length, data = iris, 
           geom=c("point","line"),
           color = Species, size = Petal.Width, alpha = I(0.7))
library(grid)
print(p, vp=viewport(gp=gpar(cex=2, lex=2)))