数据可视化发现[吃鸡]秘密

栏目: R语言 · 发布时间: 6年前

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

数据可视化发现[吃鸡]秘密

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

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

首先来看下数据:

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

1、跳哪儿危险?

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

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

import numpy as np 
import matplotlib.pyplot as plt 
import pandas as pd 
import seaborn as sns 
from scipy.misc.pilutil import imread 
import matplotlib.cm as cm 
#导入部分数据 
deaths1 = pd.read_csv("deaths/kill_match_stats_final_0.csv") 
deaths2 = pd.read_csv("deaths/kill_match_stats_final_1.csv") 
deaths = pd.concat([deaths1, deaths2]) 
#打印前5列,理解变量 
print (deaths.head(),'\n',len(deaths)) 
#两种地图 
miramar = deaths[deaths["map"] == "MIRAMAR"] 
erangel = deaths[deaths["map"] == "ERANGEL"] 
#开局前100秒死亡热力图 
position_data = ["killer_position_x","killer_position_y","victim_position_x","victim_position_y"] 
for position in position_data: 
    miramar[position] = miramar[position].apply(lambda x: x*1000/800000) 
    miramar = miramar[miramar[position] != 0] 
    erangel[position] = erangel[position].apply(lambda x: x*4096/800000) 
    erangel = erangel[erangel[position] != 0] 
 
n = 50000 
mira_sample = miramar[miramar["time"] < 100].sample(n) 
eran_sample = erangel[erangel["time"] < 100].sample(n) 
# miramar热力图 
bg = imread("miramar.jpg") 
fig, ax = plt.subplots(1,1,figsize=(15,15)) 
ax.imshow(bg) 
sns.kdeplot(mira_sample["victim_position_x"], mira_sample["victim_position_y"],n_levels=100, cmap=cm.Reds, alpha=0.9) 
# erangel热力图 
bg = imread("erangel.jpg") 
fig, ax = plt.subplots(1,1,figsize=(15,15)) 
ax.imshow(bg) 
sns.kdeplot(eran_sample["victim_position_x"], eran_sample["victim_position_y"], n_levels=100,cmap=cm.Reds, alpha=0.9) 

2、苟着还是出去干?

我到底是苟在房间里面还是出去和敌人硬拼?这里因为比赛的规模不一样,这里选取参赛人数大于90的比赛数据,然后筛选出团队team_placement即最后成功吃鸡的团队数据,1、先计算了吃鸡团队平均击杀敌人的数量,这里剔除了四人模式的比赛数据,因为人数太多的团队会因为数量悬殊平均而变得没意义;2、所以我们考虑通过分组统计每一组吃鸡中存活到最后的成员击杀敌人的数量,但是这里发现数据统计存活时间变量是按照团队最终存活时间记录的,所以该想法失败;3、最后统计每个吃鸡团队中击杀人数最多的数量统计,这里剔除了单人模式的数据,因为单人模式的数量就是每组击杀最多的数量。最后居然发现还有击杀数量达到60的,怀疑是否有开挂。想要吃鸡还是得出去练枪法,光是苟着是不行的。

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

library(dplyr) 
library(tidyverse) 
library(data.table) 
library(ggplot2) 
pubg_full <- fread("../agg_match_stats.csv") 
# 吃鸡团队平均击杀敌人的数量 
attach(pubg_full) 
pubg_winner <- pubg_full %>% filter(team_placement==1&party_size<4&game_size>90)  
detach(pubg_full) 
team_killed <- aggregate(pubg_winner$player_kills, by=list(pubg_winner$match_id,pubg_winner$team_id), FUN="mean") 
team_killed$death_num <- ceiling(team_killed$x) 
ggplot(data = team_killed) + geom_bar(mapping = aes(x = death_num, y = ..count..), color="steelblue") + 
xlim(0,70) + labs(title = "Number of Death that PUBG Winner team Killed", x="Number of death") 
# 吃鸡团队最后存活的玩家击杀数量 
pubg_winner <- pubg_full %>% filter(pubg_full$team_placement==1) %>% group_by(match_id,team_id) 
attach(pubg_winner) 
team_leader <- aggregate(player_survive_time~player_kills, data = pubg_winner, FUN="max") 
detach(pubg_winner) 
# 吃鸡团队中击杀敌人最多的数量 
pubg_winner <- pubg_full %>% filter(pubg_full$team_placement==1&pubg_full$party_size>1) 
attach(pubg_winner) 
team_leader <- aggregate(player_kills, by=list(match_id,team_id), FUN="max") 
detach(pubg_winner) 
ggplot(data = team_leader) + geom_bar(mapping = aes(x = x, y = ..count..), color="steelblue") + 
  xlim(0,70) + labs(title = "Number of Death that PUBG Winner Killed", x="Number of death") 

