Как объединить 3 подвектора непосредственно в 1

Question

geneOntology <- read.csv("IRE11_combind_E18_David_Direct_BP.csv", stringsAsFactors = FALSE)
genes <- geneOntology$Genes[geneOntology$Group == "E18>E11"]
genes
[1] "ERCC6L2, CDC14B, XRCC6, PRKDC, INO80, BCCIP, SPRTN, DMAP1, KIN, MUTYH, ERCC6, MDC1, ACTR5, POLM, HINFP, USP10, ACTR8, FANCG, RTEL1, SLX1B, EME2, NFRKB, LIG1, NEIL1, LIG3, PNKP, USP28, RPAIN, TDP2, ABL1, PARP2"                                                                                                                                                                                                                                                                                                                                                                                                                                                
 [2] "GTPBP4, WBSCR22, ERAL1, IPO9, BMS1, NVL, DROSHA, IPO4, TSR3, ZNHIT6, UTP14A, SETD4, FTSJ3, GNL3, DDX51"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          
 [3] "RECQL4, SLX1B, EME2, LIG1, NFRKB, XRCC6, LIG3, INO80, KIN, RPAIN, ACTR5, POLM, ACTR8, RTEL1"

В этом случае гены содержат 3 подвектора. Как объединить 3 подвектора непосредственно в 1?

Answer 1

Прямо сейчас у вас есть вектор строк. Каждая из этих строк представляет собой список значений, разделенных запятыми. Мы можем использовать paste с аргументом «свернуть», чтобы объединить все строки в одну, а затем использовать strsplit для разделения каждого значения, разделенного запятыми.

genes <- c('x, y, z', 'a, b, c')
split.genes <- strsplit(paste(genes, collapse = ', '), split = ', ')[[1]]

genes
[1] "x, y, z" "a, b, c"

split.genes
[1] "x" "y" "z" "a" "b" "c"

split.genes[1]
[1] "x"

Answer 2

Кажется, что это три отдельные строки, разделенные запятыми в векторе символов, поэтому

genes <- paste(genes, collapse=", ")

должен делать это. (В будущем было бы полезно указать результаты str(genes) как часть вашего вопроса.)