利用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/


相关文章
Cesium开发:模型实体高亮
Cesium开发:模型实体高亮
612 0
|
6月前
|
IDE 数据可视化 Java
Python语法高亮库Pygments
Python语法高亮库Pygments
161 0
|
JavaScript
js字体标红-高亮-自定义高亮-搜索高亮
js字体标红-高亮-自定义高亮-搜索高亮
|
C++
【Qt】实现文本整词高亮
QTextEdit 中显示富文本,整词匹配并高亮
180 0
|
iOS开发 MacOS
小技巧:Typera如何设置高亮和自定义快捷键?
我们可以打开typera的软件或者打开一个md 文件用typera 打开方式即可
258 0
|
数据挖掘
使用 ggcharts 高亮部分内容
使用 ggcharts 高亮部分内容
94 0
|
前端开发
如何修改 Typora 「高亮」的颜色
Typora 有一个「高亮」的格式,类似于荧光笔,但是感觉默认的颜色偏亮,看久了不舒服,所以利用修改主题文件的方式来自定义颜色。
825 1
如何修改 Typora 「高亮」的颜色
SwiftUI—如何将颜色、图片和图形作为视图的背景
SwiftUI—如何将颜色、图片和图形作为视图的背景
820 0
SwiftUI—如何将颜色、图片和图形作为视图的背景
dedecms代码显示高亮插件教程
dedecms代码显示高亮插件教程
dedecms代码显示高亮插件教程