Replace Column Values of dataframe based List of Dataframes

Question

List of dfs:

catbehave <- c("Good", "Cute", "Evil")
catnum <- c(1, 2, 3)
dogbehave <- c("Goodboi", "Cute")
dognum <- c(4, 2)
mousebehave <- c("Evil", "Good", "Cute")
mousenum <- c(3, 1, 2)

cat <- as.data.frame(cbind(catbehave, catnum))
dog <- as.data.frame(cbind(dogbehave, dognum))
mouse <- as.data.frame(cbind(mousebehave, mousenum))


list.1 <- list(cat = cat,dog = dog,mouse = mouse)

df1:

cat <- c("Good", "Evil", "Evil", "Cute")
dog <- c("Goodboi", "Goodboi", "Cute", "Goodboi")
mouse<- c("Evil", "Good", "Cute", "Evil")
df1 = data.frame(cat, dog, mouse)

I want to evaluate a list of dfs to change values in df1. Need to use name of df's in list.1 for columns in df1

Output:

df1

cat  dog  mouse
1    4    3
3    4    1
3    2    2
2    4    3

s_baldur · Accepted Answer · 2020-08-25 14:39:08Z

2

A base R option, assuming list.1 and df1 have the some order:

df1[] <- mapply(
  function(x, y) x[y],
  lapply(list.1, function(x) setNames(x[[2]], x[[1]])),
  df1
)
df1

#   cat dog mouse
# 1   1   4     3
# 2   3   4     1
# 3   3   2     2
# 4   2   4     3

answered Aug 25, 2020 at 14:39

s_baldur

34.5k4 gold badges43 silver badges80 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

GKi · Accepted Answer · 2020-08-25 14:42:24Z

1

You can use match for the update join.

for(i in names(df1)) {
   df1[,i] <- list.1[[i]][match(df1[,i], list.1[[i]][,1]), 2]
}
df1
#  cat dog mouse
#1   1   4     3
#2   3   4     1
#3   3   2     2
#4   2   4     3

answered Aug 25, 2020 at 14:42

GKi

40k3 gold badges36 silver badges56 bronze badges

Comments

akrun · Accepted Answer · 2020-08-25 16:31:49Z

1

Using tidyverse we can do this with

library(dplyr)
library(tibble)
library(purrr)
map2_dfc(df1, list.1, ~ deframe(.y)[.x])
# A tibble: 4 x 3
#  cat   dog   mouse
#  <chr> <chr> <chr>
#1 1     4     3    
#2 3     4     1    
#3 3     2     2    
#4 2     4     3

answered Aug 25, 2020 at 16:31

akrun

891k38 gold badges590 silver badges700 bronze badges

Collectives™ on Stack Overflow

Replace Column Values of dataframe based List of Dataframes

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related