R语言实战应用精讲50篇（二十九）-数据可视化应用案例（附R语言代码）

Posted 2022-02-12 文宇肃然

条形图、饼图、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_