R语言按组折叠文本《collapse text by group in data frame》