利用gghighlight包高亮你的图形

简介: 如何在利用ggplot高亮出你想要展示的数据呢?gghighlight包,快速解决你的问题~~

如何在利用ggplot高亮出你想要展示的数据呢?gghighlight包,快速解决你的问题~~

准备R包

安装gghighlight包
library(tidyverse)
library(gghighlight)
theme_set(theme_bw())

线图

p <- ggplot(
  airquality,
  aes(Day, Temp, group = Month, color = factor(Month))
) +
  geom_line(size = 2) +
  labs(x = "Day of Month", y = "Temperature") +
  theme(legend.position = "top")+scale_color_igv()
p

91ac0f4985b51abbd89cbda59994810.png

OK,现在让我们高亮Temp列数值最大值大于93的线条,也就是说看看哪个月份的Temp值的最大值是大于93的

p + gghighlight(max(Temp) > 93, label_key = Month)

9ea1f585af9aa2cbe613eb8220f5687.png

直方图

ggplot(iris, aes(Sepal.Length, fill = Species)) +
  geom_histogram(bins = 30) +
  scale_fill_igv()

255e64be34398063653cb421cba57b7.png

现在分面后背景都带上原有的三组的图形,将要展示的组高亮出来。

ggplot(iris, aes(Sepal.Length, fill = Species)) +
  geom_histogram(bins = 30) +
  scale_fill_igv() +
  gghighlight() + 
  facet_wrap(~ Species)

cd0157b05b52a4cb243c4d86cb0bb5b.png

散点图

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)

b5d8b5dbc3e47c9ab5e00774278f0d7.png

对于条形图的高亮,我想到了另一个包ggcharts,这个包里有也设置有图形高亮的参数

我们这里使用biomedicalrevenue数据集如下,目标是筛选出revenue列大于40的值:

data("biomedicalrevenue")
revenue2018 <- dplyr::filter(biomedicalrevenue, year == 2018)
#先取出大于40的值
a <- subset(revenue2018,revenue > 40)
#水平作图
bar_chart(revenue2018, # 包含绘图数据的数据集
          company,  # 绘制条形图的因子列
          revenue,  # 绘制条形图的数据值
          # top_n = 10, # 条形图仅显示10个条形
          threshold = 0, # 设置条形图中y>40的数值显示
          bar_color = "purple", # 设置条形图的颜色
          highlight = a$company) # 设置需要强调显示的条形

8e040e7f72791f6dd69a121891811af.png

竖直作图用column_chart函数

column_chart(revenue2018, # 包含绘图数据的数据集
          company,  # 绘制条形图的因子列
          revenue,  # 绘制条形图的数据值
          top_n = 10, # 条形图仅显示10个条形
          threshold = 0, # 设置条形图中y>40的数值显示
          bar_color = "purple", # 设置条形图的颜色
          highlight = a$company) # 设置需要强调显示的条形

752a1aafc8ccc369e54be63d8c61e73.png


可以看到,数值的话X坐标轴上的标签没办法调角度,图片也不美观,当然也可以自己设置threshold参数,调整阈值使条形图的数目减少。ggcharts包不只可以画条形图,还可以画哑铃图,棒棒糖图等等,大家自行摸索吧~

最后我们再用我们的主角gghighlight函数

ggplot(revenue2018, aes(company, revenue)) +
  geom_col(fill = 'purple') +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  gghighlight(revenue > 40, label_key = name)+scale_y_continuous(expand = c(0,0))

bf4cb0e05766e0c9a86bb3dfa038d57.png

感觉还是使用gghiglight会更加友好,因为它支持ggplot语法习惯,可以使我们更加个性化的设置图形~~

参考链接:https://www.datanovia.com/en/blog/gghighlight-easy-way-to-highlight-a-ggplot-in-r/


相关文章
|
JavaScript
js字体标红-高亮-自定义高亮-搜索高亮
js字体标红-高亮-自定义高亮-搜索高亮
|
C++
【Qt】实现文本整词高亮
QTextEdit 中显示富文本,整词匹配并高亮
176 0
SVG 图形分组(三)
SVG 图形分组(三)
71 0
|
移动开发 前端开发 HTML5
前端 HTML5 Svg 画板(支持视频、图片上涂鸦,支持缩放、修改、颜色、复选...)
前端 HTML5 Svg 画板(支持视频、图片上涂鸦,支持缩放、修改、颜色、复选...)
241 0
|
Python 容器
tkinter模块高级操作(二)—— 界面切换效果、立体阴影字效果及gif动图的实现
tkinter模块高级操作(二)—— 界面切换效果、立体阴影字效果及gif动图的实现
274 0
|
前端开发
如何修改 Typora 「高亮」的颜色
Typora 有一个「高亮」的格式,类似于荧光笔,但是感觉默认的颜色偏亮,看久了不舒服,所以利用修改主题文件的方式来自定义颜色。
817 1
如何修改 Typora 「高亮」的颜色
|
小程序
小程序svg图标的转换使用
小程序svg图标的转换使用
172 0
小程序svg图标的转换使用
SwiftUI—如何将颜色、图片和图形作为视图的背景
SwiftUI—如何将颜色、图片和图形作为视图的背景
817 0
SwiftUI—如何将颜色、图片和图形作为视图的背景
|
存储 物联网 C语言
LittlevGL图形框架扩展 - JPEG图片的支持
在轻量级RTOS GUI图形库中,LittlevGL是一个使用C语言开发,开源免费的GUI,支持触摸屏,鼠标,键盘多种操作,移植简单方便,在丰富的控件基础上还可以自定义控件,开发者一直在不断完善更新,相对于其他GUI,LittlevGL在硬件资源不足(RAM < 100kbytes)的情况下存在较大的优势,在240*240的显示屏上显示一张图片,RAM缓冲区设置为2Kbytes即可。AliOS Things 目前最新版本已经集成LittlevGL,并且在智能穿戴设备项目上已商用。
LittlevGL图形框架扩展 - JPEG图片的支持
|
C#
C# 设置Word文档背景(纯色/渐变/图片背景)
Word是我们日常生活、学习和工作中必不可少的文档处理工具。精致美观的文档能给人带来阅读时视觉上的美感。在本篇文章中,将介绍如何使用组件Free Spire.Doc for .NET(社区版)给Word设置文档背景。
1255 0