以下是可重现的初始数据框:
df <- data.frame(tag=c("tech","tech","tech","tech","distribution","fooddrinks","industry","conseil","tech","tech","conseil","fooddrinks","tech","conseil","conseil","conseil","conseil"),
company_name=c("360Learning","365Talents","3DS OUTSCALE","4D SAS","77 Foods","77 Foods","77 Foods","8pourcent","8SEC","Compte Pour Moi","Compte Pour Moi","AB InBev Europe","AB Tasty","AB Tasty","ABBD","Abbeal","ABC arbitrage"),
company_link=c("/fr/companies/360learning", "/fr/companies/365talents", "/fr/companies/3dsoutscale", "/fr/companies/4d", "/fr/companies/77-foods", "/fr/companies/77-foods", "/fr/companies/77-foods", "/fr/companies/8pourcent", "/fr/companies/8sec", "/fr/companies/ca-compte-pour-moi", "/fr/companies/ca-compte-pour-moi", "/fr/companies/abinbev",
"/fr/companies/ab-tasty", "/fr/companies/ab-tasty", "/fr/companies/abbd", "/fr/companies/abbeal", "/fr/companies/abc-arbitrage"))
我曾尝试以下功能:stats::reshape
,data.table::dcast
,tidyr::spread
但我想不出合适的方式来使用他们,也不会,如果他们是正确的。
您并没有真正尝试进行重塑(这将根据行的内容添加列),这里您只想更改每个summarize
的tag
值company
。这样可以轻松完成dplyr
:
library(dplyr)
df %>%
group_by(company_name, company_link) %>%
summarize(tag = paste(tag, collapse = ", "))
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句