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')