> 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列不能更改，求助