揭秘gghighlight：如何绘制高亮折线图，让数据一目了然！

准备

❝

本文主要展示如何利用gghighlight包进行折线图细节的突出显示，以及具体的细节优化。

安装和加载R包：

# 安装R包
install.packages("gghighlight")

# 加载R包
library(gghighlight)
library(ggplot2)8

创建数据：

# 设置随机数种子以确保结果可重复  
set.seed(2)  

# 使用purrr包的map_dfr函数遍历字母，并为每个字母创建数据框，然后合并这些数据框  
d <- purrr::map_dfr(  
  letters,  
  ~ data.frame(  
    idx = 1:400, # 创建一个从1到400的序列  
    value = cumsum(runif(400, -1, 1)), # 计算-1到1之间的随机数的累积和  
    type = ., # 当前遍历到的字母  
    flag = sample(c(TRUE, FALSE), size = 400, replace = TRUE), # 随机生成TRUE或FALSE的序列  
    stringsAsFactors = FALSE # 确保type列不被转换为因子  
  )  
)  

绘制基础折线图

# 绘制基础折线图  
ggplot(d) +  
# aes函数定义了映射关系，idx是x轴，value是y轴，type决定线条颜色
  geom_line(aes(idx, value, colour = type))

设置高亮折线

p <- ggplot(d) +  
  geom_line(aes(idx, value, colour = type)) +  
  gghighlight(max(value) > 20) # 高亮value最大值大于20的部分  
p

自定义主题

p + theme_bw()

分组显示

p + theme_bw() + facet_wrap(~ type)

欢迎加入

参考资料：https://yutannihilation.github.io/gghighlight/articles/gghighlight.html