R 中是否有一种方法可以(大概)估计 write.csv
文件(或其他导出命令,例如 dev.copy2pdf
)的文件大小?
最佳答案
我还没有听说过类似的东西,但至少这里有一个估计 csv 大小的想法。
csvSizeEst <- function(obj, frac=0.01) {
tf <- tempfile()
on.exit(unlink(tf))
n <- ceiling(nrow(obj) * frac)
write.csv(obj[seq_len(n),], file=tf)
1/frac * file.info(tf)$size
}
x <- data.frame(replicate(5, rnorm(500)))
## Estimated file size, based on a 1% sample (the default sample size)
csvSizeEst(x)
# [1] 50700
## Set fraction of file to 1 to get actual file size
csvSizeEst(x, frac=1)
# [1] 48904
此外,为了对 R 中的 data.frame 大小(由 object.size
报告)和写成 .csv 文件时观察到的关系有一个数量级的感觉,请尝试以下操作. (作为 +/- 代表性样本,我在这里检查了 datasets 包中提供的所有 data.frames。)
oo <- ls("package:datasets")
dfs <- oo[sapply(oo, function(X) is.data.frame(get(X)))]
r <- sapply(dfs, function(X) {
X <- get(X)
csvSizeEst(X,1)/object.size(X)
})
hist(r, breaks=20, col="lightgrey", xlim=c(0,1.5),
main="Ratio of size-on-disk to object.size in R")
关于r - write.csv 后预测文件大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16847415/