R 正则表达式
jg <- read_table('~/Documents/sjbd.csv',col_names = F) %>% mutate(X1=str_replace(X1,"^\"","1")) %>% mutate(X1=str_replace(X1,",\\\\N","")) %>% filter(!str_detect(X1,"^\\,")) %>% filter(!str_detect(X1,"^\\(")) %>% separate(X1,c('A','B','C','D','E','F','G','H','I','M','K','N','O'),sep=",") jg <- read.table('~/Documents/sjbd.csv')