数据仓库与数据挖掘技术期末考试题一

1 复现教材 312 页的实例

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1

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

best_in_class <- mpg %>%
 group_by(class) %>%
 filter(row_number(desc(hwy)) == 1)

ggplot(mpg, aes(displ, hwy)) +
 geom_point(aes(color = class)) +
 geom_point(size = 3, shape = 1, data = best_in_class) +
 ggrepel::geom_label_repel(
 aes(label = model),
 data = best_in_class
 )