全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 数据分析与数据挖掘
1550 3
2019-02-15
现在有一些传染病的数据,需要把每个疾病发生时对应的行政区划替换为相应的代码,如把‘朝阳区’替换为 110106,我写了一些循环,没报错,但是也没有跑出什么结果来,连event_tile这一列都没有出现,请各位大神帮忙看下哪里出错了?或者是还有什么更简便的方法吗,谢谢!
for(i in (1:length(influ_2017$district_new)) {
  if (influ_2017$district_new[i]=='东城区') {
    influ_2017$event_tile[i]==110101
  }
  else if(influ_2017$district_new[i]=='西城区') {
    influ_2017$event_tile[i]==110102
  }
  else if(influ_2017$district_new[i]=="朝阳区") {
    influ_2017$event_tile[i]==110105
  }
  else if(influ_2017$district_new[i]=='丰台区') {
    influ_2017$event_tile[i]==110106
  }
  else if(influ_2017$district_new[i]=='石景山区') {
    influ_2017$event_tile[i]==110107
  }
  else if(influ_2017$district_new[i]=='海淀区') {
    influ_2017$event_tile[i]==110108
  }
  else if(influ_2017$district_new[i]=='门头沟区') {
    influ_2017$event_tile[i]==110109
  }
  else if(influ_2017$district_new[i]=='房山区') {
    influ_2017$event_tile[i]==110111
  }
  else if(influ_2017$district_new[i]=='通州区') {
    influ_2017$event_tile[i]==110112
  }
  else if(influ_2017$district_new[i]=='顺义区') {
    influ_2017$event_tile[i]==110113
  }
  else if(influ_2017$district_new[i]=='昌平区') {
    influ_2017$event_tile[i]==110114
  }
  else if(influ_2017$district_new[i]=='大兴区') {
    influ_2017$event_tile[i]==110115
  }
  else if(influ_2017$district_new[i]=='怀柔区') {
    influ_2017$event_tile[i]==110116
  }
  else if(influ_2017$district_new[i]=='平谷区') {
    influ_2017$event_tile[i]==110117
  }
  else if(influ_2017$district_new[i]=='密云区') {
    influ_2017$event_tile[i]==110118
  }
  else if(influ_2017$district_new[i]=='延庆区') {
    influ_2017$event_tile[i]==110119
  }
}
二维码

扫码加我 拉你入群

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

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

全部回复
2019-2-15 11:31:38
为什么发出来排版变成了这样子。。附个图片把
附件列表
捕获.PNG

原图尺寸 46.71 KB

捕获.PNG

二维码

扫码加我 拉你入群

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

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

2019-2-21 13:05:43
把数据贴出来吧
二维码

扫码加我 拉你入群

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

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

2019-2-24 08:22:41
hope it works!

dist_name <- c('东城区',...)
zip_code <- c('110101',...)
n <- length(dist_name)

for (i in 1:n){
    influ_2017[influ_2017$district_new==dist_name[i],'event_tile'] <- zip_code[i]
}
二维码

扫码加我 拉你入群

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

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

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

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