web-dev-qa-db-fra.com

Concaténation de deux colonnes de texte dans dplyr

Mes données ressemblent à ceci:

round <- c(rep("A", 3), rep("B", 3))
experiment <- rep(c("V1", "V2", "V3"), 2)
results <- rnorm(mean = 10, n = 6)

df <- data.frame(round, experiment, results)

> df
  round experiment   results
1     A         V1  9.782025
2     A         V2  8.973996
3     A         V3  9.271109
4     B         V1  9.374961
5     B         V2  8.313307
6     B         V3 10.837787

J'ai un jeu de données différent qui sera fusionné avec celui-ci où chaque combo de round et experiment est une valeur de ligne unique, c'est-à-dire "A_V1". Donc ce que je veux vraiment, c'est une variable name qui concatène les deux colonnes ensemble. Cependant, c'est plus difficile à faire dans dplyr que ce à quoi je m'attendais. J'ai essayé:

name_mix <- paste0(df$round, "_", df$experiment)
new_df <- df %>%
  mutate(name = name_mix) %>%
  select(name, results)

Mais j'ai eu l'erreur, Column name must be length 1 (the group size), not 6. J'ai également essayé l'approche simple base-R de cbind(df, name_mix) mais j'ai reçu une erreur similaire me disant que df et name_mix Étaient de tailles différentes. Qu'est-ce que je fais mal?

rdplyrstring-concatenation
6
mmyoung77

Vous pouvez utiliser la fonction unite de tidyr

require(tidyverse)

df %>% 
  unite(round_experiment, c("round", "experiment"))

  round_experiment   results
1             A_V1  8.797624
2             A_V2  9.721078
3             A_V3 10.519000
4             B_V1  9.714066
5             B_V2  9.952211
6             B_V3  9.642900
8
DJV

Cela devrait faire l'affaire si vous recherchez une nouvelle variable

library(tidyverse)

round <- c(rep("A", 3), rep("B", 3))
experiment <- rep(c("V1", "V2", "V3"), 2)
results <- rnorm(mean = 10, n = 6)

df <- data.frame(round, experiment, results)
df

df <- df %>% mutate(
  name = paste(round, experiment, sep = "_")
)
5
Claus Portner

Une autre solution pourrait être d'utiliser la fonction stri_join dans le package stringi.

library(stringi)
df$new = stri_join(df$round,df$experiment,sep="_")
1
MSW Data

Vous pouvez également essayer ceci:

library(tidyr)
library(dplyr)
df = df %>% 
   unite(combined, round, experiment, sep = "_", remove = FALSE)

La sortie sera:

combined round experiment   results
 A_V1     A         V1      10.152329
 A_V2     A         V2      10.863128
 A_V3     A         V3      10.975773
 B_V1     B         V1       9.964696
 B_V2     B         V2       9.876675
 B_V3     B         V3       9.252936

Cela conservera vos colonnes d'origine.

0
Sandy