当前位置：文江博客话题详情

如何将不同的表在彼此上方的同一选项卡上保存到一个CSV中？

发布于 2025-01-19 10:09:38 字数 251 浏览 4 评论 0原文

假设我有 4 个表，我想将它们放入 csv 文件中，如下所示：

我该怎么做？我想要两列表和任意数量的行，并且我希望能够定义哪个表在哪里，并在两列之间保留 1 列，在每行表之间保留两行，如图所示。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

西瓜 2025-01-26 10:09:39

将您的4个数据帧放入命名列表L，例如基于内置BOD数据框架所示的测试数据。

与问题一样，我们假设前两个数据帧中列数的总和等于最后两个数据帧中列数的总和。

定义fmt函数，该功能输入列表l的名称，并输出一个字符TS系列，上面名称为顶部。我们使用TS系列，因为这些系列允许cbind与具有不同数量的行的参数一起使用。最后，使用write.table输出结果。我们只是将其输出到控制台，但您可以将write.table.table语句适当地转换为文件。

没有包装。

# test data
b <- BOD; rownames(b) <- letters[1:nrow(BOD)]
L <- list(d1 = b[1:2, ], d2 = b[1:3, ], d3 = b[1:4, ], d4 = b[1:5,])

fmt <-  function(nm, DF = L[[nm]]) {
  m <- cbind(rownames(DF), sapply(DF, as.character))
  as.ts(rbind(c(nm, rep("", ncol(DF))), colnames(m), m))
}

m1 <- cbind(fmt("d1"), "", fmt("d2"))
m2 <- cbind(fmt("d3"), "", fmt("d4"))
m <- rbind(m1, "", m2)
write.table(m, sep = ",", na = "", 
  row.names = FALSE, col.names = FALSE, quote = FALSE)

给予：

d1,,,,d2,,
,Time,demand,,,Time,demand
a,1,8.3,,a,1,8.3
b,2,10.3,,b,2,10.3
,,,,c,3,19
,,,,,,
d3,,,,d4,,
,Time,demand,,,Time,demand
a,1,8.3,,a,1,8.3
b,2,10.3,,b,2,10.3
c,3,19,,c,3,19
d,4,16,,d,4,16
,,,,e,5,15.6

Put your 4 data frames into a named list L such as the test data shown below based on the built-in BOD data frame.

As in the question, we assume that the sum of the number of columns in the first two data frames equals the sum of the number of columns in the last two data frames.

Define a fmt function which inputs a name from the list L and outputs a character ts series with the name at top. We use ts series because those allow cbind to be used with arguments having different numbers of rows. Finally use write.table to output the result. We just output it to the console but you can modify the write.table statement appropriately to output to a file.

No packages are used.

# test data
b <- BOD; rownames(b) <- letters[1:nrow(BOD)]
L <- list(d1 = b[1:2, ], d2 = b[1:3, ], d3 = b[1:4, ], d4 = b[1:5,])

fmt <-  function(nm, DF = L[[nm]]) {
  m <- cbind(rownames(DF), sapply(DF, as.character))
  as.ts(rbind(c(nm, rep("", ncol(DF))), colnames(m), m))
}

m1 <- cbind(fmt("d1"), "", fmt("d2"))
m2 <- cbind(fmt("d3"), "", fmt("d4"))
m <- rbind(m1, "", m2)
write.table(m, sep = ",", na = "", 
  row.names = FALSE, col.names = FALSE, quote = FALSE)

giving:

d1,,,,d2,,
,Time,demand,,,Time,demand
a,1,8.3,,a,1,8.3
b,2,10.3,,b,2,10.3
,,,,c,3,19
,,,,,,
d3,,,,d4,,
,Time,demand,,,Time,demand
a,1,8.3,,a,1,8.3
b,2,10.3,,b,2,10.3
c,3,19,,c,3,19
d,4,16,,d,4,16
,,,,e,5,15.6

回复收藏 0 原文

~没有更多了~