Близко к тому, что вы хотите:
df <- tibble::tribble(
~team, ~played, ~wins, ~draws, ~losses, ~scored, ~conceded,
"A", 5L, 3L, 1L, 1L, 12L, 4L,
"B", 7L, 3L, 3L, 1L, 16L, 8L,
"C", 3L, 0L, 1L, 2L, 2L, 14L,
"D", 5L, 2L, 2L, 1L, 12L, 7L
)
library(ggthemes)
df %>%
pivot_longer(wins:losses) %>%
mutate(name = factor(name, levels = c("wins", "draws", "losses"))) %>%
ggplot(aes(y = fct_reorder(team, -order(team)), x = value, fill = name)) +
geom_col(position = position_stack(reverse = TRUE)) +
labs(y="team", x="") +
theme_tufte() +
theme(panel.grid.major.x = element_line(color = "black"),legend.position="top", legend.title = element_blank())