在R中：使用循环让一列等于一个名称列表，该列表依赖于R中另一列中的名称列表

Question

我是循环的新手 - 实际上，我不了解它们，并且通常会尝试寻找更简单的替代方案。这里我有一个简单的数据集：

spp = c("A", "B", "C", "A", "D","D")
Genus = as.vector(rep(1,6))
df = data.frame(cbind(spp,Genus), stringsAsFactors=FALSE)

我想根据“spp”列的内容，用特定的属名替换“属”列中的任何内容。这就是我所做的：

df$Genus[(df$spp == "A")] = "Apple"
df$Genus[(df$spp == "B")] = "Bla"
df$Genus[(df$spp == "C")] = "Cat"
df$Genus[(df$spp == "D")] = "Donkey"

虽然它返回所需的结果，但我正在寻找一种无需重复自己就可以循环此函数的方法？我的尝试涉及尝试在各种if 和for 和apply 函数中使用levels(df$spp)，但都失败了并且返回了我不理解的错误。我看过的所有基本循环示例都只使用了非常简单的函数，但我不知道如何将循环应用于具有两部分的稍微复杂的函数，如上所述？任何建议将不胜感激！

弗朗索瓦

Answer 1

您可以尝试使用 switch() 声明 lapply。

df$Genus <- lapply(df$spp, switch, "A"="Apple", "B"="Bla", "C"="Cat", "D"="Donkey")

df
# spp  Genus
#   A  Apple
#   B    Bla
#   C    Cat
#   A  Apple
#   D Donkey
#   D Donkey

lapply 将以递归方式运行，评估spp 的值，并将该值与表达式中的关联值切换出来，并将其分配给Genus 列。