Question

我一直在分割数据帧并将它们写入R中的txt文件，但现在我发现它们需要写入xlsx文件。我安装了xlsx包并修改了我的循环，但它不再起作用了。我得到“[[.default中的错误（点[[2L]]，1L）：下标越界”。

这是循环：

trts<-vector("list", length=6)
trt<-as.character(c("CC", "CCW", "C2", "S2", "PF", "P"))

for(i in 1:6){
trts[[i]]<-co2[co2$trt == trt[i],]
  write.xlsx(trts[[i]], paste(trt[i], "CO2", "xlsx", sep="."))

这是数据（我的df是二氧化碳）：Split this。

这是什么交易？

Answer 1

为什么不将其输出为CSV？

#Read Data
co2 <- read.table("~/Observed COBS CO2.txt",
                                header=T, quote="\"")

#Output to CSV
apply(as.matrix(unique(co2$trt)),1,
      function(x){
        write.table(co2[co2$trt == x,],
                    paste(x, "co2",".csv",sep=""),
                    sep=",",row.names=F)}
      )

循环用于将多个数据帧写入R中的excel文件

1 个答案: