每一行的频数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有450行*450列数据，
1）初步想求每一行0, 0-0.1, 0.1-0.2, 0.2-0.3，0.3-0.4, 0.4-0.5 之间的频数？
2）对角线的数据都为空，先把对角线的空格数据分别加2？
请问在r可以做吗？
请大侠指点，数据间附件 11.xlsx (1.68 MB)

2014-3-22 10:49:37 上传

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：对角线 对角线

apply(x, 1, function(x) table(cut(x, breaks, right = FALSE)))

qoiqpwqr 发表于 2014-3-22 20:44
apply(x, 1, function(x) table(cut(x, breaks, right = FALSE)))

熊呢？

缺失值 table 默认下 可以不用考虑
t(apply...) 转置下会漂亮些

qoiqpwqr 发表于 2014-3-22 20:44
apply(x, 1, function(x) table(cut(x, breaks, right = FALSE)))

初步想求每一行0, 0-0.1, 0.1-0.2, 0.2-0.3，0.3-0.4, 0.4-0.5 之间的频数
怎么求

jmpamao 发表于 2014-3-22 22:53
缺失值 table 默认下 可以不用考虑
t(apply...) 转置下会漂亮些

初步想求每一行0, 0-0.1, 0.1-0.2, 0.2-0.3，0.3-0.4, 0.4-0.5 之间的频数
怎么求

xingzhaoh 发表于 2014-3-23 09:04
初步想求每一行0, 0-0.1, 0.1-0.2, 0.2-0.3，0.3-0.4, 0.4-0.5 之间的频数
怎么求

breaks <- seq(0, 0.5, by = 0.1)
apply(x, 1, function(x) table(cut(x, breaks, right = FALSE)))

零的个数单独求一下就行了。

觉得你会做这些的，含查看帮助 文件等













data <- read.csv("11.csv",header=T)
data <- data[,2:451]
boundaries =seq(0,0.5,by=0.1 )
dat<-t(apply(data,1,function(x) table(cut(x,boundaries,right=T))))
####0 这是一个点，不是一个区间， 处理有点费事点#######
dat2<-apply(data,1,function(x)length(which(x==0)))
dat3<-cbind(dat2,dat)
colnames(dat3)<-c("0",colnames(dat))
dat3

jmpamao 发表于 2014-3-23 09:57
觉得你会做这些的，含查看帮助 文件等

谢谢，我对做模型还可以，对这个没接触过