介绍俩个小众但实用的包wherepackage、rPlotter

1. wherepackage

前几日翻Y叔叔公众号推文中，发现一个神包，解锁了又一种装R包的方式，它能让你看到你想装的R包现在处于的状态，指定版本去安装R包，配合remotes::install_version()函数可以方便的安装旧版本的R包。
举个栗子：

install.packages('wherepackage')
remotes::install_github('yikeshu0611/wherepackage')
library('wherepackage')
d = loadData()
where(data = d,packages = c('vegan','ggplot2'))#查看目前该包在Cran上的状态是存档还是在线

remotes::install_version('ggplot2','3.3.2')

如图

图片.png

我们看到ggplot包各个时间的版本状态，被存档的版本和当前版本，所以这个时候可以指定版本安装，也可以使用版本安装命令install_version

2. rPlotter

github地址

image-20200728204633326
之前看文献中看到了一个热图配色不错，就想把其中的渐变色给提取出来瞅瞅，就想到了之间也是公众号里看到这个包可以满足我的需求

简单的安装几个包就可以使用了

## CRAN Packages
install.packages(c("ggplot2", "stringr", "reshape2", "dichromat"))
## EBImage
BiocManager::install("EBImage")  
## Packages on GitHub
library(devtools)
install_github("ramnathv/rblocks")
## And finally ...
install_github("woobe/rPlotter")

#提取颜色
pal_r <- extract_colours("https://gitee.com/kai_kai_he/PicGo/raw/master/img/image-20200728204633326.png",num_col = 15)
par(mfrow = c(1,2))
pie(rep(1, 15), col = pal_r[1:15], main = "Palette based on R Logo")
hist(Nile, breaks = 15, col = pal_r[1:15], main = "Palette based on R Logo")

图片.png

我们把颜色的十六进制码提取出来，方便我们进一步选取想要的颜色
两种方式

# 用该包自带的函数
set.seed(1234)
display_colours(pal_r)

#用上篇整理帖中的scale包
library(scales)
show_col(pal_r)

图片.png

相比之下，还是第二种方式友好，颜色多了第一种排版就拥挤了~~~感叹一声, 真的是包治百病啊