Sure:
> dput(head(MediaSite))
structure(list(Sito = c("Sito 1", "Sito 2", "Sito 1", "Sito 2",
"Sito 1", "Sito 2"), Classe_Dimensionale = c("0-5 cm", "0-5 cm",
"5-10 cm", "5-10 cm", "10-15 cm", "10-15 cm"), Media = c(0.25,
1.5, 0, 5.75, 0.75, 12.75), Log_Media = c(-0.60206, 0.17609,
0, 0.75967, -0.82391, 0.24304), Abbondanza_Totale = c(1, 6, 0,
23, 3, 51), se_score = c(0.25, 1.5, 0, 5.421792, 0.25, 4.75),
sd_score = c(0.5, 3, 0, 10.84358, 0.5, 9.5)), row.names = c(NA,
-6L), class = c("tbl_df", "tbl", "data.frame"))
~Sito, ~Classe_Dimensionale, ~Media, ~Log_Media, ~Abbondanza_Totale, ~se_score, ~sd_score,
"Sito 1", "0-5 cm", 0.25, -0.60206, 1, 0.25, 0.5,
"Sito 2", "0-5 cm", 1.5, 0.17609, 6, 1.5, 3,
"Sito 1", "5-10 cm", 0, 0, 0, 0, 0,
"Sito 2", "5-10 cm", 5.75, 0.75967, 23, 5.421792, 10.84358,
"Sito 1", "10-15 cm", 0.75, -0.82391, 3, 0.25, 0.5,
"Sito 2", "10-15 cm", 12.75, 0.24304, 51, 4.75, 9.5,
"Sito 1", "15-20 cm", 1.25, 0.09691, 5, 0.75, 1.5,
"Sito 2", "15-20 cm", 18.25, 1.26126, 73, 6.811449, 13.6229,
"Sito 1", ">20 cm", 0, 0, 0, 0, 0,
"Sito 2", ">20 cm", 25, 1.39794, 100, 8.256311, 16.51262