[求助]关于使用R数据格式转换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

原始数据是一个dataframe
示例：
cardid  termid transnum transrmb
as12e    tm1     6        1000
hyy3      tm2     3         500
yhff      tm3       6         800
...

希望目标数据是list：
$transnum
cardid tm1  tm2   tm3  ...
as12e   6      0      0   ...
...

$transrmb
cardid tm1  tm2   tm3  ...
as12e   1000   0     0    ...
...

求高手指教（PS：使用其他编程语言自己可以实现，但是对R不够熟悉，希望能用R来解决）

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：格式转换 数据格式 Dataframe Trans Frame 格式转换

转换格式可以用as.list函数，提取数据直接用transnum=（数据框名称）[,1]就可以了，如果还不行可以上传部分数据再转换试一下。

转成这样
$cardid
[1] as12e hyy3  yhff
Levels: as12e hyy3 yhff

$termid
[1] tm1 tm2 tm3
Levels: tm1 tm2 tm3

$transnum
[1] 6 3 6

$transrmb
[1] 1000  500  800

还是没有解决需求啊……

1. > a <- data.frame(cardid = c("as12e","hyy3","yhff"),
   
2. +                 termid = c("tm1","tm2","tm3"),
   
3. +                 transnum = c(6,3,6),
   
4. +                 transrmb = c(1000,500,800))
   
5. > b1 <- tapply(a[, "transnum"], list(a[, "cardid"], a[, "termid"]), sum)
   
6. > b2 <- tapply(a[, "transrmb"], list(a[, "cardid"], a[, "termid"]), sum)

复制代码

好吧，b1,b2就是你想要的东西。如果你想要紧凑一点，将结果直接凑成一个列表输出，也可以直接执行以下代码：

1. a <- data.frame(cardid = c("as12e","hyy3","yhff"),
   
2.                 termid = c("tm1","tm2","tm3"),
   
3.                 transnum = c(6,3,6),
   
4.                 transrmb = c(1000,500,800))
   
5. b <- lapply(a[, 3:4], function(x) {
   
6.        y <- tapply(x, list(a[, "cardid"], a[, "termid"]), sum)
   
7.        return(replace(y, is.na(y), 0))
   
8.      })
   
9. print(b)

复制代码

b就是你想要的东西。你知道你的提问帖贴了那么长时间，但回帖人数很少的原因么？

第一，以上两个结果矩阵，左上角应该为空，但你却加了cardid字段，这是引起混乱的做法
第二，最致命的一点，你说你想要得到XXXX这样的结果，可是你给出的样例矩阵，每个都只有两行，除去题头只有一行。你让我们怎么猜你想要的结果是什么样子的呢？

meishanjia1900 发表于 2015-7-18 15:52
好吧，b1,b2就是你想要的东西。如果你想要紧凑一点，将结果直接凑成一个列表输出，也可以直接执行以下代码： ...

非常感谢您的回复

以后一定谨谆教诲，仔细把问题表达清楚