[R|ggplot2] ggplot2数据分析与图形艺术课后题:第八章

这个主要是对《ggplot2数据分析与图形艺术》第八章相关练习题的总结

library(tidyverse)

ggplot2数据分析与图形艺术课后题:第二章
ggplot2数据分析与图形艺术课后题:第三章
ggplot2数据分析与图形艺术课后题:第五章
ggplot2数据分析与图形艺术课后题:第六章
ggplot2数据分析与图形艺术课后题:第七章
ggplot2数据分析与图形艺术课后题:第八章

8.2.1 练习题

=====

1.查看ggthemes的所有主题

---

目前ggthemes一共有22个主题。其中比较喜欢的是还是theme_clean好一些。

unnamed-chunk-2-22.png

unnamed-chunk-2-21.png

unnamed-chunk-2-20.png

unnamed-chunk-2-19.png

unnamed-chunk-2-18.png

unnamed-chunk-2-17.png

unnamed-chunk-2-16.png

unnamed-chunk-2-15.png

unnamed-chunk-2-14.png

unnamed-chunk-2-13.png

unnamed-chunk-2-12.png

unnamed-chunk-2-11.png

unnamed-chunk-2-10.png

unnamed-chunk-2-9.png

unnamed-chunk-2-8.png

unnamed-chunk-2-7.png

unnamed-chunk-2-6.png

unnamed-chunk-2-5.png

unnamed-chunk-2-4.png

unnamed-chunk-2-3.png

unnamed-chunk-2-2.png

unnamed-chunk-2-1.png

2.默认主题的修改

---

默认的主题，不喜欢的地方在于其背景是灰色的。

p1 + theme(panel.background = element_rect(fill = "white"),
           panel.grid = element_line(color = "grey90"))

image.png

8.4.6 练习题

============

2. 对theme_dark进行调整

---

AdjustPlot <- ggplot(mpg, aes(displ, hwy)) +
  geom_point(position = "jitter", aes(color = class), size = 2) +
  theme_dark() +
  ggtitle("HWY against DISPL") +
  theme(plot.background = element_rect(fill = "black")) +
  labs(x = "Displacement", y = "Highway Miles Per Hour", color = "Type of Car") +
  theme(axis.text.x = element_text(size = 10, color = "white"),
        axis.text.y = element_text(size = 10, color = "white"),
        axis.title = element_text(color = "white"),
        plot.title = element_text(color = "white", hjust = 0.5))

image.png

3. 创建一个新的主题

---

ggplot(mpg, aes(displ, hwy)) +
  geom_point(aes(color = class)) +
  ggtitle("HWY AGAINST DISPL") +
  labs(x = "Displacement", y = "Highway Miles Per Hour", color = "Type of Car") +
  theme(plot.background = element_rect(fill = "linen"),
        panel.background = element_rect(fill = "linen"),
        plot.title = element_text(hjust = 0.5, size = 15, family = "serif"),
        text = element_text(family = "serif"),
        legend.background = element_rect(fill = "linen"),
        legend.text = element_text(family = "serif"),
        panel.grid.major = element_line(linetype = "dotted", color = "black", size = 0.4),
        panel.grid.minor = element_line(linetype = "dotted", color = "grey50", size = 0.4),
        axis.line = element_line(colour = "grey50"))

image.png