Tập dữ liệu con bằng nhiều điều kiện lô hàng hợp lý để xóa

Question

Tôi muốn đặt (lọc) một khung dữ liệu bằng cách chỉ định các hàng không (!) để giữ trong khung dữ liệu mới. Đây là một mẫu dataframe đơn giản:

data 
v1 v2 v3 v4 
a v d c 
a v d d 
b n p g 
b d d h  
c k d c  
c r p g 
d v d x 
d v d c 
e v d b 
e v d c 

Ví dụ, nếu một hàng cột v1 có một "b", "d" hoặc "e", tôi muốn thoát khỏi điều đó hàng quan sát, sản xuất cấu hình dữ liệu sau:

v1 v2 v3 v4 
a v d c 
a v d d 
c k d c  
c r p g 

Tôi đã thành công khi subsetting dựa trên một điều kiện tại một thời điểm. Ví dụ: tại đây tôi xóa các hàng có v1 chứa "b":

sub.data <- data[data[ , 1] != "b", ] 

Tuy nhiên, tôi có nhiều, nhiều điều kiện như vậy, vì vậy, không nên thực hiện từng điều kiện một. Tôi đã không thành công với những điều sau đây:

sub.data <- data[data[ , 1] != c("b", "d", "e") 

hoặc

sub.data <- subset(data, data[ , 1] != c("b", "d", "e")) 

Tôi đã thử một số thứ khác là tốt, như !%in%, nhưng điều đó dường như không tồn tại. Bất kỳ ý tưởng nào?

Answer 1

Các ! nên xung quanh bên ngoài của tuyên bố:

data[!(data$v1 %in% c("b", "d", "e")), ] 

    v1 v2 v3 v4 
1 a v d c 
2 a v d d 
5 c k d c 
6 c r p g 

Answer 2

Hãy thử điều này

subset(data, !(v1 %in% c("b","d","e"))) 

Answer 3

my.df <- read.table(textConnection(" 
v1 v2 v3 v4 
a v d c 
a v d d 
b n p g 
b d d h  
c k d c  
c r p g 
d v d x 
d v d c 
e v d b 
e v d c"), header = TRUE) 

my.df[which(my.df$v1 != "b" & my.df$v1 != "d" & my.df$v1 != "e"), ] 

    v1 v2 v3 v4 
1 a v d c 
2 a v d d 
5 c k d c 
6 c r p g 

Answer 4

Câu trả lời này được nhiều hơn có nghĩa là để giải thích tại sao, không phải là cách. Toán tử '==' trong R được vector hóa theo cách tương tự như toán tử '+'. Nó phù hợp với các yếu tố của bất cứ điều gì là ở phía bên trái để các yếu tố của bất cứ điều gì là ở phía bên phải, cho mỗi yếu tố. Ví dụ:

> 1:3 == 1:3 
[1] TRUE TRUE TRUE 

Đây là thử nghiệm đầu tiên là 1==1 đó là TRUE, thứ hai và thứ ba 2==23==3. Chú ý rằng điều này trả về một FALSE trong các yếu tố đầu tiên và thứ hai vì thứ tự là sai:

> 3:1 == 1:3 
[1] FALSE TRUE FALSE 

Bây giờ nếu một đối tượng là nhỏ hơn sau đó các đối tượng khác thì đối tượng nhỏ được lặp đi lặp lại nhiều như nó cần thiết để phù hợp với lớn hơn vật. Nếu kích thước của đối tượng lớn hơn không phải là phép nhân kích thước của đối tượng nhỏ hơn, bạn sẽ nhận được cảnh báo rằng không phải tất cả các phần tử đều được lặp lại. Ví dụ:

> 1:2 == 1:3 
[1] TRUE TRUE FALSE 
Warning message: 
In 1:2 == 1:3 : 
    longer object length is not a multiple of shorter object length 

Đây là trận đấu đầu tiên là 1==1, sau đó 2==2, và cuối cùng 1==3 (FALSE) vì phía bên trái nhỏ hơn. Nếu một trong hai bên chỉ là một yếu tố sau đó được lặp đi lặp lại:

> 1:3 == 1 
[1] TRUE FALSE FALSE 

Nhà điều hành đúng để kiểm tra nếu một phần tử nằm trong một vector thực sự là '%in%' được vector hóa chỉ tới phần tử bên trái (đối với mỗi phần tử trong vector trái nó được kiểm tra nếu nó là một phần của bất kỳ đối tượng nào trong phần tử bên phải).

Hoặc, bạn có thể sử dụng '&' để kết hợp hai câu lệnh logic. '&' mất hai yếu tố và kiểm tra elementwise nếu cả hai đều là TRUE:

> 1:3 == 1 & 1:3 != 2 
[1] TRUE FALSE FALSE 

Answer 5

Bạn cũng có thể thực hiện điều này bằng cách phá vỡ mọi thứ lên thành câu lệnh lô gíc riêng biệt bằng cách bao gồm & để tách các báo cáo.

subset(my.df, my.df$v1 != "b" & my.df$v1 != "d" & my.df$v1 != "e") 

Đây không phải là thanh lịch và có nhiều mã hơn nhưng có thể dễ đọc hơn cho người dùng R mới hơn. Như đã chỉ ra trong một chú thích ở trên, subset là một chức năng "thuận tiện" được sử dụng tốt nhất khi làm việc tương tác.

Answer 6

data <- data[-which(data[,1] %in% c("b","d","e")),] 

Answer 7

sub.data<-data[ data[,1] != "b" & data[,1] != "d" & data[,1] != "e" , ] 

Larger nhưng đơn giản để hiểu (tôi đoán) và có thể được sử dụng với nhiều cột, ngay cả với !is.na(data[,1]).

Answer 8

Và cũng

library(dplyr) 
data %>% filter(!v1 %in% c("b", "d", "e")) 

hoặc

data %>% filter(v1 != "b" & v1 != "d" & v1 != "e") 

hoặc

data %>% filter(v1 != "b", v1 != "d", v1 != "e") 

Kể từ khi các nhà điều hành & được ngụ ý bởi dấu phẩy.