哈登简直厉害炸啦！

2008年11月7号，火箭对阵开拓者，“黄曼巴”布兰登罗伊迎着姚明的防守投进了载入史册的0.8秒超远三分绝杀了火箭，因为防守者是最最喜欢的姚明，也只能默默地感慨一下黄曼巴确实太厉害了！

2014年5月3号，同样的发球地点，同样的不足一秒的时间，利拉德投进了同样的三分再一次绝杀了火箭；没记错的话应该是看了这场比赛的直播，赛后感叹利拉德太厉害啦的同时也没忘记吐槽一下夜店登的防守真的是太不给力啦！

2018年3月21号，13连胜的开拓者再次对阵联盟第一的火箭队，比赛过程依旧精彩，悬念丛生，但这次灯泡组合领衔的火箭队没有留给开拓者绝杀的机会，最后时刻保罗稳稳地罚球命中，彻底结束了比赛。看了最后5分钟的我赛后只能默默地感叹哈登的表现真是太神奇，尤其是最后是时刻的两记三分球，优美的弧线看的我是叹为观止呀！看来“告别卡戴珊，哈登赛乔丹”绝不是谣言呀！

好了闲话少叙，其实今天的主要目的是来吹一波哈登的，因为最近在知乎上看到了一张图

就是这个

横坐标进攻得分，纵坐标防守得分，哈登都远远甩开其他得分后卫，这么有意思的图片我们当然可以重复一下啦！

主要工具R,用到的package ballr获取数据，dplyr对数据进行简单整理，ggplot2可视化；这三个包都可以通过install.packages()函数进行安装。

首先用ballr包的NBAPerGameAdvStatistics(season=2018)命令获得NBA所有球员2018赛季的统计数据，然后用dplyr包的filter()函数获得所有SG得分后卫的统计数据，每个球员总共有30项统计指标，我们用dplyr包的select()函数选取player、tm(球队)、ows(offensive win shares进攻赢球贡献值)、dws(defensive win shares防守赢球贡献值)四个变量来进行后续的可视化。首先是一个简单的散点图，不同的球队添加不同的颜色

我们可以看到右上角孤零零的有一个点，通过添加数据标签，我们来看一右上角孤零零的点是不是哈登，同时去掉右侧的图例

哈哈果然是

但是由于数据点比较多，标签重叠的比较厉害，这时候就可用ggrepel包的geom_text_repel()函数尝试将重叠的标签分开

结果变成了这样

数据标签太多了，还是筛选一下吧，筛选ows大于等于5，dws大于等于1，同时按ows和dws的平均值添加辅助线

可以看到这四个人分别是哈登，德罗赞，吉米巴特勒，和芦苇。当然用Y叔的ggimage包添加图片也是和简单的

可以看到图片对标签有一些遮挡，目前还没有想到太好的解决办法，因为数据不多，调整一下添加图片所用到数据集

看起来还不错，嘻嘻

最后在表达一下今天的主要目的：我是来吹一波哈登哒！哈登简直太厉害了（起码这个赛季哈登就是我心中的MVP啦），当然也有次要目的就是利用NBA数据来学习Rggplot2的可视化！

哦对了差点把比较喜欢的汤神给忘了，难道现在我大汤神在得分后卫中连前四都排不上了吗？下面来看一下汤神的位置在哪里

也还好啦，唯一的解释就是克雷汤普森为了勇士的团队可是牺牲了不少个人数据呢！

完整代码

PS:最后图片和数据标签有些重叠，用edit()函数手动调整一下添加图片的数据集即可

球员头像player_image