教你用Python解锁“吃鸡”的正确姿势！（附240行代码）（代号经纪人游戏）

来源：经济人学数据分析

本文约2554字，建议阅读6分钟。

本文用Python分析吃鸡比赛的真实数据，解答至关重要的9个问题，助你提高吃鸡概率。

大吉大利，今晚吃鸡~ 今天跟朋友玩了几把吃鸡，经历了各种死法，还被嘲笑说论女生吃鸡的100种死法，比如被拳头抡死、跳伞落到房顶边缘摔死、把吃鸡玩成飞车被车技秀死、被队友用燃烧瓶烧死的。这种游戏对我来说就是一个让我明白原来还有这种死法的游戏。但是玩归玩，还是得假装一下我沉迷学习，所以今天就用吃鸡比赛的真实数据来看看如何提高你吃鸡的概率。

那么我们就用 Python 和 R 做数据分析来回答以下的灵魂发问？

首先来看下数据：

一、跳哪儿危险？

对于我这样一直喜欢苟着的良心玩家，在经历了无数次落地成河的惨痛经历后，我是坚决不会选择跳P城这样楼房密集的城市，穷归穷但保命要紧。所以我们决定统计一下到底哪些地方更容易落地成河？我们筛选出在前100秒死亡的玩家地点进行可视化分析。激情沙漠地图的电站、皮卡多、别墅区、依波城最为危险，火车站、火电厂相对安全。绝地海岛中P城、军事基地、学校、医院、核电站、防空洞都是绝对的危险地带。物质丰富的G港居然相对安全。

1import numpy as np

2import matplotlib.pyplot as plt

3import pandas as pd

4import seaborn as sns

5from scipy.misc.pilutil import imread

6import matplotlib.cm as cm

8#导入部分数据

9deaths1 = pd.read_csv("deaths/kill_match_stats_final_0.csv")

10deaths2 = pd.read_csv("deaths/kill_match_stats_final_1.csv")

12deaths = pd.concat([deaths1, deaths2])

14#打印前5列，理解变量

15print (deaths.head(),'\n',len(deaths))

17#两种地图

18miramar = deaths[deaths["map"] == "MIRAMAR"]

19erangel = deaths[deaths["map"] == "ERANGEL"]

21#开局前100秒死亡热力图

22position_data = ["killer_position_x","killer_position_y","victim_position_x","victim_position_y"]

23for position in position_data:

24 miramar[position] = miramar[position].apply(lambda x: x*1000/800000)

25 miramar = miramar[miramar[position] != 0]

27 erangel[position] = erangel[position].apply(lambda x: x*4096/800000)

28 erangel = erangel[erangel[position] != 0]

30n = 50000

31mira_sample = miramar[miramar["time"] < 100].sample(n)

32eran_sample = erangel[erangel["time"] < 100].sample(n)

34# miramar热力图

35bg = imread("miramar.jpg")

36fig, ax = plt.subplots(1,1,figsize=(15,15))

37ax.imshow(bg)

38sns.kdeplot(mira_sample["victim_position_x"], mira_sample["victim_position_y"],n_levels=100, cmap=cm.Reds, alpha=0.9)

40# erangel热力图

41bg = imread("erangel.jpg")

42fig, ax = plt.subplots(1,1,figsize=(15,15))

43ax.imshow(bg)

44sns.kdeplot(eran_sample["victim_position_x"], eran_sample["victim_position_y"], n_levels=100,cmap=cm.Reds, alpha=0.9)

二、苟着还是出去干？

我到底是苟在房间里面还是出去和敌人硬拼？这里因为比赛的规模不一样，这里选取参赛人数大于90的比赛数据，然后筛选出团队team_placement即最后成功吃鸡的团队数据：

先计算了吃鸡团队平均击*敌人的数量，这里剔除了四人模式的比赛数据，因为人数太多的团队会因为数量悬殊平均而变得没意义；
所以我们考虑通过分组统计每一组吃鸡中存活到最后的成员击*敌人的数量，但是这里发现数据统计存活时间变量是按照团队最终存活时间记录的，所以该想法失败；
最后统计每个吃鸡团队中击*人数最多的数量统计，这里剔除了单人模式的数据，因为单人模式的数量就是每组击*最多的数量。最后居然发现还有击*数量达到60的，怀疑是否有开挂。想要吃鸡还是得出去练枪法，光是苟着是不行的。

1library(dplyr)

2library(tidyverse)

3library(data.table)

4library(ggplot2)

5pubg_full <- fread("../agg_match_stats.csv")

6# 吃鸡团队平均击*敌人的数量

7attach(pubg_full)

8pubg_winner <- pubg_full %>% filter(team_placement==1&party_size<4&game_size>90)

