У меня есть такой фрейм данных:
1 2
aquiles_alcatra_Mat_15 picanha
aquiles_alcatra_Mat_15 picanha
alcatra_Mat_15 picanha
alcatra_Mat_20 picanha
alcatra_Mat_25 picanha
picanha_Mat_20 picanha
picanha_Mat_25 picanha
и я хотел бы сделать это:
1 2
aquiles_alcatra_Mat_15 alcatra
aquiles_alcatra_Mat_15 alcatra
alcatra_Mat_15 alcatra
alcatra_Mat_20 alcatra
alcatra_Mat_25 alcatra
picanha_Mat_20 picanha
picanha_Mat_25 picanha
Если у меня есть alcatra
как часть слова на column 1
, я просто хочу alcatra
на column 2
.
Я знаю, что могу использовать это:
file$2[ file$1 == 'aquiles_alcatra_Mat_15'] <- 'alcatra'
но у меня несколько ситуаций чуть ли не 300. И пробовал как-то так:
file$2[ file$1 == '.*alcatra*'] <- 'alcatra'
Но не работал.
Возможное решение, основанное на dplyr
и stringr::str_detect
:
library(tidyverse)
df %>%
mutate(V2 = if_else(str_detect(V1, "alcatra"), "alcatra", V2))
#> V1 V2
#> 1 aquiles_alcatra_Mat_15 alcatra
#> 2 aquiles_alcatra_Mat_15 alcatra
#> 3 alcatra_Mat_15 alcatra
#> 4 alcatra_Mat_20 alcatra
#> 5 alcatra_Mat_25 alcatra
#> 6 picanha_Mat_20 picanha
#> 7 picanha_Mat_25 picanha
Вы можете использовать следующий код:
library(dplyr)
df %>%
mutate(v2 = case_when(grepl("alcatra", v1) ~ "alcatra",
grepl("picanha", v1) ~ "picanha"))
Выход:
v1 v2
1 aquiles_alcatra_Mat_15 alcatra
2 aquiles_alcatra_Mat_15 alcatra
3 alcatra_Mat_15 alcatra
4 alcatra_Mat_20 alcatra
5 alcatra_Mat_25 alcatra
6 picanha_Mat_20 picanha
7 picanha_Mat_25 picanha
df <- data.frame(v1 = c("aquiles_alcatra_Mat_15", "aquiles_alcatra_Mat_15", "alcatra_Mat_15", "alcatra_Mat_20", "alcatra_Mat_25", "picanha_Mat_20", "picanha_Mat_25"),
v2 = c("picanha", "picanha", "picanha", "picanha", "picanha", "picanha", "picanha"))