Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/70.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 条件数据帧突变_R_Dplyr_Plyr_Stringr_Magrittr - Fatal编程技术网

R 条件数据帧突变

R 条件数据帧突变,r,dplyr,plyr,stringr,magrittr,R,Dplyr,Plyr,Stringr,Magrittr,我有一个很大的数据框,其中有很多字符串值需要清理 例如: students <- data.frame(name = c("John", "Jerry", "Bill", "Tom", "Mary", "Bill"), class = c("A", "B", "-", "#NA", "A", "low"), stringsAsFactors = FALSE) 我希望每个不在A、B或C班的学生都被设置为D。 我目前的解决办法是: '%!

我有一个很大的数据框,其中有很多字符串值需要清理

例如:

    students <- data.frame(name = c("John", "Jerry", "Bill", "Tom", "Mary", "Bill"),
                       class = c("A", "B", "-", "#NA", "A", "low"), stringsAsFactors = FALSE)
我希望每个不在A、B或C班的学生都被设置为D。 我目前的解决办法是:

'%!in%' <- function(x,y)!('%in%'(x,y))
for(i in 1:nrow(students)) {
  if(students$class[i] %!in% c("A", "B", "C")) {
    students$class[i] <- "D"
  }
}
有没有比这更好的解决方案,最好是管道,因为有很多这样的柱


谢谢

我们可以在没有循环的情况下完成,因为分配是矢量化的

students$class[students$class %!in% c("A", "B", "C")] <- "D"
students
#   name class
#1  John     A
#2 Jerry     B
#3  Bill     D
#4   Tom     D
#5  Mary     A
#6  Bill     D

另一种方法是替换,students$class或非常类似的students%>%mutateclass=if_elseclass%in%LETTERS[1:3],class,DAlso请参见forcats::fct_other。@Axeman非常感谢您的回答!如果你想提交你的评论作为回答,我会接受它作为最好的。