1. 利用 R 自带数据集 ggplot2 :: mpg， 基于如下代码， 如果想要点的颜色为蓝色，
如何添加代码？
ggplot(data = mpg, mapping = aes(x = displ, y = hwy) )
3. 编写代码以使用某一种映射函数（map()） 完成以下任务。
(1) 计算 mtcars 数据集中每列的均值。
(2) 确定 nycflights13::flights 数据集中每列的类型。
(3) 计算 iris 数据集中每列唯一值的数量。
(4) 分别使用μ= 5 和 12 的正态分布生成 10 个随机数。4. 在 R 自带数据集 ggplot2 :: diamonds 中， 回答下列问题：
(1) 如何展示变量 x、 y 和 z 变量的分布？
(2) 0.99 克拉的钻石有多少？ 1 克拉的钻石有多少？
(3) 用图示的方法探索钻石价格是如何随着质量而变化的。
5. 利用 R 自带包 nycflights13 中的数据集 flights, 回答下列问题：
(1) 找出到达时间延误超过 2 小时，但出发时间没有延误的航班。
(2) 哪个航班的飞行时间最长？哪个最短？
(3) 由于变量 dep_time 和 sched_dep_time 实际上并不是连续型数值， 故不适合
计算。 现将它们转换成一种更方便的表示形式，即从午夜开始的分钟数。
(4) 查看每天取消的航班数量。其中存在模式吗？已取消航班的比例与平均延
误时间有关系吗？
(5) 如何说明工作日出发的航班多于周末出发的航班。
6. 创建正则表达式来找出符合以下条件的所有单词。
(1) 以元音字母开头的单词。
(2) 以 ed 结尾，但不以 eed 结尾的单词。
(3) 有连续 3 个或更多元音字母的单词。
7. 使用恰当的 lubridate 函数来解析以下每个日期和时间。
d1 <- "January 1, 2010"
d2 <- "06-Jun-2017"
d3 <- "12/30/14" # 2014 年 12 月 30 日
t1 <- "1705"
t2 <- "11:15:10.12 PM