R remove os nomes das linhas
rownames(data) <- c()
Gifted Gorilla
rownames(data) <- c()
df <- df[!is.infinite(rowSums(df)),]