problema_map

mapluis.R

# lista 1
dat1a <- tibble(id=c("A","B","C","D","E"),val=rnorm(5))
dat1b <- tibble(id=c("A","B","C","D","E"),val=rnorm(5))

dat1 <- list(dat1a,dat1b)
dat1

# lista dos
dat2a <- tibble(id=c("A","D","E"),label=rnorm(3))
dat2b_1 <- tibble(id=c("A","B","C","E"),label=rnorm(4))
dat2b_2 <- tibble(id=c("B","C","D","E"),label=rnorm(4))
dat2 <- list(list(dat2a),list(dat2b_1,dat2b_2))

dat1
dat2


# resultado esperado
list(
map2(dat1[1],dat2[[1]],left_join),
map2(dat1[2],dat2[[2]],left_join)
)