如果數據框列中的變量名稱與向量重命名變量中的名稱匹配

Question

給定一個數據框和一個向量

set.seed(123)

feature <- sample(LETTERS,30,replace = T)
number<-sample(1:100,30, replace = T)
df<-data.frame(feature,number)

rename<-c("N","V","C","E")

我想掃描df$feature ，如果rename中存儲的字母與df$feature列中的一個字母匹配，我想將它們重命名為"other" 。

我很確定這一定已經在某個地方得到了回答，不過我已經找了很長時間了。

Answer 1

您可以使用%in%查找包含rename的行：

df$feature[df$feature %in% rename] <- "other"

如果df$feature是一個factor並且不包含other級別，則您需要在與以下級別交換之前將other添加到級別：

levels(df$feature) <- unique(c(levels(df$feature), "other"))

或者您將其轉換為character ：

df$feature <- as.character(df$feature)

Answer 2

使用dplyr一種選擇：

df %>%
  mutate(feature = str_replace(feature, paste(rename, collapse = "|"), "other"))