如何很好地重新调整晶格数字？

Question

在准备打印数据时，我经常需要使它们比屏幕上显示的要小得多。将数字降低到几厘米的范围并不罕见。使用标准图形包par(cex=...)可以缩小整个绘图以适应这么小的区域并且看起来仍然成比例。是否有与格子包相同的内容？

基本上，如何在右侧面板的大小中绘制下图，但保留左侧面板的比例？

这个问题时不时地发生在我身上，通常我会在放弃并使用标准图形重新绘制整个图形之前尝试使用trellis.par.get和trellis.par.set。 >非常乏味。在发现trellis.par.set(simpleTheme(cex=...))时，我以为自己已经打了金币，但它似乎没有做任何事情。

澄清

我想重新缩放图中的所有内容，包括字体大小，边距和刻度尺寸。很多。我知道我可以简单地调整pdf(height=..., width=...)以获得我喜欢的比例，然后在排版中重新缩放它，例如InDesign或文字处理器，但我觉得如果每个pdf都有嵌入文件中的预期尺寸，我会得到更好的控制。

Answer 1

简介

有几种方法可以缩放格子图的元素大小。一种选择是更改采用cex属性的所有参数，另一种选项是更改绘制所有内容的基础fontsize。您想要的解决方案就是后者，您将在一分钟内看到，但是通过par.settings参数查看如何影响绘图的各个组件也是有益的，因为您可能希望定制应用的相对缩放设置fontsize时单个组件。

TL：博士

使用@Andrie's Answer

中的示例图

require(lattice)
plt <- xyplot(decrease ~ treatment, OrchardSprays, groups = rowpos,
              type = "a",
              auto.key = list(space = "right", points = FALSE, lines = TRUE))

设置fontsize参数，一个包含组件text和points的列表，这些列表定义了生成所有其他绘图家具的这两个关键绘图元素的基本大小。

update(plt, par.settings = list(fontsize = list(text = 8, points = 4)))

（在150px×200px PNG光栅设备上渲染）。

为情节家具的特定项目设置单独的cex参数

需要注意的一点是，莱迪思图的外观由trellis.par.get()

返回的整个参数流控制

> thm <- trellis.par.get()
> str(thm, max = 1)
List of 35
 $ grid.pars        : list()
 $ fontsize         :List of 2
 $ background       :List of 2
 $ panel.background :List of 1
 $ clip             :List of 2
 $ add.line         :List of 4
 $ add.text         :List of 5
 $ plot.polygon     :List of 5
 $ box.dot          :List of 5
 $ box.rectangle    :List of 5
 $ box.umbrella     :List of 4
 $ dot.line         :List of 4
 $ dot.symbol       :List of 5
 $ plot.line        :List of 4
 $ plot.symbol      :List of 6
 $ reference.line   :List of 4
 $ strip.background :List of 2
 $ strip.shingle    :List of 2
 $ strip.border     :List of 4
 $ superpose.line   :List of 4
 $ superpose.symbol :List of 6
 $ superpose.polygon:List of 5
 $ regions          :List of 2
 $ shade.colors     :List of 2
 $ axis.line        :List of 4
 $ axis.text        :List of 5
 $ axis.components  :List of 4
 $ layout.heights   :List of 19
 $ layout.widths    :List of 15
 $ box.3d           :List of 4
 $ par.xlab.text    :List of 5
 $ par.ylab.text    :List of 5
 $ par.zlab.text    :List of 5
 $ par.main.text    :List of 5
 $ par.sub.text     :List of 5

其中许多会影响绘制的对象的大小和注释中使用的文本。您需要修改所有适当的设置，并仅将这些设置作为列表传递给par.settings()。这是缩放@Andrie示例图的一个例子：

CEX <- 0.5

pset <- list(superpose.symbol = list(cex = CEX),
             plot.symbol      = list(cex = CEX),
             par.sub.text     = list(cex = CEX),
             par.main.text    = list(cex = CEX),
             par.zlab.text    = list(cex = CEX),
             par.ylab.text    = list(cex = CEX),
             par.xlab.text    = list(cex = CEX),
             dot.symbol       = list(cex = CEX),
             box.dot          = list(cex = CEX),
             add.text         = list(cex = CEX),
             axis.text        = list(cex = CEX))
plt2 <- update(plt, par.settings = pset)

使用 gridExtra 包在同一设备上排列两个点阵图，我们可以看到所有这些的效果：

require("gridExtra")  ## loads package:grid too
grid.arrange(plt, plt2, ncol = 2)

导致

所以现在（差不多）一切都已缩放。一个有趣的事情是，这种方法没有缩放图例中线条的长度和刻度线长度。注意图的大小，每个子图的面积是相同的。然而，我们可以用更小的尺寸绘制整个事物：

这是合理的，并且在基于矢量的设备（例如pdf()）上呈现的效果要好于我在此处必须使用的栅格png()。第二个图是在一个150px到200px的设备上。

设置基础fontsize以控制整体缩放

有一种更简单的方法，那就是通过fontsize参数为文本和点设置基本字体大小。默认值为：

> trellis.par.get("fontsize")
$text
[1] 12

$points
[1] 8

这些会影响绘图上的所有内容，因此我们可以缩小这些内容以达到设置所有其他设置的类似效果。

update(plt, par.settings = list(fontsize = list(text = 8, points = 4)))

产生

这是在与之前的图2相同大小的png()设备上绘制的。注意边距是如何调整的，以便更好地缩放绘图。因此，我们不仅影响了我们之前更改的所有设置，还影响了绘图中的其他位（例如间距和刻度标记），这些位也从fontsize设置中获取了队列。再次，在矢量设备上绘制这些将产生更好的输出。

Answer 2

您需要将cex=...传递给图例/键，而不是整个图：

这是默认值：

xyplot(decrease ~ treatment, OrchardSprays, groups = rowpos,
       type = "a",
       auto.key =
         list(space = "right", points = FALSE, lines = TRUE))

在密钥中使用cex=0.25时比较结果：

xyplot(decrease ~ treatment, OrchardSprays, groups = rowpos,
       type = "a",
       auto.key =
         list(space = "right", points = FALSE, lines = TRUE, cex=0.25))