完整的ggplot2教程-第2部分(1)| ggthemes简介

ggplot教程第1部分涉及ggthemes主题，但是主题较多，因此这一部分先介绍该包，并展示ggthemes中包括的所有的主题，下一步介绍修改主题组件，操纵图例，注释，分面和自定义布局等。

library(tidyverse)

## -- Attaching packages ------------------------ tidyverse 1.3.0 --

## √ ggplot2 3.2.1     √ purrr   0.3.3
## √ tibble  2.1.3     √ dplyr   0.8.3
## √ tidyr   1.0.0     √ stringr 1.4.0
## √ readr   1.3.1     √ forcats 0.4.0

## -- Conflicts --------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(ggthemes)
p1 <- ggplot(midwest, aes(x=area, y=poptotal)) + 
  geom_point(aes(col=state), size=3) +  # Set color to vary based on state categories.
  geom_smooth(method="lm", col="firebrick", size=2) + 
  coord_cartesian(xlim=c(0, 0.1), ylim=c(0, 500000)) + 
  labs(title="Area Vs Population", 
       subtitle="From midwest dataset",
       y="Population", x="Area", 
       caption="Midwest Demographics") +
  theme(plot.title = element_text(size = 20,hjust = 0.5),
        axis.title = element_text(size = 15),
        axis.text = element_text(size = 10))
p1

p1 + ggthemes::theme_base()

p1 + ggthemes::theme_calc()

p1 + ggthemes::theme_clean()

p1 + ggthemes::theme_economist()

p1 + ggthemes::theme_economist_white()

p1 + ggthemes::theme_excel()

p1 + ggthemes::theme_excel_new()

p1 + ggthemes::theme_few()

p1 + ggthemes::theme_fivethirtyeight()

p1 + ggthemes::theme_foundation()

p1 + ggthemes::theme_gdocs()

p1 + ggthemes::theme_hc()

p1 + ggthemes::theme_igray()

p1 + ggthemes::theme_map()

p1 + ggthemes::theme_pander()

p1 + ggthemes::theme_par()

p1 + ggthemes::theme_solarized()

p1 + ggthemes::theme_solarized_2()

p1 + ggthemes::theme_solid()

p1 + ggthemes::theme_stata()

p1 + ggthemes::theme_tufte()

p1 + ggthemes::theme_wsj()