RBitmoji包:R与Bitmoji表情包的接口

RBitmoji包:R与Bitmoji表情包的接口

该项目的地址为:bgreenwell/RBitmoji。能够连接你的Bitmoji账户展示你的Bitmoji表情,还可以把表情插入图表中。

注册Bitmoji

首先你可以注册一个Bitmoji账户,Bitmoji是一个iOS app,可以在苹果商店中下载。

注册完之后它会根据你的自拍照生成一个神似你的卡通人物信息,然后你就可以用这些表情包聊天了。我觉得美国人对表情包的理解有偏误,这个东西在我国称为“QQ秀”

注册好这些就能使用这个包了。

安装

1
devtools::install_github("bgreenwell/RBitmoji")

登陆账户

1
2
library(RBitmoji)
my_id <- get_id("[email protected]")

这一步会弹出密码输入框,如果你觉得你长得神似我的卡通形象,可以用我的账户,我的密码是:zegpot-nirwad-2diftI。是不是觉得超级难记,我也是这么觉得的,毕竟是随机密码。

基本用法

1
2
set.seed(102)
plot_comic(my_id, tag = "fail")

1
plot_comic(my_id, tag = "time magazine")

1
2
3
4
5
6
7
8
par(mfrow = c(2, 2))
for (i in 1:4){
set.seed(i)
a = runif(1)*100
set.seed(a)
plot_comic(my_id, tag = "cool")
}
par(mfrow = c(1, 1))

1
2
3
4
5
6
comic <- get_comic(my_id, tag = "morning")
library(ggplot2)
library(ggthemes)
ggplot(iris, aes(x = Petal.Length, y = Petal.Width)) +
geom_point(aes(color = Species)) +
annotation_raster(comic, xmin = 1, xmax = 3, ymin = 1.5, ymax = 2.5) + theme_igray(base_family = "FiraSans-Regular", base_size = 15)

还可以和女朋友一起玩:

1
2
3
4
5
6
7
8
boyid = get_id("[email protected]")
girlid = get_id("[email protected]")
par(mfrow = c(2, 2))
plot_comic(c(girlid, boyid), tag = "bye")
plot_comic(c(boyid, girlid), tag = "love")
plot_comic(c(girlid, boyid), tag = "kiss")
plot_comic(c(boyid, girlid), tag = "kick")
par(mfrow = c(1, 1))

# R

评论

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×