GGHIGHLIGHT: EASY WAY TO HIGHLIGHT A GGPLOT IN R

library(tidyverse)
library(gghighlight)
theme_set(theme_bw())
p <- ggplot(
  airquality,
  aes(Day, Temp, group = Month, color = factor(Month))
) +
  geom_line() +
  scale_color_viridis_d() +
  labs(x = "Day of Month", y = "Temperature") +
  theme(legend.position = "top")
p
1
2
3
4
5
6
7
8
9
10
11
12

library(tidyverse)
library(gghighlight)
theme_set(theme_bw())
p <- ggplot(
  airquality,
  aes(Day, Temp, group = Month, color = factor(Month))
) +
  geom_line() +
  scale_color_viridis_d() +
  labs(x = "Day of Month", y = "Temperature") +
  theme(legend.position = "top")
p + gghighlight(max(Temp) > 93, label_key = Month)
1
2
3
4
5
6
7
8
9
10
11
12

library(tidyverse)
library(gghighlight)
theme_set(theme_bw())
ggplot(iris, aes(Sepal.Length, fill = Species)) +
  geom_histogram(bins = 30) +
  scale_fill_viridis_d() +
  gghighlight() + 
  facet_wrap(~ Species)
1
2
3
4
5
6
7
8

library(tidyverse)
library(gghighlight)
df <- mtcars %>% mutate(name = row.names(.))
df %>% 
  ggplot(aes(mpg, disp)) +
  geom_point(col = "darkred") +
  gghighlight(disp > 350 & disp <= 400,
              unhighlighted_colour = alpha("steelblue", 0.4),
              use_direct_label = TRUE,
              label_key = name,
              label_params = list(size = 5)) +
  geom_point(col = "darkred", size = 2.5) 
1
2
3
4
5
6
7
8
9
10
11
12

library(tidyverse)
library(gghighlight)
df <- mtcars %>% mutate(name = row.names(.))
ggplot(df, aes(name, mpg)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  gghighlight(mpg > 25)
1
2
3
4
5
6
7

原文链接