9detach(pubg_full)

10team_killed <- aggregate(pubg_winner$player_kills, by=list(pubg_winner$match_id,pubg_winner$team_id), FUN="mean")

11team_killed$death_num <- ceiling(team_killed$x)

12ggplot(data = team_killed) geom_bar(mapping = aes(x = death_num, y = ..count..), color="steelblue")

13 xlim(0,70) labs(title = "Number of Death that PUBG Winner team Killed", x="Number of death")

15# 吃鸡团队最后存活的玩家击*数量

16pubg_winner <- pubg_full %>% filter(pubg_full$team_placement==1) %>% group_by(match_id,team_id)

17attach(pubg_winner)

18team_leader <- aggregate(player_survive_time~player_kills, data = pubg_winner, FUN="max")

19detach(pubg_winner)

21# 吃鸡团队中击*敌人最多的数量

22pubg_winner <- pubg_full %>% filter(pubg_full$team_placement==1&pubg_full$party_size>1)

23attach(pubg_winner)

24team_leader <- aggregate(player_kills, by=list(match_id,team_id), FUN="max")

25detach(pubg_winner)

26ggplot(data = team_leader) geom_bar(mapping = aes(x = x, y = ..count..), color="steelblue")

27 xlim(0,70) labs(title = "Number of Death that PUBG Winner Killed", x="Number of death")

三、哪一种武器干掉的玩家多？

运气好挑到好武器的时候，你是否犹豫选择哪一件？从图上来看，M416和SCAR是不错的武器，也是相对容易能捡到的武器，大家公认Kar98k是能一枪毙命的好枪，它排名比较靠后的原因也是因为这把枪在比赛比较难得，而且一下击中敌人也是需要实力的，像我这种捡到98k还装上8倍镜但没捂热乎1分钟的玩家是不配得到它的。

1#*人武器排名

2death_causes = deaths['killed_by'].value_counts()

4sns.set_context('talk')

5fig = plt.figure(figsize=(30, 10))

6ax = sns.barplot(x=death_causes.index, y=[v / sum(death_causes) for v in death_causes.values])

7ax.set_title('Rate of Death Causes')

8ax.set_xticklabels(death_causes.index, rotation=90)

10#排名前20的武器

11rank = 20

12fig = plt.figure(figsize=(20, 10))

13ax = sns.barplot(x=death_causes[:rank].index, y=[v / sum(death_causes) for v in death_causes[:rank].values])

14ax.set_title('Rate of Death Causes')

15ax.set_xticklabels(death_causes.index, rotation=90)

17#两个地图分开取

18f, axes = plt.subplots(1, 2, figsize=(30, 10))

19axes[0].set_title('Death Causes Rate: Erangel (Top {})'.format(rank))

20axes[1].set_title('Death Causes Rate: Miramar (Top {})'.format(rank))

22counts_er = erangel['killed_by'].value_counts()

23counts_mr = miramar['killed_by'].value_counts()

25sns.barplot(x=counts_er[:rank].index, y=[v / sum(counts_er) for v in counts_er.values][:rank], ax=axes[0] )

26sns.barplot(x=counts_mr[:rank].index, y=[v / sum(counts_mr) for v in counts_mr.values][:rank], ax=axes[1] )

27axes[0].set_ylim((0, 0.20))

28axes[0].set_xticklabels(counts_er.index, rotation=90)

29axes[1].set_ylim((0, 0.20))

30axes[1].set_xticklabels(counts_mr.index, rotation=90)

32#吃鸡和武器的关系

33win = deaths[deaths["killer_placement"] == 1.0]

34win_causes = win['killed_by'].value_counts()

36sns.set_context('talk')

37fig = plt.figure(figsize=(20, 10))

38ax = sns.barplot(x=win_causes[:20].index, y=[v / sum(win_causes) for v in win_causes[:20].values])

39ax.set_title('Rate of Death Causes of Win')

40ax.set_xticklabels(win_causes.index, rotation=90)

四、队友的助攻是否助我吃鸡？

有时候一不留神就被击倒了，还好我爬得快让队友救我。这里选择成功吃鸡的队伍，最终接受1次帮助的成员所在的团队吃鸡的概率为29%，所以说队友助攻还是很重要的（再不要骂我猪队友了，我也可以选择不救你。）竟然还有让队友救9次的，你也是个人才。

1library(dplyr)

2library(tidyverse)

3library(data.table)

4library(ggplot2)

5pubg_full <- fread("E:/aggregate/agg_match_stats_0.csv")

6attach(pubg_full)

7pubg_winner <- pubg_full %>% filter(team_placement==1)

8detach(pubg_full)

