R: Как сопоставить столбец в паре с буквой с другим столбцом в паре с пустым столбцом, чтобы заполнить пустой столбец

Question

Я работаю с фреймом данных, который выглядит как

Word.  letter   Word2.  letter2

happy.  p.      SAD
sad.    n.      POTATO
potato  o.      HAPPY

Я хочу, чтобы он выглядел так

Word.  letter   Word2.  letter2

happy.  p.      SAD.     n
sad.    n.      POTATO.  o
potato  o.      HAPPY.   p

В основном я хочу сделать его так, чтобы я мог идентифицировать " слово "в" слове2 "и скопируйте" букву "и поместите ее соответственно в" букву2 ". Мне нужно убедиться, что он совпадает независимо от регистра.

Я пробовал использовать функцию сопоставления различными способами, но я либо делаю глупые синтаксические ошибки, это не соответствует регистру, либо и то, и другое. Приветствуются любые предложения.

Визуализация данных

df1 <- structure(list(Word = c("happy", "sad", "potato"), letter = c("p", 
"n", "o"), Word2 = c("SAD", "POTATO", "HAPPY"), letter2 = c("n", "o", "p")), 
    class = "data.frame", row.names = c(NA, -3L))

Одна из моих попыток:

df1<-(mydataframe)
df1$letter2<-with(df1, letter2[match(letter, letter2)]) 

Answer 1

Мы можем преобразовать в верхний регистр и выполнить сопоставление

df1$letter2 <- with(df1, letter[match(Word2, toupper(Word))])
df1$letter2
#[1] "n" "o" "p"