Y 叔出品：ggfun

Y 叔 6 月 30 号在 R 官网上发了这个包，这个包可以给 ggplot 图例添加外框、添加自定义图例、改变字体三个功能，来探索一下吧！

目录

ggfun

• keybox
• gglegend
• set_font

---

1、安装 R 包

install.packages('ggfun')

2、使用示例

加载R包

library("grid")
library("ggplot2")
library(ggprism)
library(ggsci)
library("ggfun")

keybox：给图例添加边框：

data("mtcars")
p <- ggplot(mtcars,aes(x = mpg,y = disp)) +
        geom_point(aes(color = factor(cyl)),size = 5) +
        theme_prism() +
        scale_color_aaas() +
        theme(legend.position = c(0.8,0.8))
        
keybox(p, 'rect')        

添加圆角虚线边框：

keybox(p, 'roundrect', gp = gpar(col = '#808080', lty = "dashed"))

gglegend：添加图例：

mtcars$cyl <- factor(mtcars$cyl)

p1 <- ggplot(mtcars,aes(x = cyl,y = disp)) +
        geom_boxplot(width = 0.5,size = 1) +
        geom_jitter(size = 6.5,width = 0.2,alpha = .5,show.legend = F) +
        theme_prism() +
        scale_color_aaas()
p1

p2 <- gglegend(aes(colour =VALUE, label=VALUE), data, geom_text, p1)
p2

library(patchwork)
p1 + p2

set_font：设置字体：

p2 <- ggplot(mtcars,aes(x = cyl,y = disp)) +
        geom_boxplot(width = 0.5,size = 1) +
        geom_jitter(aes(color = factor(cyl)),size = 6.5,width = 0.2,alpha = .5,show.legend = T) +
        theme_prism() +
        scale_color_aaas() +
        theme(legend.position = c(0.1,0.9))

set_font(p2, family="Times", fontface="italic", color='firebrick')

欢迎小伙伴留言评论！

今天的分享就到这里了，敬请期待下一篇！

最后欢迎大家分享转发，您的点赞是对我的鼓励和肯定！

如果觉得对您帮助很大，打赏一下吧！