R语言按某一列的值进行合并（提取GO对应的基因）

GID <- data$GID[!duplicated(data$GID)]
GO <- matrix(NA,nrow=length(GID),ncol=2)
for (i in 1:length(GID)) {
  a <- data[data$GID==GID[i],]
  GO[i,1] <- a[1,1]
  GO[i,2] <- paste(a[,2],collapse = ",")
}
GO <- as.data.frame(GO)

目前用tidyverse实现更加方便

data %>% group_by(GID) %>%
	summarise(GO = str_c(GO, collapse = ","))