首先是看到下面这个文章想试着练习一下，结果第一步就卡住了，无法加载devtools包，繁体字都冒出来了......汗！（没有截图，但过程痛苦不堪~）
https://www.sohu.com/a/122630261_468636
在网上遍寻不着此题的答案，但根据热心网友的回答，我大概懂了一点里面的门道：
首先，R包受镜像限制，也就是cran，这里我理解为：有的镜像下没有你需要的包，因此无法加载。我的R3.6.0报错信息里也提示说，在ltu镜像（好像是这个）下无法加载......
后来，在另一位热心网友的启发下，我连接了强大的中科院镜像，果然非同凡响！
https://blog.csdn.net/qq_29300341/article/details/53229215
这个时候，我按照博客里的操作，运行第一段代码，耗费挺长时间，
我用这段时间了看了一个纪念海军成立70周年的7分钟短视频。
......
然后，我输入install.packages('devtools')，居然就成功安装上了，简直太神奇了！！！
Amazing！
接下来的输入都没有问题，R软件一一执行，我也成功做出了和上述文章一毛一样的图。
雀跃~
实际上似乎把博客的第一段代码里的biocLite("methylKit")
直接改为你需要的biocLite("devtools")就可以！
我的成功之路如下：
--首先，关闭R，重新打开并输入以下代码，连接中科院镜像：
source("http://bioconductor.org/biocLite.R")
options(BioC_mirror="http://mirrors.ustc.edu.cn/bioc/")
biocLite("methylKit")
--直接安装devtools包，这里我选择了shanghai映像，1或2都可以：
install.packages('devtools')
--接下来输入：
install.packages("curl")
devtools::install_github('hadley/ggplot2')
devtools::install_github("ricardo-bion/ggtech", dependencies=TRUE)
library(ggplot2)
library(ggtech) #最新的包，crane上没有，只能在github上下载。
--绘图示例代码：
d <- qplot(carat, data = diamonds[diamonds$color %in%LETTERS[4:7], ], geom = "histogram", bins=30, fill = color)
d + theme_tech(theme="airbnb") +
scale_fill_tech(theme="airbnb") +
labs(title="Airbnb theme", subtitle="now with subtitles for ggplot2 >= 2.1.0")
就能得到和大神一样的图啦！