r usuń wiersze, w których wartość wynosi 0
data <- data[data$undesirable != 0,]
Muddy Macaque
data <- data[data$undesirable != 0,]