ifelse
opera sobre todos os elemento do vetor. Ao usar duas vezes, o resultado será sobrescrito:
Coseg <- c("AD", "B2C")
Filtro_df <- ifelse(Coseg == "AD", "Advisor", Coseg)
Filtro_df
#> [1] "Advisor" "B2C"
Filtro_df <- ifelse(Coseg == "B2C", "Business to Company", Coseg)
Filtro_df
#> [1] "AD" "Business to Company"
O uso adequado no seu caso, em que há apenas duas alternativas, é usar uma vez:
ifelse(Coseg == "AD", "Advisor", "Business to Company")
#> [1] "Advisor" "Business to Company"
# OU
ifelse(Coseg == "B2C", "Business to Company", "Advisor")
#> [1] "Advisor" "Business to Company"
Usando seu exemplo e com a sintaxe do tidyverse:
library(tidyverse)
df <- data.frame(
conta = c(11111, 32412, 457845, 754689, 58486),
Coseg = c("AD", "B2C", "AD", "B2C", "AD"))
df %<>% mutate(Segmentof = ifelse(Coseg == "AD", "Advisor", "Business to Company"))
df
#> conta Coseg Segmentof
#> 1 11111 AD Advisor
#> 2 32412 B2C Business to Company
#> 3 457845 AD Advisor
#> 4 754689 B2C Business to Company
#> 5 58486 AD Advisor
Se estiver lidando com dados muito grande, uma alternativa mais eficiente é a fifelse
("fast ifelse") do pacote data.table:
library(data.table)
setDT(data)
data[, Segmentof := fifelse(Coseg == "AD", "Adivisor", "Business to Company")]
Teste
Atualizando o teste de eficiência das diferentes soluções feita por Rui Barradas.
library(microbenchmark)
library(dplyr)
library(stringr)
library(data.table)
library(ggplot2)
teste <- function(n, ...) {
f1 <- function(df) {
df <- df %>%
mutate(Segmentof = case_when(
Coseg == "AD" ~ "Advisor",
Coseg == "B2C" ~ "Business to Company",
TRUE ~ Coseg))
}
f2 <- function(df) {
df <- df %>%
mutate(Segmentof = str_replace_all(Coseg,
c("AD" = "Adivisor", "B2C" = "Business to Company")))
}
f3 <- function(df) {
i <- match(df$Coseg, c("AD", "B2C"))
df$Segmentof <- NA_character_
df$Segmentof <- c("Adivisor", "Business to Company")[i]
}
f4 <- function(df) {
df <- df %>%
mutate(Segmentof = ifelse(Coseg == "AD", "Adivisor", "Business to Company"))
}
f5 <- function(df) {
setDT(df)[, Segmentof := fifelse(Coseg == "AD", "Adivisor", "Business to Company")]
}
y <- data.frame(
conta = sample(11111:99999, n, TRUE),
Coseg = sample(c("AD", "B2C"), n, TRUE))
microbenchmark(
`dplyr::case_when`= f1(y),
`stringr::str_replace_all`= f2(y),
`match`= f3(y),
`ifelse` = f4(y),
`data.table::fifelse` = f5(y),
...)
}
ns <- 10^(3:7)
res <- lapply(ns, teste, times = 20)
res <- rbindlist(setNames(res, ns), idcol = "n")[, n := as.integer(n)]
ggplot(res, aes(n, time/1e6, color = expr, fill = expr, label = expr)) +
geom_point(alpha = .5) +
geom_smooth() +
geom_text(aes(1e7, V1/1e6),
res[n == 1e7, mean(time), expr],
hjust = 0, nudge_x = .05) +
scale_x_log10(expand = expansion(add = c(.1, .9))) +
scale_y_log10() +
labs(x = "linhas", y = "milisegundos") +
theme(legend.position = "none")
Mas eu considero a solução de Rui Barradas com match
mais interessante. É eficiente, independe de pacotes extras e serve para qualquer número de substituições.