3、哪一种武器干掉的玩家多?

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

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

#杀人武器排名 
death_causes = deaths['killed_by'].value_counts() 
ns.set_context('talk') 
fig = plt.figure(figsize=(30, 10)) 
ax = sns.barplot(x=death_causes.index, y=[v / sum(death_causes) for v in death_causes.values]) 
ax.set_title('Rate of Death Causes') 
ax.set_xticklabels(death_causes.index, rotation=90) 
#排名前20的武器 
rank = 20 
fig = plt.figure(figsize=(20, 10)) 
ax = sns.barplot(x=death_causes[:rank].index, y=[v / sum(death_causes) for v in death_causes[:rank].values]) 
ax.set_title('Rate of Death Causes') 
ax.set_xticklabels(death_causes.index, rotation=90) 
#两个地图分开取 
f, axes = plt.subplots(1, 2, figsize=(30, 10)) 
axes[0].set_title('Death Causes Rate: Erangel (Top {})'.format(rank)) 
axes[1].set_title('Death Causes Rate: Miramar (Top {})'.format(rank)) 
counts_er = erangel['killed_by'].value_counts() 
counts_mr = miramar['killed_by'].value_counts() 
sns.barplot(x=counts_er[:rank].index, y=[v / sum(counts_er) for v in counts_er.values][:rank], ax=axes[0] ) 
sns.barplot(x=counts_mr[:rank].index, y=[v / sum(counts_mr) for v in counts_mr.values][:rank], ax=axes[1] ) 
axes[0].set_ylim((0, 0.20)) 
axes[0].set_xticklabels(counts_er.index, rotation=90) 
axes[1].set_ylim((0, 0.20)) 
axes[1].set_xticklabels(counts_mr.index, rotation=90) 
#吃鸡和武器的关系 
win = deaths[deaths["killer_placement"] == 1.0] 
win_causes = win['killed_by'].value_counts() 
sns.set_context('talk') 
fig = plt.figure(figsize=(20, 10)) 
ax = sns.barplot(x=win_causes[:20].index, y=[v / sum(win_causes) for v in win_causes[:20].values]) 
ax.set_title('Rate of Death Causes of Win') 
ax.set_xticklabels(win_causes.index, rotation=90) 

4、队友的助攻是否助我吃鸡?

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

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

