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

options(repos = list(CRAN="http://cran.rstudio.com/"))
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

install.packages("ggrepel")

## 程序包'ggrepel'打开成功，MD5和检查也通过

## Warning: 无法将拆除原来安装的程序包'ggrepel'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): 拷
## 贝D:\R-4.2.0\library\00LOCK\ggrepel\libs\x64\ggrepel.dll到D:
## \R-4.2.0\library\ggrepel\libs\x64\ggrepel.dll时出了问题：Permission denied

## Warning: 回复了'ggrepel'

## 
## 下载的二进制程序包在
##  C:\Users\quan\AppData\Local\Temp\RtmpcPSHSX\downloaded_packages里

library(ggrepel)
new <- mpg %>%
  group_by(class) %>%
  filter(row_number(desc(hwy)) == 1)

ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class)) +
  geom_point(data = new, size = 3, shape = 1) +
  geom_label_repel(data =new, aes(label = model))