unite
来自“ tidyr”的操作几乎是开箱即用的:
〉df %>% unite(Hobby, `Hobby 1` : `Hobby 3`, sep = ', ', na.rm = TRUE)
# A tibble: 4 x 1
Hobby
<chr>
1 "Drawing"
2 ""
3 "Singing, reading"
4 "drawing, singing, reading"
因此,只需最少的后处理:
df %>%
unite(
Hobby, `Hobby 1` : `Hobby 3`,
sep = ', ',
na.rm = TRUE,
remove = FALSE
) %>%
mutate(Hobby = ifelse(nzchar(Hobby), paste('Hobby:', Hobby), 'No Hobby'))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句