全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
5290 11
2016-06-14
复制代码
> table2flat<-function(mytable){
+ df<-as.data.frame(mytable)
+ rows<-dim(df)[1]
+ cols<-dim(df)[2]
+ x<-NULL
+ for(i in 1:rows){
+ for(j in 1:df$Freq[i]){
+ row<-df[i,c(1:(cols-1))]
+ x<-rbind(x,row)
+ }
+ }
+ row.names(x)<-c(1:dim(x)[1])
+ return(x)
+ }


加亮Freq里面的i指的是表格里面的29,7,7,13,17,21吗?

下面是程序输出的表格
> mydata<-table2flat(mytable)
> mydata
   treatment improved
1    Placebo     None
2    Placebo     None
3    Placebo     None
4    Placebo     None
5    Treated     None
6    Placebo     Some
7    Placebo     Some
8    Placebo     Some
9    Placebo     Some
10   Placebo     Some
11   Treated     Some
12   Treated     Some
13   Placebo   Marked
14   Placebo   Marked
15   Placebo   Marked
16   Placebo   Marked
17   Placebo   Marked
18   Treated   Marked
19   Treated   Marked
20   Treated   Marked

不是很明白循环的次数,请大神们指教!!谢谢!

二维码

扫码加我 拉你入群

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

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

全部回复
2016-6-15 00:00:52
df$Freq[i] 结果输出来,看看就知道了
二维码

扫码加我 拉你入群

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

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

2016-6-15 01:32:27
mytable出了錯。正確的mytable在treatment前應該有個space證明table是對的。
> mytable
  treatment improved Freq
1   Placebo     None   29
2   Treated     None   13
3   Placebo     Some    7
4   Treated     Some   17
5   Placebo   Marked    7
6   Treated   Marked   21
如果你是read.csv(),你得把每行前的1, 2, 3, 4, 5, 6去掉在讀進來。
否則你的df$Freq就會指向"None", "Some", ...
> df$Freq[1]
[1] None
Levels: Marked None Some
而非29, 13, 7, 17, 7, 21
二维码

扫码加我 拉你入群

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

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

2016-6-15 09:22:50
dcwang1233 发表于 2016-6-15 01:32
mytable出了錯。正確的mytable在treatment前應該有個space證明table是對的。
> mytable
  treatment impr ...
是有空格的,前面的12345是序号,可能复制粘贴过来的时候格式有点问题。
那意思就是说格式没有问题的话,循环的里面的Freq就应该循环的是Freq下面的数字吗??谢谢~
二维码

扫码加我 拉你入群

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

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

2016-6-15 10:00:32
辛巴菌 发表于 2016-6-15 09:22
是有空格的,前面的12345是序号,可能复制粘贴过来的时候格式有点问题。
那意思就是说格式没有问题的话, ...
格式沒問題的話,結果就對了。
二维码

扫码加我 拉你入群

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

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

2016-6-15 10:15:36
dcwang1233 发表于 2016-6-15 10:00
格式沒問題的話,結果就對了。
那我理解的意思就是Placebo None会重复29行,然后Treated None会重复13行,以此类推这样??
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群