r R中字符串的GROUP BY

Posted 2021-05-24

#! /usr/bin/env Rscript

lics<-read.csv("~/Temp/csvdb/license-union-norownum.csv", header = TRUE, sep = ",", stringsAsFactors = FALSE)

# Using dplyr

licsgr<-dplyr::group_by(lics, gem)
licsgrsum<-summarise(licsgr, list(license))
colnames(licsgrsum)<-c("gem", "licenses")

# Using sqlf

licsgrsum2<-sqldf('select gem, group_concat(license) as licenses from lics group by gem')

# We can't write licsgrsum to file because it contains lists

write.csv(licsgrsum2, "~/Temp/csvdb/ri.csv", row.names = FALSE)