二维码生成器（R）

#install.packages("ggimage")
#install.packages("devtools")
#install.packages("qrcode")

library(ggimage)
library(devtools)
library(qrcode)
BiocManager::install("ggtree")

devtools::install_github("GuangchuangYu/yyplot")
library(yyplot)

require(ggplot2)
require(ggimage)
require(yyplot)

#把链接变成二维码
ggqrcode("https://mp.weixin.qq.com/s/TMmsOsEn0wV9yXKOLma3Rw")

#实验室楼上有个冰箱，外面贴着好多二维码，扫一下就知道冰箱某一格放的是什么东西，详细介绍什么的
ggqrcode("I love you")

#高级
#首先构建一个包含图像地址的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直接用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)

• 参考：https://mp.weixin.qq.com/s?__biz=MzI5NjUyNzkxMg==&mid=2247485162&idx=1&sn=9468ddf392230fa6df170ba7d1a71365&chksm=ec43b7addb343ebb7e22b720cb2e4d6118aa26696e1dfc416ae7b1281659dcd521b734ff0bcd&mpshare=1&scene=1&srcid=1121rjLjjqpIppXi5AzOO9Qi&sharer_sharetime=1574298552973&sharer_shareid=c6c2c54ae085aa5e8c6fd43924f940c4&key=4ac440fd252317b900dc553e5ab8a5841fbb33b4e66243d8e83360a9be7902e35f075353d2c9082c657c632fc79eccac65d2679679c99f8d649c36fe6125663ee615041c11feba236804ddc48a2f2a0f&ascene=1&uin=MTEwODk0NTQ2Mg%3D%3D&devicetype=Windows+10&version=62060739&lang=zh_CN&pass_ticket=%2BEUtnma5HZD0ZDDL67GGpxuGvOZS2X9Y%2B1zjpiNE7VqZtHWzZ5FUIEoCaQhXscI9