自动逐行计算数据框内平均值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

up down num
1 2000 3000 300
2 3000 4000 1300
3 4000 5000 200
4 5000 6000 150
5 6000 7000 100
6 7000 8000 50
7 8000 9000 30


求教大神，如何能够自动计算平均值，公式如下，怎么对数据框里的数据逐行计算呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：平均值 数据框 Down Own Dow 平均值

用if语句啊，或者用apply函数

up <- seq(2000,8000,1000)
down <- seq(3000,9000,1000)
num <- c(300,1300,200,150,100,50,30)
sum((up+down)/2*num)/sum(num)

> print(data)
    up down  num
1 2000 3000  300
2 3000 4000 1300
3 4000 5000  200
4 5000 6000  150
5 6000 7000  100
6 7000 8000   50
7 8000 9000   30

a1<-mean(data[1:2,1])
a2<-mean(data[1:2,2])
a3<-mean(data[1:2,3])
a4<-mean(data[1:2,4])

我将数据导入了一个数据框，然后计算平均值，为什么a1,a2没问题，a3,a4就不对了呢，求高手解惑