使用“ifelse”修改字符串因子的内容不起作用[重复]

Question

Kia ora 数据科学社区，在尝试修改数据框架因子的内容时，我很难让 ifelse 声明起作用。我正在使用 5 种不同类型的陷阱类型，但其中两种陷阱类型没有被正确总结。以下是陷阱类型和与每种类型相关的观察数量的汇总表：

 DOC150 Double (Fiordland)        DOC150 Single (ATBT) 
                     107748                       20260 
      DOC150 Single (ATBT)  DOC200 Double (Run Through) 
                        456                        2324 
     DOC200 Double (Takaka)         DOC200 Double (ZIP) 
                      23748                        2472 
     DOC200 Single (Takaka)     DOC200 Single (Takaka)  
                      11258                       23668

我需要将 DOC150 Single (ATBT) 陷阱识别为相同并进行总结，DOC200 Single (Takaka) 也是如此。无论出于何种原因，陷阱类型都被总结为单独的类别；我怀疑从更大的数据集中提取信息时，名称的间距有问题。

我尝试使用以下代码重新分类错误的陷阱类型之一，但无济于事：类别仍然存在，但代码将所有陷阱类型从字符因子更改为数字因子和最终计数对于每个类别保持不变。

Records2$TrapName<- as.character(ifelse(grepl("Single (Takaka)", Records2$TrapTypeTe), "DOC200 Single (Takaka)", Records2$TrapTypeTe))

这是生成的汇总表：

     1      2      3      4      5      6      7      8 
107748  20260    456   2324  23748   2472  11258  23668

我以为我终于明白如何在ifelse 语句中使用grepl，但现在我被卡住了。我知道如何在 SAS 中执行此操作，但 R 让我陷入了困境。任何帮助将不胜感激。起亚派到 ra，道格

Answer 1

正如 cmets 中所述，问题是由于列值中有额外的空间。您可以使用trimws 删除它，并且不需要ifelse 或grepl。

Records2$TrapTypeTe <- trimws(Records2$TrapTypeTe)
#Check
table(Records2$TrapTypeTe)

Answer 2

这是一种使用因子的方法 - 我们不小心在代码中包含了一些小写字母：

x <- c("D", "B", "E", "e", "A", "a", "E", "E", "E", "D", "E", "D", 
"d", "A", "A", "b", "D", "D", "B", "C", "e", "b", "D", "d", "D")
table(x)
x
# a A b B C d D e E 
# 1 3 2 2 1 2 7 2 5 
x <- factor(x)
levels(x)
# [1] "a" "A" "b" "B" "C" "d" "D" "e" "E"
levels(x) <- c("A", "A", "B", "B", "C", "D", "D", "E", "E")
table(x)
# x
# A B C D E 
# 4 4 1 9 7 
levels(x)
# [1] "A" "B" "C" "D" "E"