vlambda博客
学习文章列表

#一维列联表

>mtcars$cyl<-as.factor(mtcars$cyl)#转化为因子

>split(mtcars,mtcars$cyl)#对其进行分组

>cut(mtcars$mpg,c(seq(10,50,10)))#将数据分为4个区间

>table(cut(mtcars$mpg,c(seq(10,50,10))))#统计不同区间内的频数

>prop.table(table(mtcars$mpg))*100#计算频率值

#二维列联表

>mtcars

>table(mtcars$mpg,mtcars$cyl)

>with(data=mtcars,table(mpg,cyl))

>xtabs(~mpg+cyl,data=mtcars)

>x<-xtabs(~mpg+cyl,data=mtcars)

>margin.table(x)#频数统计，可单独按照行和列进行处理

>margin.table(x,1)#按行统计

>margin.table(x,2)#按列统计

>addmargins(x)#添加到频数表中

>addmargins(x,1)#添加行

>addmargins(x,2)#添加列

#三维列联表

>y<-xtabs(~mpg+cyl+disp,data=mtcars)

>ftable(y)#将三维转换为平铺式