Y叔的新玩意--yyplot
理论上这篇文章是应该是Y叔自己介绍他写的新玩意，yyplot。不过谁让我的时间多，写字数据快呢。
什么是yyplot
yyplot是估计是Y叔打算整合自己所有常用的工具所创建的包。其中的ggqrcode是基于ggplot2绘制二维码的R包。二维码就是我们每天都会扫的那个了，一般使用验证付款，网页跳转等功能上。前一段时间，一直用的网页工具把公众号文章链接转成二维码，但是Y叔建议用R包减轻一下负担。于是写了一个ggqrcode给我用。
如何安装
在安装yyplot之前你需要安装以下几个包
install.packages("ggimage")
install.packages("devtools")
install.packages("qrcode")由于yyplot存放在github上，所以你需要用devtools进行安装
devtools::install_github("GuangchuangYu/yyplot")如何使用
首先你需要加载一些必须包，比如说绘图所需要的ggplot2, 然后组合图片所需要的ggimage,以及今天的主角yyplot
require(ggplot2)
require(ggimage)
require(yyplot)基本玩法
我们可以把链接变成二维码, 随便拿了一篇Y叔的公众号文章做一下示例。
ggqrcode("https://mp.weixin.qq.com/s/TMmsOsEn0wV9yXKOLma3Rw")有时候，你想和朋友（无论同性或异性）告白，不知道怎么开口，你可以发一个二维码给她呀。就是不知道效果如何。
ggqrcode("I love you")高级玩法
二维码本质上是构建了01的矩阵，所以我们其实在上面的图上加一些自定义的内容。
比如说实现下图的效果：
其实就是降低了二维码部分的透明度，然后在背后添加其他图片。
首先构建一个包含图像地址的ggplot对象，其中图片层为geom_image, 背景主题为无,也就是theme_void().
d <- data.frame(x=1, y=1,
img="http://kemono-friends.jp/wp-content/themes/kemono-friends/assets/zoo/img/detail/001/chara.png")
p <- ggplot(d, aes(x,y)) + geom_image(aes(image=img), size=Inf) + theme_void()然后我们在此基础上，添加上二维码的图层,颜色为蓝色，透明度为80%，就大功告成了。
p2 <- ggqrcode("http://mp.weixin.qq.com/s/oLgpTGdQgcka-OD757_3lA", "blue", alpha=.8)
p + geom_subview(p2, width=Inf, height=Inf, x=1, y=1)那么我们如何在二维码中间加上logo呢，如下图这样子呢:
其实也就是将我们的logo直接用ggimage添加到二维码的中心了。
pg <- ggqrcode("https://mp.weixin.qq.com/s/TMmsOsEn0wV9yXKOLma3Rw")
d <- data.frame(x=15, y=15,
img="https://guangchuangyu.github.io/blog_images/gc.png")
pg + geom_image(aes(x,y, image=img), data=d, size=.2)就是这么简单，就是那么轻松，不去玩一把么？
读读源码
当然光会用R包还是不够的，我们还应该学Y叔写R包。其实源代码的ggqrcode就是如下几行:
ggqrcode <- function(text, color="black", alpha=1) {
pkg <- "qrcode"
require(pkg, character.only = TRUE)
x <- qrcode_gen(text, plotQRcode=F, dataOutput=T)
x <- as.data.frame(x)
y <- x
y$id <- rownames(y)
y <- gather_(y, "key", "value", colnames(y)[-ncol(y)])
y$key = factor(y$key, levels=rev(colnames(x)))
y$id = factor(y$id, levels=rev(rownames(x)))
ggplot(y, aes_(x=~id, y=~key)) + geom_tile(aes_(fill=~value), alpha=alpha) +
scale_fill_gradient(low="white", high=color) +
theme_void() + theme(legend.position='none')
}Y叔首先调用qrcode包产生二维码的01矩阵
x <- qrcode_gen(text, plotQRcode=F, dataOutput=T)
x <- as.data.frame(x然后利用tidy包的gather_函数对数据框结构进行整理清洗，变成ggplot2绘图所需要的数据格式
y <- x
y$id <- rownames(y)
y <- gather_(y, "key", "value", colnames(y)[-ncol(y)])
y$key = factor(y$key, levels=rev(colnames(x)))
y$id = factor(y$id, levels=rev(rownames(x)))因为二维码从本质上可以看成一种热图，所以Y叔用geom_tile表示数据。
由此，我需要学习并熟练掌握ggplot2和tidyr包。
文后放上Y叔的公众号，去学习更多关于可视化的知识。