如何通过排除R数据帧中的特定文本值来对数据帧进行子集化？
要基于文本值创建子集，我们可以使用rowSums函数，方法是将文本的总和定义为零，这将帮助我们删除包含该特定文本值的所有行。例如，如果我们有一个在许多列中包含A的数据帧df，则可以将除A之外的所有df行选择为-
df[rowSums(df=="A")==0,,drop=FALSE]
示例
请看以下数据帧-
set.seed(951) x1<−sample(LETTERS[1:3],20,replace=TRUE) x2<−sample(LETTERS[1:4],20,replace=TRUE) x3<−sample(LETTERS[1:5],20,replace=TRUE) x4<−sample(LETTERS[2:5],20,replace=TRUE) x5<−sample(LETTERS[3:5],20,replace=TRUE) df<−data.frame(x1,x2,x3,x4,x5) df
输出结果
x1 x2 x3 x4 x5 1 A D B C C 2 B D D D D 3 B A D D D 4 B D C D E 5 C D C C C 6 A D C D E 7 B D E B E 8 A D E D C 9 A B C E E 10 C B C B C 11 A D D B D 12 B C B D E 13 A C E E D 14 C A D C E 15 C C D B D 16 A C A D E 17 C A B C E 18 A A E E D 19 B A D D C 20 B D C D C
子集不包含A的行-
df[rowSums(df=="A")==0,,drop=FALSE]
输出结果
x1 x2 x3 x4 x5 2 B D D D D 4 B D C D E 5 C D C C C 7 B D E B E 10 C B C B C 12 B C B D E 15 C C D B D 20 B D C D C
子集不包含B的行-
df[rowSums(df=="B")==0,,drop=FALSE]
输出结果
x1 x2 x3 x4 x5 5 C D C C C 6 A D C D E 8 A D E D C 13 A C E E D 14 C A D C E 16 A C A D E 18 A A E E D
子集不包含C的行-
df[rowSums(df=="C")==0,,drop=FALSE]
输出结果
x1 x2 x3 x4 x5 2 B D D D D 3 B A D D D 7 B D E B E 11 A D D B D 18 A A E E D
子集不包含D的行-
df[rowSums(df=="D")==0,,drop=FALSE]
输出结果
x1 x2 x3 x4 x5 9 A B C E E 10 C B C B C 17 C A B C E
子集不包含E的行-
df[rowSums(df=="E")==0,,drop=FALSE]
输出结果
x1 x2 x3 x4 x5 1 A D B C C 2 B D D D D 3 B A D D D 5 C D C C C 10 C B C B C 11 A D D B D 15 C C D B D 19 B A D D C 20 B D C D C