R中循环没有效果 求帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

> head(data)
     P      TYPE B L T District
1 1600 1室0厅0卫 1 0 0     黄埔
2 1600 1室0厅0卫 1 0 0     黄埔
3 1600 1室0厅0卫 1 0 0     黄埔
4 1600 1室0厅0卫 1 0 0     黄埔
5 2500 1室0厅0卫 1 0 0     黄埔
6 6800 1室0厅0卫 1 0 0     黄埔
> str(data)
'data.frame':   46950 obs. of  6 variables:
$ P       : int  1600 1600 1600 1600 2500 6800 1000 1000 1000 1000 ...
$ TYPE    : chr  "1室0厅0卫" "1室0厅0卫" "1室0厅0卫" "1室0厅0卫" ...
$ B       : int  1 1 1 1 1 1 1 1 1 1 ...
$ L       : int  0 0 0 0 0 0 0 0 0 0 ...
$ T       : int  0 0 0 0 0 0 1 1 1 1 ...
$ District: Factor w/ 19 levels "黄埔","卢湾",..: 1 1 1 1 1 1 1 1 1 1 ...
>

for(i in 1:nrow(data)) {

if((data[i,3]<2)&(data[i,4]<1)) data[i,2]<-“Onebm”;

if((data[i,3]==1)&(data[i,4]==1)) data[i,2]<-“Onebo”;

if((data[i,3]==1)&(data[i,4]==2)) data[i,2]<-“Onebt”;

if((data[i,3]==2)&(data[i,4]<2)) data[i,2]<-“Twobo”;

if((data[i,3]==2)&(data[i,4]>1)) data[i,2]<-“Twobt”;

if((data[i,3]==3)&(data[i,4]<2)) data[i,2]<-“Thrboam”;

if((data[i,3]==3)&(data[i,4]>1)) data[i,2]<-“Thrbt”;

if(data[i,3]==4) data[i,2]<-“Foub”;

if(data[i,3]>4) data[i,2]<-“Fivbao” }

运行完之后没有任何变化而且TYPE列不能更改，求助

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求帮忙 Variables Variable Levels factor 黄埔

1. data[,2] <- as.character(data[,2])

复制代码

data$TYPE[(data[,3]<2)&(data[,4]<1)]<-"小一室"
data$TYPE[(data[,3]==1)&(data[,4]==1)]<-"一室一厅"
data$TYPE[(data[,3]==1)&(data[,4]>=2)]<-"一室两厅"
data$TYPE[(data[,3]==2)&(data[,4]<2)]<-"两室一厅"
data$TYPE[(data[,3]==2)&(data[,4]>1)]<-"两室两厅"
data$TYPE[(data[,3]==3)&(data[,4]<2)]<-"三室一厅"
data$TYPE[(data[,3]==3)&(data[,4]>1)]<-"三室两厅"
data$TYPE[data[,3]==4]<-"四室"
data$TYPE[data[,3]>4]<-"大五室"

我用这个解决了，循环为什么不行还是不清楚

1. data$TYPE[(data[,3]<2)&(data[,4]<1)]<-"小一室"
   
2. data$TYPE[(data[,3]==1)&(data[,4]==1)]<-"一室一厅"
   
3. data$TYPE[(data[,3]==1)&(data[,4]>=2)]<-"一室两厅"
   
4. data$TYPE[(data[,3]==2)&(data[,4]<2)]<-"两室一厅"
   
5. data$TYPE[(data[,3]==2)&(data[,4]>1)]<-"两室两厅"
   
6. data$TYPE[(data[,3]==3)&(data[,4]<2)]<-"三室一厅"
   
7. data$TYPE[(data[,3]==3)&(data[,4]>1)]<-"三室两厅"
   
8. data$TYPE[data[,3]==4]<-"四室"
   
9. data$TYPE[data[,3]>4]<-"大五室"

复制代码