library(Mreport) library(stringr)
load_base() load_sample_base()
allstation <- read.csv("D:\\交大云同步\\实习\\00_交调系统\\交调系统数据\\交调站点管理\\交调站数据.csv",stringsAsFactors=F) dim(allstation)
district <- allstation$行政区划 head(district,50)
pattern <- "([^省]*省)|([^自治区]*(自治区))|(北京市)|(上海市)|(重庆市)|(天津市)" x <- str_extract(district,pattern) unique(x)
allstation$省份 <- x
pattern <- "((?<=省)[^(自治州|直辖县)]*?市)|(北京市)|(上海市)|(重庆市)|(天津市)|(?<=自治州).*(市|县)|((?<=省直辖县级行政区划).*?市)" x <- str_extract(district,pattern) unique(x)
allstation$市 <- x sum(is.na(allstation$市))
head(allstation[is.na(allstation$市),])
str_detect("辽宁省锦州市市辖区","((?<=省)[^自治州]*?市)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.