基于转置创建多个csv文件
基于转置创建多个csv文件
提问于 2013-10-03 09:23:39
我有一个数据文件，如下所示：
CustID item sales
1 a1 40
1 a2 40
1 a3 34
1 a4 42
1 a5 21
1 a6 22
2 a1 33
2 a2 30
2 a3 21
2 a4 11
2 a5 19
2 a6 20我需要创建2个转置数据集(它们应该是CSV)，这样每个数据集都包含每组3项.
产出：
csv1 (item 1-3)
CustID itema1 itema2 itema3
1 40 40 34
2 33 30 21
csv2 (item 4-6)
CustID itema4 itema5 itema6
1 42 21 22
2 11 19 20请帮帮我
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-10-03 09:32:56
不是一刀切的解决方案，但它能做你想做的。
首先，使用split和dcast的组合，您可以创建和转置df。
> items <- split(df, df$item)
>
> library(reshape2)
> dcast(do.call(rbind, items[1:3]), CustID~item )
CustID a1 a2 a3
1 1 40 40 34
2 2 33 30 21
> dcast(do.call(rbind, items[4:6]), CustID~item )
CustID a4 a5 a6
1 1 42 21 22
2 2 11 19 20然后使用write.csv，您可以创建data.frames并将其保存到csv文件中。
以下是一张照片：
lapply(seq(1, length(items), 3), function(i){
DF <- dcast(do.call(rbind, items[i:(i+2)]), CustID~item )
write.csv(DF, file = paste0("DF", i, ".csv"))
})Stack Overflow用户
发布于 2013-10-03 09:46:17
下面是另一种方法，使用基本R中的xtabs：
x <- xtabs(sales ~ CustID + item, mydf)
x
# item
# CustID a1 a2 a3 a4 a5 a6
# 1 40 40 34 42 21 22
# 2 33 30 21 11 19 20^^该第一步为您转换数据。
fileout <- list(A = 1:3, B = 4:6)在这里，我们已经为每个CSV创建了要导出的列的命名列表。列表项的名称将用于CSV文件名。
下面是如何使用lapply编写CSV文件的示例。
lapply(seq_along(fileout), function(y)
write.csv(x[, fileout[[y]]],
file = paste(names(fileout[y]), ".csv", sep = "")))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/19155457
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号