r语言 - 基于另一列的因子水平创建新列

Question

我正在尝试在我的数据框中生成一列，假设它被称为"状态"，它应该提供鱼的状态，即受保护或不受保护。

我在寻找什么：

  ID                   Species      Status
1  1 Epinephelus polyphekadion   Protected
2  2        Epinephelus tukula   Protected
3  3         Thunnus albacares   Protected
4  4       Sphyraena barracuda Unprotected
5  5        Lutjanus rivulatus Unprotected
6  6         Lethrinus lentjan Unprotected
7  7 Plectropomus pessuliferus   Protected

我的数据：

fishydata <- structure(list(ID = 1:7, Species = structure(c(1L, 2L, 7L, 6L,4L, 3L, 5L), .Label = c("Epinephelus polyphekadion", "Epinephelus tukula","Lethrinus lentjan", "Lutjanus rivulatus", "Plectropomus pessuliferus","Sphyraena barracuda", "Thunnus albacares"), class = "factor"), .Names = c("ID", "Species"), row.names = c(NA, 7L), class = "data.frame")

该数据集包含 1000 多个观测值。它们是一行代码，可以将特定物种链接到新列中的状态。

我有40多个物种，其中7个受到保护。我希望为这 7 个物种提供"受保护"状态，并将其他所有内容视为"未受保护"，而不是输入所有物种名称并将它们归类为"未受保护">

任何指示或建议将不胜感激。我的技能是基本的，试图回到R。我一直在使用变异和过滤器涉足 dplyr，但我已经达到了一堵砖墙。

Answer 1

没有"状态"列的数据：

fishydata2 <- structure(list(ID = 1:7, 
                            Species = structure(c(1L, 2L, 7L, 6L,4L, 3L, 5L), 
                            .Label = c("Epinephelus polyphekadion", "Epinephelus tukula","Lethrinus lentjan", "Lutjanus rivulatus", "Plectropomus pessuliferus","Sphyraena barracuda", "Thunnus albacares"), class = "factor")
                        ),
                   .Names = c("ID", "Species"), 
                   row.names = c(NA, 7L), 
                   class = "data.frame")
#   ID                   Species
#1  1 Epinephelus polyphekadion
#2  2        Epinephelus tukula
#3  3         Thunnus albacares
#4  4       Sphyraena barracuda
#5  5        Lutjanus rivulatus
#6  6         Lethrinus lentjan
#7  7 Plectropomus pessuliferus

默认情况下，您只需创建一个状态为"不受保护"的新列：

fishydata2$Status <- "Unprotected"

现在，只需针对您仅有的 7 个受保护物种更新它：

fishydata2[fishydata2$Species %in% c('Epinephelus polyphekadion',
                  'Epinephelus tukula','Thunnus albacares',
                  'Plectropomus pessuliferus'),]$Status <- "Protected"

结果：

fishydata2
#ID                   Species      Status
#1  1 Epinephelus polyphekadion   Protected
#2  2        Epinephelus tukula   Protected
#3  3         Thunnus albacares   Protected
#4  4       Sphyraena barracuda Unprotected
#5  5        Lutjanus rivulatus Unprotected
#6  6         Lethrinus lentjan Unprotected
#7  7 Plectropomus pessuliferus   Protected

<</div> div class="one_answers">

如果您只是想知道如何对数据框进行子集化，以便只有值为"受保护"的行，则有两个选项：

带 dplyr

filter(fishydata, Status == "Protected")
#   ID                   Species    Status
# 1  1 Epinephelus polyphekadion Protected
# 2  2        Epinephelus tukula Protected
# 3  3         Thunnus albacares Protected
# 4  7 Plectropomus pessuliferus Protected

基础

fishydata[fishydata$Status == "Protected",]
#   ID                   Species    Status
# 1  1 Epinephelus polyphekadion Protected
# 2  2        Epinephelus tukula Protected
# 3  3         Thunnus albacares Protected
# 7  7 Plectropomus pessuliferus Protected

这两个选项都将生成一个数据帧，该数据帧仅包含与受保护物种对应的行。如果你想以后使用它，你可以把它分配给protected_fish，例如，protected_fish <- filter(fishydata, Status == "Protected") 。 我建议不要在fishydata创建一个仅包含具有受保护状态的物种的新列。您的数据框中已包含所有这些信息。如果您只想查看物种名称，则可以将其提取为带有 protected_fish$Species 的向量，或使用管道命令，例如 filter(fishydata, Status == "Protected") %>% select(Species)