如何在利用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
OK,现在让我们高亮Temp列数值最大值大于93的线条,也就是说看看哪个月份的Temp值的最大值是大于93的
p + gghighlight(max(Temp) > 93, label_key = Month)
直方图
ggplot(iris, aes(Sepal.Length, fill = Species)) + geom_histogram(bins = 30) + scale_fill_igv()
现在分面后背景都带上原有的三组的图形,将要展示的组高亮出来。
ggplot(iris, aes(Sepal.Length, fill = Species)) + geom_histogram(bins = 30) + scale_fill_igv() + gghighlight() + facet_wrap(~ Species)
散点图
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)
对于条形图的高亮,我想到了另一个包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) # 设置需要强调显示的条形
竖直作图用column_chart函数
column_chart(revenue2018, # 包含绘图数据的数据集 company, # 绘制条形图的因子列 revenue, # 绘制条形图的数据值 top_n = 10, # 条形图仅显示10个条形 threshold = 0, # 设置条形图中y>40的数值显示 bar_color = "purple", # 设置条形图的颜色 highlight = a$company) # 设置需要强调显示的条形
可以看到,数值的话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))
感觉还是使用gghiglight会更加友好,因为它支持ggplot语法习惯,可以使我们更加个性化的设置图形~~
参考链接:https://www.datanovia.com/en/blog/gghighlight-easy-way-to-highlight-a-ggplot-in-r/