条形图、饼图、treemap及其局部调整

# 条形图、饼图、树形图及其局部调整
library(tidyverse)
mtcars %>%
  mutate(cyl = as_factor(cyl)) %>%
  ggplot(aes(x = cyl)) +
  geom_bar()mtcars %>%
  mutate(cyl = as_factor(cyl)) %>%
  ggplot(aes(y = cyl)) +
  geom_bar()library(janitor)
mtcars_cyl <- mtcars %>%
  tabyl(cyl)mtcars_cyl %>%
  mutate(cyl = as_factor(cyl)) %>%
  ggplot(aes(x = reorder(cyl, -n),
             y = n)) +
  geom_col(fill = "blue") +
  geom_text(aes(label = n),
            vjust = -0.5) +
  labs(x = "cyl",
       y = "Frequency",
       title = "mtcars by cyl") +
  theme(plot.title = element_text(hjust = 0.5)) +
  theme_bw()library(scales)
mtcars_cyl %>%
  mutate(cyl = as_factor(cyl),
         plabel = percent(percent)) %>%
  ggplot(aes(x = reorder(cyl, -n),
             y = percent)) +
  geom_