Replace values in dataframe based on other dataframe with column name and value

Let’s say I have a dataframe of scores

library(dplyr)

id <- c(1 , 2)
name <- c('John', 'Ninaa')
score1 <- c(8, 6)
score2 <- c(NA, 7)

df <- data.frame(id, name, score1, score2)

Some mistakes have been made so I want to correct them. My corrections are in a different dataframe.

id <- c(2,1)
column <- c('name', 'score2')
new_value <- c('Nina', 9)
corrections <- data.frame(id, column, new_value)

I want to search the dataframe for the correct id and column and change the value.
I have tried something with match but I don’t know how mutate the correct column.

df %>% mutate(corrections$column = replace(corrections$column, match(corrections$id, id), corrections$new_value))

>Solution :

We could join by ‘id’, then mutate across the columns specified in the column and replace the elements based on the matching the corresponding column name (cur_column()) with the column

library(dplyr)
df %>% 
  left_join(corrections) %>% 
  mutate(across(all_of(column), ~ replace(.x, match(cur_column(), 
     column), new_value[match(cur_column(), column)]))) %>% 
  select(names(df))

-output

  id name score1 score2
1  1 John      8      9
2  2 Nina      6      7