Удаление Удельный коэффициент из переменной фактора

Question

У меня есть кадр данных, который имеет несколько переменных, которые имеют 5 уровней факторов. Я хочу удалить только один из этих уровней. Сначала я назначил все экземпляры этого уровня NA, а затем использовал команду droplevels, чтобы избавиться от пустых уровней.

Однако для одной переменной в моем кадре данных один из уровней, которые я не хочу сбросить, не имеет никаких наблюдений. Есть ли способ удалить только определенный уровень факторов, а не только пустые.

Вот воспроизводимый пример

df <- data.frame(var1=rep(letters[1:5],2),var2=rep(letters[5:1],2),var3=c("a","c","d","e","a","c","d","e","a","c")) 
levels(df$var3)<-c("a","c","d","e","b") 

Это создает кадр данных, как у меня. Теперь я хочу удалить все экземпляры уровня e, а затем удалить его как возможный уровень. Я делаю это с помощью кода ниже.

df2<-replace(df, df=="e",NA) 
df2<-droplevels(df2) 

Проблема заключается в том, когда я использую droplevels падает уровень б от var3 также. Я не хочу удалять уровень b только уровня e из всех переменных. Я искал способ удалить только определенный уровень, но не нашел ответа. Может ли кто-нибудь показать мне, как удалить только определенный факторный уровень? То, что я бы идеально хотел, это команда droplevels, которую я могу сказать, чтобы просто удалить уровень e. Существует ли такая функция?

Answer 1

str(
    as.data.frame(
    lapply(
     df2, 
     function(x) factor(as.character(x), levels=levels(x)[levels(x) != "e"]) 
))) 
# 'data.frame': 10 obs. of 3 variables: 
# $ var1: Factor w/ 4 levels "a","b","c","d": 1 2 3 4 NA 1 2 3 4 NA 
# $ var2: Factor w/ 4 levels "a","b","c","d": NA 4 3 2 1 NA 4 3 2 1 
# $ var3: Factor w/ 4 levels "a","c","d","b": 1 2 3 NA 1 2 3 NA 1 2 

Answer 2

Я не понимаю, почему вы не просто использовать droplevels на колонке фактора интереса:

df2$var2 <- droplevels(df2$var2) 

> lapply(df2, levels) 
$var1 
[1] "a" "b" "c" "d" "e" 

$var2 
[1] "a" "b" "c" "d" 

$var3 
[1] "a" "c" "d" "e" "b" 

Объяснение: droplevels является общим и есть оба метода фактора и dataframe объектов.

> methods(droplevels) 
[1] droplevels.data.frame droplevels.factor