Konkatenacja wiersza w poszczególnych kolumnach ramki danych

Question

Konkatenacja wiersza w poszczególnych kolumnach ramki danych

Mam ramkę danych z kolumnami, które po połączeniu (w wierszach) jako łańcuch pozwalają mi na podzielenie ramki danych na żądaną formę.

> str(data)
'data.frame':   680420 obs. of  10 variables:
 $ A              : chr  "2011-01-26" "2011-01-26" "2011-02-09" "2011-02-09" ...
 $ B              : chr  "2011-01-26" "2011-01-27" "2011-02-09" "2011-02-10" ...
 $ C              : chr  "2011-01-26" "2011-01-26" "2011-02-09" "2011-02-09" ...
 $ D              : chr  "AAA" "AAA" "BCB" "CCC" ...
 $ E              : chr  "A00001" "A00002" "B00002" "B00001" ...
 $ F              : int  9 9 37 37 37 37 191 191 191 191 ...
 $ G              : int  NA NA NA NA NA NA NA NA NA NA ...
 $ H              : int  4 4 4 4 4 4 4 4 4 4 ...

Dla każdego wiersza chciałbym połączyć dane w kolumnach F, E, D i C w łańcuch (ze znakiem podkreślenia jako separatora). Poniżej moja nieudana próba:

data$id <- sapply(as.data.frame(cbind(data$F,data$E,data$D,data$C)), paste, sep="_")

A poniżej wynik niepożądany:

  > str(data)
    'data.frame':   680420 obs. of  10 variables:
     $ A              : chr  "2011-01-26" "2011-01-26" "2011-02-09" "2011-02-09" ...
     $ B              : chr  "2011-01-26" "2011-01-27" "2011-02-09" "2011-02-10" ...
     $ C              : chr  "2011-01-26" "2011-01-26" "2011-02-09" "2011-02-09" ...
     $ D              : chr  "AAA" "AAA" "BCB" "CCC" ...
     $ E              : chr  "A00001" "A00002" "B00002" "B00001" ...
     $ F              : int  9 9 37 37 37 37 191 191 191 191 ...
     $ G              : int  NA NA NA NA NA NA NA NA NA NA ...
     $ H              : int  4 4 4 4 4 4 4 4 4 4 ...
     $ id             : chr [1:680420, 1:4] "9" "9" "37" "37" ...
      ..- attr(*, "dimnames")=List of 2
      .. ..$ : NULL
      .. ..$ : chr  "V1" "V2" "V3" "V4"

Każda pomoc byłaby bardzo mile widziana.

18

r sapply string-concatenation apply paste

Author: zx8754, 2011-06-10

Source

3 answers

Użycie unite z tidyr opakowania:

require(tidyr)
data <- data %>% unite(id, F, E, D, C, sep = '_')

Pierwszy parametr to żądana nazwa, wszystkie następne do sep - kolumny do konkatenacji.

5

Author: Jelena-bioinf,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2016-08-09 15:11:40

Albo stringr::str_c() albo paste() zadziała.

require(stringr)
data <- within(data, str_c(F,E,D,C, sep="_")

or else

data <- within(data, paste(F,E,D,C, sep="_")

3

Author: smci,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2014-04-05 03:09:00

score 40 · Accepted Answer

Try

 data$id <- paste(data$F, data$E, data$D, data$C, sep="_")

Zamiast tego. Piękno wektoryzowanego kodu polega na tym, że nie potrzebujesz pętli wiersz po wierszu lub równoważnych pętli * apply funkcji.

Edit Even better is

 data <- within(data,  id <- paste(F, E, D, C, sep=""))