gpt4 book ai didi

r - 在 R 生成的 pdf 文件中添加页码

转载 作者:行者123 更新时间:2023-12-04 02:56:33 27 4
gpt4 key购买 nike

我正在尝试将页码添加到使用 R 中的绘图生成并以 pdf 格式保存的 pdf 文件。我正在使用 d_pply 到我正在使用 plot 命令的 data.frame

我认为 d_pply 会帮助我避免 for 循环。以下是来 self 的原始数据的示例,其中包含更多因素。

data1 <- structure(list(fact = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L
), .Label = c("A", "B", "C"), class = "factor"), speed = c(10.56,
11.94, 13.61, 15, 16.67, 18.06, 19.44, 20.28, 21.11, 21.67, 22.5,
23.06, 23.61, 24.44, 25, 25.56, 26.11, 26.94, 27.5, 15.83, 16.67,
17.5, 18.06, 18.89, 19.72, 20.56, 21.11, 21.94, 22.5, 23.33,
23.89, 24.44, 25, 25.56, 26.11, 26.67, 27.22, 8.61, 10.28, 11.94,
13.61, 15, 16.39, 17.5, 18.89, 19.72, 20.83, 21.67, 22.22, 22.5,
23.06, 23.61, 23.89, 23.89, 23.61)), .Names = c("fact", "speed"
), class = "data.frame", row.names = c(NA, -55L))

我试图通过使用全局索引来完成任务。但我正在寻找一种有效的方法来做到这一点。 This one对我帮助不大。

index1 <<- 0
plot_pg <- function(x)
{ index1 <<- index1+1
plot(x$speed,main=paste0('pg# ',index1))
}

genplot <- function(df1,filename1)
{
pdfNAME <- paste0(name1,'.pdf')
pdf(pdfNAME)
d_ply(df1,c('fact'),function(x) plot_pg(x))
dev.off()
}
genplot(data1,'data1Plots')

更新

我应该在这里提到,我会将我的 data.frame 拆分为多个变量..类似于 ddply(data,c('var1','var2'),函数(x) MyplotFunc(x))

最佳答案

我会简单地这样做:

genplot <- function(df1,filename1){
pdfNAME <- paste0(filename1,'.pdf')
tmp <- split(df1,df1$fact)
pdf(pdfNAME)
for (i in seq_along(tmp)){
plot(tmp[[i]][,'speed'],main = paste0("pg#",i))
}
dev.off()
}

for 循环本质上慢的想法是一个神话。问题是很容易在 for 循环中使用错误的编码技术,这使得您正在执行的操作需要很长时间。

在这种情况下,您在 for 循环中所做的只是绘图,所以我怀疑这与使用 lapply 之类的东西之间会有很大的性能差异。需要注意的是增长对象(即追加)和修改对象,因为两者都会导致过度复制。

关于r - 在 R 生成的 pdf 文件中添加页码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16591373/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com