data_1 <- data.frame(matrix(c(1:20), ncol= 4))
########################################change some value to XXX
data_1
## X1 X2 X3 X4
## 1 1 6 11 16
## 2 2 7 12 17
## 3 3 8 13 18
## 4 4 9 14 19
## 5 5 10 15 20
data_1[data_1 == 3] <- "XXX"
data_1[data_1 == 14] <- "XXX"
data_1
## X1 X2 X3 X4
## 1 1 6 11 16
## 2 2 7 12 17
## 3 XXX 8 13 18
## 4 4 9 XXX 19
## 5 5 10 15 20
######################################remove rows with XXX
data_2 <- data_1
data_3 <- data_2[rowSums(data_2 == "XXX") == 0, ]
data_2; data_3
## X1 X2 X3 X4
## 1 1 6 11 16
## 2 2 7 12 17
## 3 XXX 8 13 18
## 4 4 9 XXX 19
## 5 5 10 15 20
## X1 X2 X3 X4
## 1 1 6 11 16
## 2 2 7 12 17
## 5 5 10 15 20