r Remover linhas onde o valor é 0
data <- data[data$undesirable != 0,]
Muddy Macaque
data <- data[data$undesirable != 0,]