mmjpgcom 网站 2018 年年终报告

自己布置的作业果然还是要自己完成,这是另外一个妹子图网站:妹子图 - 每日分享高清美女图片。同样这个网站也有一个手机版:妹子图手机版。不过这个网站上图片的类别要进入图片主页才能看到,这样就比较费时间了,所以这次不爬分类了。结果发现,2018 年对这个网站来说也是惨淡的一年。

妹子图网站 2018 年年度报告

2018 年元旦的那个夜晚我就在和丁文亮一起爬妹子图网站。到今年,我也算是陪伴了妹子图这个网站一整年了,一年来是闲着没事就爬爬里面的图片。现在爬起图片网站来是毫无压力了。既然年终了,我就帮妹子图网站来个年度报告吧!

我的酷狗音乐 2018 年年度报告

分析完网易云音乐的报告之后就该分析酷狗音乐的了。我的酷狗音乐年度报告的地址为:你好,时光

您好,振兴为您提供年度音乐报告。

——丁文亮

我的网易云音乐 2018 年年度报告

每一年的年初最有意思的事情莫过于看看各个 APP 的年终报告了。为了比较自己多年的变化,决定把这些年终报告记录下来。这一篇就是网易云的年终报告了。我的年度报告的地址是:遇见你,真好

R 和 Stata 中的环境变量与启动项

电脑有开机启动项,而软件自然也有软件启动项。可以通过一些设定可以让软件启动之后就运行某些程序来达到简化工作的目的。

比特币评论分析

本文使用 R 和 Python 对stocktwits网站上的评论进行了爬取。这个网站大概每几分钟只能请求 200 次,超过这个次数会被封 IP 几分钟。

最后本文使用爬取到的数据绘制了一张图堆叠柱形图。

行政单位名称的分析

最近微信上有一篇很火的微信推文:我们分析了 67 万个村名,找到了中国地名的秘密。由网易数独创作,感觉非常有趣,就自己模仿着做了一份。

世界各国 Top12 总储备排名

前两天在微博上看到了一个视频,是一个关于世界 Top12 国家的总储备(包括黄金)排名变化的视频,然后就想模仿做一个 GIF 图。数据来源Knoema。不同于上次强硬地进行字符串处理获取数据,这次是直接把数据读取为 json 文件进行处理得到的数据。

使用 ggplot2 和 echarts4r 绘制我的微信好友分布图

今天下午随意看了一下echarts4r这个包。发现这个包对 ECharts 的封装比谢益辉的 recharts 好太多!使用起来非常容易且功能很强大。作为开篇,这篇博客介绍了如何使用 ggplot2 和 echarts4r 包绘制我的微信好友分布图(统计图表+地图)。

科技期刊论文数量排名 Top10 可视化

这篇不是学习笔记了哈,是自己第一次正式独立使用 ggplot 绘图的尝试,过程比较艰辛。

RITCH:在 R 中解析 ITCH 文件(金融和市场微观结构数据)

RITCH:在 R 中解析 ITCH 文件(金融和市场微观结构数据)

Introducing RITCH: Parsing ITCH Files in R (Finance & Market Microstructure)学习笔记。

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))

Your browser is out-of-date!

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

×