在 R 中，如何使用数据框 B 中的变量重命名数据框 A 中的变量

Question

在 R 中，我有一个这样的 DataFrame A

          Var 
1         Apple_d1
2         Banana_d1
3         C_d1 
4         D_d1
5         Eye_d1
6         F_d1
7         G_d1

我有一个像这样的数据框 B

              Var 
    1         Apple
    2         Banana
    3         Eye

我想要做的是重命名 DataFrameA 中的变量，其中 Var 的第一部分等于 DataFrameB 中的变量。所以在我的例子中，我希望结果是这样的

              Var 
    1         Apple
    2         Banana
    3         C_d1 
    4         D_d1
    5         Eye
    6         F_d1
    7         G_d1

由于数据量大，无法一一做。有没有一种编程方式来做到这一点？谢谢？如果我的问题不清楚，请告诉我。

Answer 1

或者您可以使用ifelse。假设Var 作为因素。它检查A$Var 的第一个字符是否存在于B$Var 中

ifelse(substring(A$Var, 1, 1) %in% B$Var, substring(A$Var, 1, 1), as.character(A$Var))

# [1] "A"    "B"    "C_d1" "D_d1" "E"    "F_d1" "G_d1"

编辑

对于更新的问题，你可以试试

ifelse(gsub( "_.*$", "", A$Var ) %in% B$Var, gsub( "_.*$", "", A$Var ), as.character(A$Var))

# [1] "Apple"  "Banana" "C_d1"   "D_d1"   "Eye"    "F_d1"   "G_d1" 

Answer 2

更新：

对于更新的问题，请尝试

idx <- grepl(paste(d2$Var, collapse = "|"), d1$Var)
d1$Var[idx] <- sub("_d1$", "", d1$Var[idx])

这仍将像以前一样构建逻辑索引，但之后，它不会采用固定的子字符串，而是会删除相应行的 _d1 结尾。

---

这是一种选择。建立一个逻辑索引，告诉您一行是否包含属于第二个 data.frame 的数据，然后使用它来获取第一个 data.frame 中正确行的子字符串。

idx <- grepl(paste(d2$Var, collapse = "|"), d1$Var)
d1$Var[idx] <- substr(d1$Var[idx], 0,1)

> d1
#   Var
#1    A
#2    B
#3 C_d1
#4 D_d1
#5    E
#6 F_d1
#7 G_d1

为了更好地理解代码，我建议只运行它的各个部分以逐步理解它：

> paste(d2$Var, collapse = "|")
#[1] "A|B|E"
> grepl(paste(d2$Var, collapse = "|"), d1$Var)
#[1]  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE
> d1$Var[idx]
#[1] "A_d1" "B_d1" "E_d1"
> substr(d1$Var[idx], 0,1)
#[1] "A" "B" "E"

数据

> dput(d1)
structure(list(Var = c("A_d1", "B_d1", "C_d1", "D_d1", "E_d1", 
"F_d1", "G_d1")), .Names = "Var", class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7"))
> dput(d2)
structure(list(Var = structure(1:3, .Label = c("A", "B", "E"), class = "factor")), .Names = "Var", class = "data.frame", row.names = c("1", 
"2", "3"))