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