逐元素for循环是早该彻底抛弃的思维，看看向量化、数据化编程思维有多么简洁、优雅：






当然你的数据可以直接从Excel文件读取，不用这样手动创建。

另外，涉及文本字符串的操作，通常需要正则表达式，这里中括号部分是匹配任意汉字。

想学习这种简洁、优雅的数据编程思维，或者想让自己R语言知识汰旧换新，学习我分享的免费课件就行了：

[学习分享] 张敬信：分享我的1393页《R语言编程：基于tidyverse》完整课件

原数据如果都是用逗号分隔的话，可以看下面的示例，把d换成那列数据的变量名即可：

library(tidyverse)
df = tibble(
  x = c("黄渡敬老院，新黄路,嘉定区，上海市，201804，中国",
        "伴亭路，九里亭街道，松江区，上海市，201101，中国",
        "豫园，人民路，外滩街道，黄浦区，上海市，200010，中国",
        "若瑟登36，四川南路，外滩街道，黄浦区，上海市，200002，中国",
        "崇明区，上海市，中国",
        "崇明区，上海市，中国"))

df %>%
  mutate(区 = str_extract(x, "[\u4e00-\u9fa5]+区")) %>%
  distinct(区)

确实呀，for循环要跑好久！谢谢大师！

好方便快捷！谢谢谢呀