使用正确值的数据帧替换数据帧中的错误值

Question

在我下面的

DATA

中，一些

Name

拼写错误。我已经确定了

Unique_Names

并相应地为这些独特的名称创建了

Correct_Unique_Names

。

但是我想知道如何将我的

Correct_Unique_Names

插入到

DATA

中以实现下面我的

Desired_output

？

library(tidyverse)

DATA <- read.table(header=T,text=
"Name      
Asan
Ziba       
Asan       
Asana
Farhan
Frahan
Zibaee
Ziba")

Unique_Names <- unique(DATA) %>% 
arrange()

Correct_Unique_Names <- 
  read.table(header=T,text=
"Name
 Aasan
 Zibae
 Aasan
 Farahani
 Frahani
 Zibae")

Desired_output <- read.table(header=T, text=
  "
Name      
Aasan
Zibae      
Asan       
Aasan
Farhani
Farhani
Zibae
Zibae")

Answer 1

您的数据存在一些错误。我假设我已经正确修复了它们。以下代码应该可以工作：

DATA |>
  left_join(data.frame(Unique_Names, Correct_Unique_Names),
            by="Name") |>
  select(Name.1) |>
  rename(Name=Name.1)

     Name
1   Aasan
2   Zibae
3   Aasan
4   Aasan
5 Farhani
6 Farhani
7   Zibae
8   Zibae

---

图书馆（dplyr）