如何根据data.frame2来修改data.frame1

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data.frame1
code	var1	var2	var3
1	1a	1b	1c
2	2a	2b	2c
3	3a	3b	3c
4	4a	4b	4c
data.frame2
code	variable	value
2	var2	2bb
2	var3	2cc
3	var1	3aa
3	var3	3cc

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Frame Data Fram FRA RAM 如何

你想要什么样的结果？

qoiqpwqr 发表于 2013-1-28 00:16
你想要什么样的结果？

如data.frame2 中的第一条记录
code variable value
2  var2 2bb
表示data.frame1 中code=2的var2应改为2bb

for(i in 1:nrow(data.frame1)) {
  for(j in 1:nrow(data.frame2)) {
    if(data.frame1$code[i] == data.frame2$code[j]) data.frame1[i,as.character(data.frame2[j,"variable"])] <- data.frame2[j,"value"]
  }
}

可能 reshape2包 是你需要的额

require(reshape2)
renda1 <- read.table(text="code variable value
                     2 var2 2bb
                     2 var3 2cc
                     3 var1 3aa
                     3 var3 3cc",header=T,stringsAsFactors=F)
dcast(renda1,code~variable,value.var="value")

结果为：
  code var1 var2 var3
1    2 <NA>  2bb  2cc
2    3  3aa <NA>  3cc
是你需要的吗？

jmpamao 发表于 2013-1-31 12:12
可能 reshape2包 是你需要的额

require(reshape2)

不是的，还需要对另一个数据集进行修改

哦，不好意思，题看偏了
require(reshape2)
renda <- read.table(text="code var1 var2 var3
                    1 1a 1b 1c
                    2 2a 2b 2c
                    3 3a 3b 3c
                    4 4a 4b 4c",header=T,stringsAsFactors=F)
melt(renda,id="code",measure.vars=c("var1","var2","var3"))


结果：
code variable value
1     1     var1    1a
2     2     var1    2a
3     3     var1    3a
4     4     var1    4a
5     1     var2    1b
6     2     var2    2b
7     3     var2    3b
8     4     var2    4b
9     1     var3    1c
10    2     var3    2c
11    3     var3    3c
12    4     var3    4c

是这个吗？