R中将行政区划替换为对应的行政区划代码

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有一些传染病的数据，需要把每个疾病发生时对应的行政区划替换为相应的代码，如把‘朝阳区’替换为 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
  }
}

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：行政区划代码 行政区划 行政区 length Event 行政区划

为什么发出来排版变成了这样子。。附个图片把

把数据贴出来吧

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]
}