r Usuń nazwy wierszy
rownames(data) <- c()
Gifted Gorilla
rownames(data) <- c()
df <- df[!is.infinite(rowSums(df)),]