9ggplot(data = pubg_winner) geom_bar(mapping = aes(x = player_assists, y = ..count..), fill="#E69F00")

10 xlim(0,10) labs(title = "Number of Player assisted", x="Number of death")

11ggplot(data = pubg_winner) geom_bar(mapping = aes(x = player_assists, y = ..prop..), fill="#56B4E9")

12 xlim(0,10) labs(title = "Number of Player assisted", x="Number of death")

五、敌人离我越近越危险？

对数据中的killer_position和victim_position变量进行欧式距离计算，查看两者的直线距离跟被击倒的分布情况，呈现一个明显的右偏分布，看来还是需要随时观察到附近的敌情，以免到淘汰都不知道敌人在哪儿。

1# python代码：*人和距离的关系

2import math

3def get_dist(df): #距离函数

4 dist = []

5 for row in df.itertuples():

6 subset = (row.killer_position_x - row.victim_position_x)**2 (row.killer_position_y - row.victim_position_y)**2

7 if subset > 0:

8 dist.append(math.sqrt(subset) / 100)

9 else:

10 dist.append(0)

11 return dist

13df_dist = pd.DataFrame.from_dict({'dist(m)': get_dist(erangel)})

14df_dist.index = erangel.index

16erangel_dist = pd.concat([erangel,df_dist], axis=1)

18df_dist = pd.DataFrame.from_dict({'dist(m)': get_dist(miramar)})

19df_dist.index = miramar.index

21miramar_dist = pd.concat([miramar,df_dist], axis=1)

23f, axes = plt.subplots(1, 2, figsize=(30, 10))

24plot_dist = 150

26axes[0].set_title('Engagement Dist. : Erangel')

27axes[1].set_title('Engagement Dist.: Miramar')

29plot_dist_er = erangel_dist[erangel_dist['dist(m)'] <= plot_dist]

30plot_dist_mr = miramar_dist[miramar_dist['dist(m)'] <= plot_dist]

32sns.distplot(plot_dist_er['dist(m)'], ax=axes[0])

33sns.distplot(plot_dist_mr['dist(m)'], ax=axes[1])

六、团队人越多我活得越久？

对数据中的party_size变量进行生存分析，可以看到在同一生存率下，四人团队的生存时间高于两人团队，再是单人模式，所以人多力量大这句话不是没有道理的。

七、乘车是否活得更久？

对死因分析中发现，也有不少玩家死于Bluezone，大家天真的以为捡绷带就能跑毒。对数据中的player_dist_ride变量进行生存分析，可以看到在同一生存率下，有开车经历的玩家生存时间高于只走路的玩家，光靠腿你是跑不过毒的。

八、小岛上人越多我活得更久？

对game_size变量进行生存分析发现还是小规模的比赛比较容易存活。

1# R语言代码如下：

2library(magrittr)

3library(dplyr)

4library(survival)

5library(tidyverse)

6library(data.table)

7library(ggplot2)

8library(survminer)

9pubg_full <- fread("../agg_match_stats.csv")

10# 数据预处理，将连续变量划为分类变量

11pubg_sub <- pubg_full %>%

12 filter(player_survive_time<2100) %>%

13 mutate(drive = ifelse(player_dist_ride>0, 1, 0)) %>%

14 mutate(size = ifelse(game_size<33, 1,ifelse(game_size>=33 &game_size<66,2,3)))

15# 创建生存对象

16surv_object <- Surv(time = pubg_sub$player_survive_time)

17fit1 <- survfit(surv_object~party_size,data = pubg_sub)

18# 可视化生存率

19ggsurvplot(fit1, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv",

20 legend.labs=c("SOLO","DUO","SQUAD"), ggtheme = theme_light(),risk.table="percentage")

21fit2 <- survfit(surv_object~drive,data=pubg_sub)

22ggsurvplot(fit2, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv",

23 legend.labs=c("walk","walk&drive"), ggtheme = theme_light(),risk.table="percentage")

24fit3 <- survfit(surv_object~size,data=pubg_sub)

25ggsurvplot(fit3, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv",

26 legend.labs=c("small","medium","big"), ggtheme = theme_light(),risk.table="percentage")

九、最后毒圈有可能出现的地点？

面对有本事能苟到最后的我，怎么样预测最后的毒圈出现在什么位置。从表agg_match_stats数据找出排名第一的队伍，然后按照match_id分组，找出分组数据里面player_survive_time最大的值，然后据此匹配表格kill_match_stats_final里面的数据，这些数据里面取第二名死亡的位置，作图发现激情沙漠的毒圈明显更集中一些，大概率出现在皮卡多、圣马丁和别墅区。绝地海岛的就比较随机了，但是还是能看出军事基地和山脉的地方更有可能是最后的毒圈。