相关疑难解决方法(0)

我需要ggplot2在R中使用超过1000页来绘制PDF文件.除了以下代码之外,还有更快的方法:

library(ggplot2)
data(diamonds)
pdf("name.pdf", width = 6, height = 6)
for(i in 1:1000) {
  p1 <- ggplot(diamonds, aes(x = carat,  y = price)) +
        geom_point()
  print(p1)
}
dev.off()

我的实际情况是这样的;

(1)需要读取一个文件,并data.frame根据每行的值创建一个.

(2)将该文件的每一行绘制成pdf.

fa <- read.table(file)
pdf(name.pdf, width = 6, height = 4)
for(i in 1:nrow(fa)) {
  new.data <- function(i)
  p1 <- ggplot(new.data,...) + ...
  print(p1)
}
dev.off()