Question

我正在尝试将茎叶图输出到图形设备。它向设备输出正常，但问题只是图形设备中绘图的一部分。如何缩放图以适应图形设备（窗口）？

library(aplpack)

 plot.new()
 flint <- c(44.6, 25.7, 33.2, 48.3, 39.4, 43.5, 39.8, 40.5, 91.7, 29.3, 
             39.1, 42.5, 49.6, 40.6, 49.1, 41.7, 30.2, 40.0, 31.9, 42.3, 
             47.2, 50.5, 44.1, 45.8)

 chert <- c(25.8, 6.3, 21.3, 20.6, 22.2, 10.5, 18.9, 25.9, 23.8, 22.0, 
             10.6, 16.8, 21.8, 15.8, 16.3, 21.7, 17.9, 13.7, 19.1, 15.2, 
             21.2, 20.2, 10.6, 23.1)
 dev.list()
 dev.set(2)
 tmp <- capture.output(stem.leaf.backback(flint,chert,unit=.1,rule.line="Dixon"))
 text (0,1, paste(tmp, collapse='\n'), adj=c(0,1), family='mono')

Answer 1

当控制您所绘制的“纸张”的大小时，输出到文件而不是屏幕往往更具可重复性。如果您对 - 例如 - 带有干图的PDF文件感到满意，那么这样的工作正常：

library(aplpack)

flint <- c(44.6, 25.7, 33.2, 48.3, 39.4, 43.5, 39.8, 40.5, 91.7, 29.3, 39.1, 42.5, 49.6, 
           40.6, 49.1, 41.7, 30.2, 40.0, 31.9, 42.3, 47.2, 50.5, 44.1, 45.8)

chert <- c(25.8, 6.3, 21.3, 20.6, 22.2, 10.5, 18.9, 25.9, 23.8, 22.0, 10.6, 16.8, 21.8, 
           15.8, 16.3, 21.7, 17.9, 13.7, 19.1, 15.2, 21.2, 20.2, 10.6, 23.1)

您可以指定PDF页面宽度和高度（以英寸为单位）。说14“乘7”。

pdf(file = "stemplot.pdf", width = 14, height = 7)

plot.new()

tmp <- capture.output(stem.leaf.backback(flint, chert, unit = .1, rule.line = "Dixon"))

text(0, 1, paste(tmp, collapse='\n'), adj = c(0,1), family = 'mono')

dev.off()

当然我们改变了页面大小而不是缩放图，所以它不是你原来要求的......

如果输出到文件是可以接受的，这里是 10 tips for making your R graphics look their best

当使用文本功能使用捕获输出打印茎和叶图的图时，如何缩放R中的图形显示

1 个答案: