22 lines
591 B
R
22 lines
591 B
R
library(apexcharter)
|
|
|
|
data("mpg", package = "ggplot2")
|
|
|
|
### No grouping
|
|
|
|
# Both charts should be equivalent
|
|
n_manufac <- dplyr::count(mpg, manufacturer)
|
|
apex(data = n_manufac, type = "column", mapping = aes(x = manufacturer, y = n))
|
|
|
|
apex(data = mpg, type = "column", mapping = aes(x = manufacturer))
|
|
|
|
|
|
### With groups
|
|
|
|
# Both charts should be equivalent
|
|
n_manufac_year <- dplyr::count(mpg, manufacturer, year)
|
|
apex(data = n_manufac_year, type = "column", mapping = aes(x = manufacturer, y = n, fill = year))
|
|
|
|
apex(data = mpg, type = "column", mapping = aes(x = manufacturer, fill = year))
|
|
|