library(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") 

5、敌人离我越近越危险?

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

数据可视化发现[吃鸡]秘密

# python代码:杀人和距离的关系 
import math 
def get_dist(df): #距离函数 
    dist = [] 
    for row in df.itertuples(): 
        subset = (row.killer_position_x - row.victim_position_x)**2 + (row.killer_position_y - row.victim_position_y)**2 
        if subset > 0: 
            dist.append(math.sqrt(subset) / 100) 
        else: 
           dist.append(0) 
    return dist 
 
df_dist = pd.DataFrame.from_dict({'dist(m)': get_dist(erangel)}) 
df_dist.index = erangel.index 
erangel_dist = pd.concat([erangel,df_dist], axis=1) 
df_dist = pd.DataFrame.from_dict({'dist(m)': get_dist(miramar)}) 
df_dist.index = miramar.index 
miramar_dist = pd.concat([miramar,df_dist], axis=1) 
f, axes = plt.subplots(1, 2, figsize=(30, 10)) 
plot_dist = 150 
 
axes[0].set_title('Engagement Dist. : Erangel') 
axes[1].set_title('Engagement Dist.: Miramar') 
 
plot_dist_er = erangel_dist[erangel_dist['dist(m)'] <= plot_dist] 
plot_dist_mr = miramar_dist[miramar_dist['dist(m)'] <= plot_dist] 
sns.distplot(plot_dist_er['dist(m)'], ax=axes[0]) 
sns.distplot(plot_dist_mr['dist(m)'], ax=axes[1]) 

6、团队人越多我活得越久?

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

数据可视化发现[吃鸡]秘密

7、乘车是否活得更久?

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

数据可视化发现[吃鸡]秘密

8、小岛上人越多我活得更久?

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

数据可视化发现[吃鸡]秘密

# R语言代码如下: 
library(magrittr) 
library(dplyr) 
library(survival) 
library(tidyverse) 
library(data.table) 
library(ggplot2) 
library(survminer) 
pubg_full <- fread("../agg_match_stats.csv") 
# 数据预处理,将连续变量划为分类变量 
pubg_sub <- pubg_full %>% 
  filter(player_survive_time<2100) %>% 
  mutate(drive = ifelse(player_dist_ride>0, 1, 0)) %>% 
  mutate(size = ifelse(game_size<33, 1,ifelse(game_size>=33 &game_size<66,2,3))) 
# 创建生存对象 
surv_object <- Surv(time = pubg_sub$player_survive_time) 
fit1 <- survfit(surv_object~party_size,data = pubg_sub) 
# 可视化生存率 
ggsurvplot(fit1, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv", 
           legend.labs=c("SOLO","DUO","SQUAD"), ggtheme = theme_light(),risk.table="percentage") 
fit2 <- survfit(surv_object~drive,data=pubg_sub) 
ggsurvplot(fit2, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv", 
          legend.labs=c("walk","walk&drive"), ggtheme = theme_light(),risk.table="percentage") 
fit3 <- survfit(surv_object~size,data=pubg_sub) 
ggsurvplot(fit3, data = pubg_sub, pval = TRUE, xlab="Playing time [s]", surv.median.line="hv", 
           legend.labs=c("small","medium","big"), ggtheme = theme_light(),risk.table="percentage") 

9、最后毒圈有可能出现的地点?

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

数据可视化发现[吃鸡]秘密

数据可视化发现[吃鸡]秘密

#最后毒圈位置 
 import matplotlib.pyplot as plt 
 import pandas as pd 
 import seaborn as sns 
 from scipy.misc.pilutil import imread 
 import matplotlib.cm as cm 
#导入部分数据 
deaths = pd.read_csv("deaths/kill_match_stats_final_0.csv") 
#导入aggregate数据 
aggregate = pd.read_csv("aggregate/agg_match_stats_0.csv") 
print(aggregate.head()) 
#找出最后三人死亡的位置 
team_win = aggregate[aggregate["team_placement"]==1] #排名第一的队伍 
#找出每次比赛第一名队伍活的最久的那个player 
grouped = team_win.groupby('match_id').apply(lambda t: t[t.player_survive_time==t.player_survive_time.max()]) 
deaths_solo = deaths[deaths['match_id'].isin(grouped['match_id'].values)] 
deaths_solo_er = deaths_solo[deaths_solo['map'] == 'ERANGEL'] 
deaths_solo_mr = deaths_solo[deaths_solo['map'] == 'MIRAMAR'] 
df_second_er = deaths_solo_er[(deaths_solo_er['victim_placement'] == 2)].dropna() 
df_second_mr = deaths_solo_mr[(deaths_solo_mr['victim_placement'] == 2)].dropna() 
print (df_second_er) 
position_data = ["killer_position_x","killer_position_y","victim_position_x","victim_position_y"] 
for position in position_data: 
  df_second_mr[position] = df_second_mr[position].apply(lambda x: x*1000/800000) 
   df_second_mr = df_second_mr[df_second_mr[position] != 0] 
 
   df_second_er[position] = df_second_er[position].apply(lambda x: x*4096/800000) 
   df_second_er = df_second_er[df_second_er[position] != 0] 
df_second_er=df_second_er 
# erangel热力图 
sns.set_context('talk') 
bg = imread("erangel.jpg") 
fig, ax = plt.subplots(1,1,figsize=(15,15)) 
ax.imshow(bg) 
sns.kdeplot(df_second_er["victim_position_x"], df_second_er["victim_position_y"], cmap=cm.Blues, alpha=0.7,shade=True) 
# miramar热力图 
bg = imread("miramar.jpg") 
fig, ax = plt.subplots(1,1,figsize=(15,15)) 
ax.imshow(bg) 
sns.kdeplot(df_second_mr["victim_position_x"], df_second_mr["victim_position_y"], cmap=cm.Blues,alpha=0.8,shade=True) 

以上就是本文的全部内容,希望本文的内容对大家的学习或者工作能带来一定的帮助,也希望大家多多支持 码农网

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

Masterminds of Programming

Masterminds of Programming

Federico Biancuzzi、Chromatic / O'Reilly Media / 2009-03-27 / USD 39.99

Description Masterminds of Programming features exclusive interviews with the creators of several historic and highly influential programming languages. Think along with Adin D. Falkoff (APL), Jame......一起来看看 《Masterminds of Programming》 这本书的介绍吧!

XML 在线格式化
XML 在线格式化

在线 XML 格式化压缩工具

HEX CMYK 转换工具
HEX CMYK 转换工具

HEX CMYK 互转工具

HSV CMYK 转换工具
HSV CMYK 转换工具

HSV CMYK互换工具