如何用R语言代码计算如下的循环计算问题？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何用R语言代码计算如下的循环计算问题？我写了如何循环计算，但是出不了结果，求大神帮忙解答，谢谢我要的条件/结果是：当y列的某一个值等于变量名的截取的部分字符串时，用变量名那一列减去k列对应的数值

1. library(data.table)
   
2. dt <- data.table(x=c("张三","李四","王五","张三"),y=c("A","B","C","B"),z=c(20,30,40,50),h=c(30,30,80,50))
   
3. dt0 <- dcast(dt,x+y~y,fun = sum,value.var = c("z","h"))
   
4. dt0[,k:=1:4]
   
5. for (colname in names(dt0)){
   
6.   i = substr(colname,3,nchar(colname))
   
7.   dt0[y==i,colname] <- dt0[y==i,colname]+dt0[y==i,"k"]
   
8. }

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：计算问题 如何用 R语言 Library BRARY R语言 循环计算

1. for (colname in names(dt0)[3:(ncol(dt0) - 1)]){
   
2.     i = substr(colname, 3, nchar(colname))
   
3.     dt0[y==i, colname] <- dt0[y==i, ..colname] + dt0[y == i, "k"]
   
4. }

复制代码

cheetahfly 发表于 2017-6-17 22:11

还是提示：Error in FUN(left, right) : non-numeric argument to binary operator

请留意代码中的for (colname in names(dt0)[3:(ncol(dt0) - 1)])这句，让循环只在你的目标列中发生，
不要牵扯进其他无关列，因为当i为""时，会报这种错误。