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