r elimina las filas donde el valor es 0
data <- data[data$undesirable != 0,]
Muddy Macaque
data <- data[data$undesirable != 0,]