求助R语言如何实现两列数比大小

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如下是数据框d
  Total              ActualValue
1  3,490.00         2326.66
2  3,770.00         2513.32
3  3,490.00         3490.00
4  4,090.00         4,090.00
5  3,392.00            0.00
6  2,727.00         2766.66
7  2,575.00         2575.00
8  2,580.00         2580.00
9  2,727.00         2045.01

相比较两列数的大小，如果ActualValue大于等于Total,则s(s初始值为0)累计加1，否则累计加0.
比如：第一行2326.66<3490，则s=0
第二行2513.32<3,770.00 ,则s累计还是0
第三行3490.00=3,490.00 ，s累计为1
第四行4,090.00=4,090.00，s累计为2
  ……

求问这段代码怎么编写，我用for+if的语言，提示“条件的长度大于一，因此只能用其第一元素”，不知道该怎么改，求教！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：求助R语言 如何实现 R语言 actual value 如何

count <- d$ActalValue >= d$Total
result <- sum(count)

累計可以用cumsum

xugami 发表于 2017-5-17 15:54
count = d$Total
result

如果希望当Total大于ActualValue的时候，输出的s=Total-ActualValue，然后每条符合条件的数据，s累加得到最终的s该怎么办呀？

1. a<-read.table("a.txt",header = T)
   
2. compaire<-a$Total<=a$ActualValue
   
3. result<-cumsum(compaire)
   
4. data.frame(a,compaire,result)

复制代码

  Total ActualValue compaire result
1  3490     2326.66    FALSE      0
2  3770     2513.32    FALSE      0
3  3490     3490.00     TRUE      1
4  4090     4090.00     TRUE      2
5  3392        0.00    FALSE      2
6  2727     2766.66     TRUE      3
7  2575     2575.00     TRUE      4
8  2580     2580.00     TRUE      5
9  2727     2045.01    FALSE      5

1. count <- d$Total > d$ActualValue
   
2. result <- sum(d$Total[count] - d$ActualValue[count])

复制代码

xugami 发表于 2017-5-17 22:11

感谢！！