R Markdown

Mateo pagame las 16 barras que me debes lpm

ggplot(df, aes(x = factor(1), y = NumeroDeBarrasQueMeDebeMateo)) +
  geom_col(fill = "steelblue") +
  labs(
    title = "Pagame eche",
    x = "Plata",
    y = "Numero de barras que me debe Mateo"
  ) +
  theme_minimal()

David esta lindo