几个好玩的R包（持续更新）

install.packages("ggimage")
install.packages("devtools")
install.packages("qrcode")
devtools::install_github("GuangchuangYu/yyplot")
require(ggplot2)
require(ggimage)
require(yyplot)

ggqrcode("https://mp.weixin.qq.com/s/TMmsOsEn0wV9yXKOLma3Rw")

ggqrcode("Things can only get better.")

pg <- ggqrcode("https://www.jianshu.com/u/51a71446d509")
d <- data.frame(x=15, y=15,    
                img="https://upload.jianshu.io/users/upload_avatars/7976641/dbd6256c-70d1-4e44-9bee-86da39f598a9.png?imageMogr2/auto-orient/strip|imageView2/1/w/240/h/240")
pg + geom_image(aes(x,y, image=img), data=d, size=.2)

install.packages('fun')
library(fun)
if (.Platform$OS.type == "windows")
  x11() else x11(type = "Xlib")

mine_sweeper()

gomoku()

random_password(length = 8)

"#pONbPW("