Question

感谢您阅读此问题。我有一个数据集，其中包含5个参与者和10个变量，其中包含8个变量。我需要在单独的pdf文件中导出数据集的每个参与者/行，并根据参与者的名称来命名导出pdf文件的名称。随附的解释性代码解释了此问题。

df <- data.frame(matrix(ncol = 8, nrow = 5))
x <- c("Participants", "V1","V2", "V3",  "V4","V5", "V6","V7")
colnames(df) <- x

df$Participants= c("Elizabeth",
                   "Emily",
                   "Cristie",
                   "Orville",
                   "Janetta")
df$V1 = runif(5, min=0, max=10)
df$V2 = runif(5, min=0, max=10)
df$V3 = runif(5, min=0, max=10)
df$V4 = runif(5, min=0, max=10)
df$V5 = runif(5, min=0, max=10)
df$V6 = runif(5, min=0, max=10)
df$V7 = runif(5, min=0, max=10)

summary(df)

例如，如何将“ Elizabeth”（数据集的第一行）分数导出到“ Elizabeth.pdf”文件？预先感谢。

Answer 1

基于this answer，我们可以执行以下操作：

library(gridExtra)
apply(df, 1, function(x){
  pdf(paste0(x[1], ".pdf"), width=10)
  grid.table(data.frame(t(x)))
  dev.off()
})

如何在单独的pdf文件中导出数据框的每一行（参与者）？

1 个答案: