# 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