精致小 R 包: lemon

点击上方关注“公众号”

1引言

最近一段时间一直在更新 python 的教程和推文,推文阅读量也是屈指可数,今天分享个 R 包 lemon, 让公众号的温度回回火,太难了,哈哈哈。

也是 ggplot 的一个拓展包,功能包括上面图片里的,轴,分面,点线,图例 等小功能。还是很实用的。

2安装

# install.packages("devtools")

# Install release from GitHub:
devtools::install_github("stefanedwards/lemon", ref='v0.3.1')

# Or get the lastest development version from GitHub:
devtools::install_github("stefanedwards/lemon")

3限制轴线范围

library(lemon)
library(patchwork)
library(ggplot2)

p1 <- ggplot(mtcars, aes(x=cyl, y=mpg)) +
  geom_point() +
  theme_light() +
  theme(panel.border=element_blank(),
        axis.line = element_line())

# limit axis
p2 <- p1 +
  coord_capped_cart(bottom='both', left='none')

p1 + p2

分类变量:

# x轴分类
p <- ggplot(mtcars, aes(x=as.factor(cyl), y=mpg)) +
  geom_point(position=position_jitter(width=0.1)) +
  theme_light() +
  theme(panel.border=element_blank(),
        axis.line = element_line()) +
  coord_flex_cart(bottom=brackets_horisontal(),
                  left=capped_vertical('both'))

p

4分面

# 分面
p + facet_rep_wrap(~gear, ncol=2, label=label_both)

5点线图层

作者就给了个图:

6图例

# 图例位置
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]

d <- ggplot(dsamp, aes(carat, price)) +
  geom_point(aes(colour = clarity))

reposition_legend(d, 'top left')

绘制图例:

library(grid)
legend <- g_legend(d)
grid.newpage()
grid.draw(legend)

合并图例:

# combine legend
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]

p1 <- qplot(carat, price, data = dsamp, colour = clarity)
p2 <- qplot(cut, price, data = dsamp, colour = clarity)
p3 <- qplot(color, price, data = dsamp, colour = clarity)
p4 <- qplot(depth, price, data = dsamp, colour = clarity)

grid_arrange_shared_legend(p1, p2, p3, p4, ncol = 2, nrow = 2)

欢迎加入生信交流群。加我微信我也拉你进 微信群聊 老俊俊生信交流群 哦,数据代码已上传至QQ群,欢迎加入下载。

群二维码：