qimokaoshi

R Markdown

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()

#install.packages("ggrepel")
library(ggrepel)

## Warning: 程辑包'ggrepel'是用R版本4.1.3 来建造的

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))

先使用filter()筛选出每类class最大的hwy值，然后使用geom_point()标记并使用geom_label_repel()对这些点加上标签。

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.