# NOT RUN {
head(fruits)
fr <- fruits %>%
dplyr::mutate(value = value * 100) %>%
dplyr::select(name = fruit, value) %>%
alter(type = "waffle", maxCount = 500, rows = 12)
head(fr)
g2(fr, asp(x, y, shape = "square", size = 10, color = name)) %>%
fig_point(axes = FALSE) %>%
gauge_axis(x, FALSE)
# }
Run the code above in your browser using DataLab