dplyr split string в список, разделенный запятой

Question

Я пытаюсь использовать dplyr, чтобы разделить строку на запятую, и мне не повезло.

dat<-data.frame(key=1:4,labels=c('a','ab','abc','b')) 

Я пытаюсь получить столбец метки, чтобы быть с («а», «а, Ь», «а, Ь, с», «б»)

Я пробовал все приведенные ниже варианты, но ничего не работает.

dat %>% 
    mutate(labels=str_split(labels,'')) 

dat %>% 
    mutate(labels=str_split(labels,'')[[1]]) 

dat %>% 
    mutate(labels=paste(str_split(labels,''),collapse=',')) 

Answer 1

dplyr или mutate не имеет ничего общего с вашим вопросом. Ваши проблемы больше похожи на попытку обработки списка (возвращенного str_split) в качестве вектора.

Я хотел бы написать небольшую функцию, чтобы сделать это:

comma_sep = function(x) { 
    x = strsplit(as.character(x), "") 
    unlist(lapply(x, paste, collapse = ',')) 
} 

Вы можете

mutate(dat, labels = comma_sep(labels)) 
# key labels 
# 1 1  a 
# 2 2 a,b 
# 3 3 a,b,c 
# 4 4  b 

Но, конечно, вы могли бы заклинить мясо функции в этой одной линии, а также.

Answer 2

Заменить каждый некрайней с запятой, как это:

dat %>% mutate(labels = gsub("\\B", ",", labels, perl = TRUE)) 

или с немного более сложным регулярным выражением, но без Perl = TRUE, заменить каждый символ, за которым следует некрайней с этим символом следует запятой:

dat %>% mutate(labels = gsub("(.)\\B", "\\1,", labels)) 

Либо один дает:

key labels 
1 1  a 
2 2 a,b 
3 3 a,b,c 
4 4  b