如果输入较大的数字，R 金字塔图会非常慢

我正在尝试用 R 制作金字塔图。我在互联网上找到了一个示例代码，可以实现我想要的功能。问题是我没有像示例中那样处理小数字。我的图的值为 3,000,000 到 12,000,000，但每边只有 10 个条形。尽管如此，创建具有较大数字的绘图所需的时间却更少，并且输出的 pdf 文件大小约为 800mb。

pyramid.plot(x,y,labels=groups,main="Performance",lxcol=mcol,rxcol=fcol,gap=0.5,show.values=TRUE)

为什么表现这么差？不应该自动缩放吗？

Update:

pdf(file='figure1.pdf')
library(plotrix)

x <-c(3105000,3400001,4168780,2842764,3543116,4224601,4222222,6432105,9222222,12345596)
y <-c(3105000,3400001,4168780,2842764,3543116,4224601,4222222,6432105,9222222,12345596)
groups <-c("g1","g2","g3","g4","g5","g6","g7","g8","g9","g11") 
pyramid.plot(x,y,labels=groups,main="Performance",gap=0.5,show.values=TRUE)
dev.off()

导出为 pdf 以及绘图屏幕都需要几分钟的时间。

在内部，pyramid.plot正在尝试做一些事情来欺骗轴来解决中间的间隙：如果你这样做debug(pyramid.plot)然后逐行查看，你会发现问题出在哪里：

if (is.null(laxlab)) {
            laxlab <- seq(xlim[1] - gap, 0, by = -1)
            axis(1, at = -xlim[1]:-gap, labels = laxlab)
        }

换句话说，pyramid.plot正在尝试创建一个每 1 (!) 单位有刻度的轴。 像这样的东西工作正常：

pyramid.plot(x,y,labels=groups,
             main="Performance",gap=5e5,show.values=TRUE,
             laxlab=seq(0,1e7,by=1e6),raxlab=seq(0,1e7,by=1e6))

还有一些其他事实的痕迹pyramid.plot是为人口统计图而设计的...您可以写信给包维护者并要求他考虑稍微概括一下轴的设计...