R语言-行、列统计

在R语言中，对多维数据进行统计有比较简便的方法，实验过程：

阴影部分的代码测试与本主题无关。

1、构造测试数据

> a<-c("yes","no","yes")
> b<-c("no","yes","yes")
> c<-c("yes","yes","no")
> d<-c("no","yes","yes")
> e<-data.frame(a,b,c,d)
> e
    a   b   c   d
1 yes  no yes  no
2  no yes yes yes
3 yes yes  no yes
> str(e)
'data.frame':   3 obs. of  4 variables:
 $ a: Factor w/ 2 levels "no","yes": 2 1 2
 $ b: Factor w/ 2 levels "no","yes": 1 2 2
 $ c: Factor w/ 2 levels "no","yes": 2 2 1
 $ d: Factor w/ 2 levels "no","yes": 1 2 2

> e<-data.frame(a,b,c,d,stringAsFactor=FALSE)
> e
    a   b   c   d stringAsFactor
1 yes  no yes  no          FALSE
2  no yes yes yes          FALSE
3 yes yes  no yes          FALSE

注意：可以看到，数据框参数输错直接当成一列向量输出，而不会报错。

> e<-data.frame(a,b,c,d,stringsAsFactors = FALSE)
> e
    a   b   c   d
1 yes  no yes  no
2  no yes yes yes
3 yes yes  no yes
> str(e)
'data.frame':   3 obs. of  4 variables:
 $ a: chr  "yes" "no" "yes"
 $ b: chr  "no" "yes" "yes"
 $ c: chr  "yes" "yes" "no"
 $ d: chr  "no" "yes" "yes"

2、进行行统计

> rowSums(e=="Yes")
[1] 0 0 0

可以看到，字符串匹配是区分大小写的。

> rowSums(e=="yes")
[1] 2 3 3

输出正确结果。

3、进行列统计

> colSums(e=="yes")
a b c d
2 2 2 2