0

我有两列数据，例如：

col1: c(1,2,3,0,7)
col2: c(4,5,6,7,3)

对于每一列，我想计算这个比率并将其作为列的最后一个值：

 No. of values less than 5/(No. of values greater than 5 + No. of values lesser than 5)

因此，第一列的结果应该是 4/4+1 = 0.2

我是 R 新手，我能想到的唯一方法是遍历整个列并使用 if-else 结构。有没有更好的办法？

这是我不想使用的，因为它太笨重了：

for (a in 1:5)
{
if(col1<5){v1++;}
if(col1>5){v2++;}
}
v3<-v1/(v1+v2);
col1[6]<-v3;

当我执行上述操作时，我收到错误：

Error in if (col1[a] < 5) { : missing value where TRUE/FALSE needed

我已确保列中的所有数字都是数字，那么为什么会出现此错误？

4

3 回答 3

3

你的数学已经关闭了。

DF <- data.frame(col1=c(1,2,3,0,7), col2=c(4,5,6,7,3))

result <- apply(DF,2,function(x) sum(x<5)/(sum(x!=5)))
result
#col1 col2 
# 0.8  0.5
于 2013-06-17T13:55:33.400 回答
1

矩阵方法：

> m <- cbind(c(1,2,3,0,7), c(4,5,6,7,3))
> m
     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6
[4,]    0    7
[5,]    7    3

> colSums(m<5)/colSums(m!=5)
[1] 0.8 0.5
于 2013-06-17T17:05:03.393 回答
1

这将计算每列的比率并将其添加到最后：

  rbind(dat,apply(dat,2,
         function(x) c(sum(x<5)/(sum(x<5)+sum(x>5)))))
  col1 col2
1  1.0  4.0
2  2.0  5.0
3  3.0  6.0
4  0.0  7.0
5  7.0  3.0
6  0.8  0.5
于 2013-06-17T13:56:08.627 回答