R：按比例缩放ggplot2，晶格或基本R图的功能

Question

在 R 中，我总是觉得烦人的是，基本 R、lattice 和 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() 访问），并缩放所有以任意百分比绘制符号和文本以及线宽，从而允许以任何大小导出图形，同时仍保持相同的外观？ IE。在保持外观不变的同时按比例缩放整个图形到更大或更小的尺寸的函数？

PSthe 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

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

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)))