Here is a reprex of your data. Have you got your ggplot
code?
df <- tibble::tribble(
~Taxon, ~MOPF, ~MA, ~RA, ~TV, ~GT,
"Andesiops", 75, 25, 0, 0, "detritívoro",
"Meridialaris", 5, 95, 0, 0, "herbívoro",
"Polycentropus", 20, 0, 80, 0, "depredador",
"Austrelmis", 93, 7, 0, 0, "detritívoro",
"Prionocyphon", 40, 0, 60, 0, "depredador",
"Neoplasta", 98, 2, 0, 0, "detritívoro",
"Gigantodax", 65, 15, 20, 0, "detritívoro",
"Simulium", 30, 65, 5, 0, "herbívoro",
"Tipula", 30, 0, 0, 70, "herbívoro",
"Alotanypus", 60, 20, 20, 0, "detritívoro",
"Pentaneura", 35, 5, 60, 0, "depredador",
"Corynoneura", 15, 85, 0, 0, "herbívoro",
"Cricotopus", 90, 10, 0, 0, "detritívoro",
"Tanytarsus", 95, 5, 0, 0, "detritívoro",
"Podonomus", 25, 75, 0, 0, "herbívoro",
"Podonomopsis", 85, 15, 0, 0, "detritívoro",
"Parochlus", 95, 5, 0, 0, "detritívoro"
)