From the list corresp and df_modifies :
# Note : corresp must be a list and not a data.frame
corresp <- list(
a_remplacer = c("abricot1"),
remplacant = c("abricot2")
)
df_modifies <- data.frame(
produit = c("abricot1", "abricot2"),
m0123 = c(3, NA),
m0223 = c(2.5, NA),
m0323 = c(3, 2),
m0423 = c(NA, 3)
)
I'd like to get the following result :
produit m0123 m0223 m0323 m0423
1 abricot2 3 2.5 2 3
My code is long and I'd like to shorten it maybe with across or {purrr}.
library(dplyr)
modifies <- data.frame(
produit = corresp$remplacant) |>
mutate(
m0123 = ifelse(is.na(df_modifies$m0123[df_modifies$produit %in% corresp$remplacant]),
df_modifies$m0123[which(!is.na(df_modifies$m0123))[1]],
df_modifies$m0123[df_modifies$produit %in% corresp$remplacant]),
m0223 = ifelse(is.na(df_modifies$m0223[df_modifies$produit %in% corresp$remplacant]),
df_modifies$m0223[which(!is.na(df_modifies$m0223))[1]],
df_modifies$m0223[df_modifies$produit %in% corresp$remplacant]),
m0323 = ifelse(is.na(df_modifies$m0323[df_modifies$produit %in% corresp$remplacant]),
df_modifies$m0323[which(!is.na(df_modifies$m0323))[1]],
df_modifies$m0323[df_modifies$produit %in% corresp$remplacant]),
m0423 = ifelse(is.na(df_modifies$m0423[df_modifies$produit %in% corresp$remplacant]),
df_modifies$m0423[which(!is.na(df_modifies$m0423))[1]],
df_modifies$m0423[df_modifies$produit %in% corresp$remplacant])
)
Can you help me ?
I'm not sure how a scaled version of this answer would work, but you can use across this way:
df_modifies |>
summarise(across(-produit, \(x) ifelse(is.na(x[produit == corresp$remplacant]),
x[produit == corresp$a_remplacer],
x[produit == corresp$remplacant])),
produit = corresp$remplacant)
# m0123 m0223 m0323 m0423 produit
# 1 3 2.5 2 3 abricot2