用“emoji”秀出你的风采

2017-09-29 王明 爬虫俱乐部 爬虫俱乐部

有问题,不要怕!点击推文底部“阅读原文”下载爬虫俱乐部用户问题登记表并按要求填写后发送至邮箱statatraining@163.com,我们会及时为您解答哟

下班休息看推文,放学回家学技术,千篇一律怎么破?我来帮你秀风采!

还在为日复一日的重复而焦躁吗?还在为秀不出自己的风采而烦恼吗?小编这就给客官上菜——用emoji来绘图,点出精彩人生!

emoji

emoji(絵 文字,词义来自日语えもじ,e-moji,moji在日语中的含义是字符)是一套起源于日本的12x12像素表情符号,由栗田穣崇(Shigetaka Kurit)创作,最早在日本网络及手机用户中流行,自苹果公司发布的iOS 5输入法中加入了emoji后,这种表情符号开始席卷全球,目前emoji已被大多数现代计算机系统所兼容的Unicode编码采纳,普遍应用于各种手机 短信和社交网络中。

我们首先生成变量x和y,程序如下:

clear

cap mkdir E:\推文

cd E:\推文

set obs 12

gen x = _n

gen y = x + uniform()

运行结果如下:

图一

这时候新的数据就飞入你的碗里了,任你鱼肉了!还不试试!

我们生成一个新变量emoji,当x为1,2,……,12时,emoji对应为🐀,🐰,……,🐺。键入以下命令:

gen emoji = ustrunescape("\U0001f400") if x == 1

replace emoji = ustrunescape("\U0001f430") if x == 2

replace emoji = ustrunescape("\U0001f439") if x == 3

replace emoji = ustrunescape("\U0001f411") if x == 4

replace emoji = ustrunescape("\U0001f410") if x == 5

replace emoji = ustrunescape("\U0001f404") if x == 6

replace emoji = ustrunescape("\U0001f408") if x == 7

replace emoji = ustrunescape("\U0001f412") if x == 8

replace emoji = ustrunescape("\U0001f434") if x == 9

replace emoji = ustrunescape("\U0001f437") if x == 10

replace emoji = ustrunescape("\U0001f418") if x == 11

replace emoji = ustrunescape("\U0001f43a") if x == 12

:emoji对应unicode转义字符见附录(比如:\U0001f400是🐀的转义字符,ustrunescape函数是对unicode转义字符的解码)

我们键入edit查看一下stata中的数据,显示如下:

图二

这时,我们人间人爱,花见花开的emoji就进入到我们的数据中了。还等什么?赶紧利用起来吧!

键入以下命令:

scatter y x, mlabel(emoji) mlabsize(huge)

:mlabel ()       图形点的标签 ;

        mlabsize ()        图形点标签的大小

显示如下:

图三

可爱的emoji表情就出现在我们的散点图中,可是标签离图形中的点有点远。所以我们得需要指定标签的位置,在这个时候呢,我们需要用到mlabposition()选项,它的作用是指定图形点标签的显示位置,0表示中心位置,1-12表示钟表方向。

键入以下命令:

scatter y x, mlabel(emoji) mlabposition(0) mlabsize(huge)

运行结果如下:

图四

这时emoji表情就和图形的点重合了,但是可爱的emoji表情已经面目全非了,我们需要把点去了,这点小事算什么?选项msymbol()可以完美解决这个问题,msymbol()选项的作用是改变点的形状,这里的none的意思是不显示点。键入以下命令:

scatter y x,msymbol(none) mlabel(emoji) mlabposition(0) mlabsize(huge)

运行结果如下:

图五

这才是我需要的清楚的emoji散点图。然而美中不足的是没有颜色,不用急,小编这就给你慢慢道来。在windows系统下,Stata的图像窗口中画出的emoji散点图显示黑白色,而在Mac系统下,Stata的图像窗口中画出的emoji散点图显示出了“真面目”,小编在这里就不演示了。如果想让你的图像显示出颜色怎么办呢?小编教你一招,把图片输出svg格式,然后用浏览器打开,推荐用谷歌浏览器火狐浏览器(小编用的是谷歌浏览器)。

键入以下命令:

graph export animals.svg, replace

shellout animals.svg

运行结果如下:


图六

这才是我们所要的emoji散点图,还不快来试试!体验独特的人生!

接下来,我们玩个小游戏,看看哪个动物得运气最好!程序如下:

gen y1=12*uniform()

twoway bar y1 x, color(ltkhaki) || ///

   scatter y1 x, mlabel(emoji) mlabposition(12) ///

   mlabcolor(black) mlabsize(huge) msymbol(none) legend(off)

graph export animals1.svg, replace

shellout animals1.svg

运行结果如下:

图七

可能你画出来的图和我不一样,不用急,这是因为生成一个随机数y1,然后根据x和y1画出柱形图和散点图。详情请见往期推文《混搭图形》。最后结果竟然是我们萌萌的小猪运气最高,果然傻猪有傻福,老天是眷顾猪的!运气最低的是大灰狼!是不是很刺激呢?一起和小编来试试吧!

附录:

看不懂的记得戳下方视频哦~



注:此推文中的图片及封面(除操作部分的)均来源于网络!如有雷同纯属巧合!

以上就是今天给大家分享的内容了,说得好就赏个铜板呗!有钱的捧个钱场,有人的捧个人场~。另外,我们开通了苹果手机打赏通道,只要扫描下方的二维码,就可以打赏啦!

应广大粉丝要求,爬虫俱乐部的推文公众号打赏功能可以开发票啦,累计打赏超过1000元我们即可给您开具发票,发票类别为“咨询费”。用心做事,只为做您更贴心的小爬虫。第一批发票已经寄到各位小主的手中,大家快来给小爬虫打赏呀~

                        文字编辑:徐露露

技术总编:刘贝贝



往期推文推荐:

1.高校学术大神:你的导师上榜了吗?

2.中国高校财经、管理与综合类期刊灌水排行榜

3.命令sum2docx输出统计量表到docx文件

4.reg2docx报告你的实证结果吧!

5.爬虫俱乐部又出新命令了——wordconvert转换你的word文件

6.putdocx+wordconvert—将实证结果输出到Word.docx)文档

7.Stata 15Markdown——没有做不到,只有想不到!

8.矩阵和宏的故事

9.shelloutopen anything

10.Putpdf--神奇的转换工具



关于我们

微信公众号“爬虫俱乐部”分享实用的stata命令,欢迎转载、打赏。爬虫俱乐部是由李春涛教授领导下的研究生及本科生组成的大数据分析和数据挖掘团队。

此外,欢迎大家踊跃投稿,介绍一些关于stata的数据处理和分析技巧。

投稿邮箱:statatraining@163.com

投稿要求:
1)必须原创,禁止抄袭;
2)必须准确,详细,有例子,有截图;
注意事项:
1)所有投稿都会经过本公众号运营团队成员的审核,审核通过才可录用,一经录用,会在该推文里为作者署名,并有赏金分成。
2)邮件请注明投稿,邮件名称为“投稿”+“推文名称”。
3)应广大读者要求,现开通有偿问答服务,如果大家遇到关于stata分析数据的问题,可以在公众号中提出,只需支付少量赏金,我们会在后期的推文里给予解答。

欢迎关注爬虫俱乐部

微信扫一扫
关注该公众号