Closed
Description
library(tidyverse)
#> Loading tidyverse: ggplot2
#> Loading tidyverse: tibble
#> Loading tidyverse: tidyr
#> Loading tidyverse: readr
#> Loading tidyverse: purrr
#> Loading tidyverse: dplyr
#> Conflicts with tidy packages ----------------------------------------------
#> filter(): dplyr, stats
#> lag(): dplyr, stats
df <- tibble(
x = c("a", "a", "b"),
n = c(1, 5, 10)
)
ggplot(df, aes(1, n, fill = x)) +
geom_col(position = "dodge", alpha = 0.5)