担忧姚明

看了前段时间火箭的比赛,不禁让人对姚明的健康状况大为忧心:几乎没有缺勤、场场拼命却又频频出现体力透支的景象;关键的是教练居然还是每场让他打上33分钟以上....也许这还看不出来教练的安排有什么问题,不过联想起上赛季的情形就不禁让人倒吸一口冷气:当时的姚明不是事先没什么征兆就轰然倒下的么?
  恰好前段时间也看到了一篇评论:姚明进入了伤病易发期。看来关注篮球的人大概都注意到这个了。姚明和火箭队官方曾表示,要通过控制训练量来抵御伤病,既然教练无法减少他的上场时间,那咱也就只好寄希望于姚明在场下尽量悠着点,千万别再受伤了;说句不该说的话,就像上上个赛季那样,要受伤也可以,只要能赶的上季后赛就行。
好的,对于这个任务,我们需要先获取姚明和奥尼尔的生涯数据。可以从NBA官网或者其他数据源中获取。这里我使用NBA官网的数据。 首先,我们需要加载相关的R包和数据集: ```R library(tidyverse) library(ggplot2) library(dplyr) library(tidyr) # 加载数据 yao <- read.csv("https://raw.githubusercontent.com/wangluheng2910/NBA/master/yao.csv") shaq <- read.csv("https://raw.githubusercontent.com/wangluheng2910/NBA/master/shaq.csv") ``` 接下来,我们可以查看一下数据的结构和摘要信息: ```R # 查看数据结构 str(yao) str(shaq) # 查看数据摘要信息 summary(yao) summary(shaq) ``` 然后,我们可以对数据进行一些简单的处理和计算,例如计算生涯得分、篮板、助攻等平均值: ```R # 计算生涯平均得分、篮板、助攻 yao_avg <- yao %>% select(pts, reb, ast) %>% summarise_all(mean) shaq_avg <- shaq %>% select(pts, reb, ast) %>% summarise_all(mean) ``` 接下来,我们可以使用ggplot2绘制生涯得分、篮板、助攻的折线图: ```R # 绘制折线图 yao_plot <- yao %>% gather(key = "variable", value = "value", pts:ast) %>% ggplot(aes(x = year, y = value, color = variable)) + geom_line() + ggtitle("姚明生涯数据") + xlab("年份") + ylab("数值") + theme_bw() shaq_plot <- shaq %>% gather(key = "variable", value = "value", pts:ast) %>% ggplot(aes(x = year, y = value, color = variable)) + geom_line() + ggtitle("奥尼尔生涯数据") + xlab("年份") + ylab("数值") + theme_bw() # 绘制多个图形 gridExtra::grid.arrange(yao_plot, shaq_plot, ncol = 2) ``` 最后,我们可以比较一下两位球星的生涯数据,例如得分、篮板、助攻等均值: ```R # 组合数据 compare <- rbind(yao_avg, shaq_avg) %>% mutate(player = c("姚明", "奥尼尔")) # 绘制条形图 compare_plot <- compare %>% gather(key = "variable", value = "value", pts:ast) %>% ggplot(aes(x = variable, y = value, fill = player)) + geom_bar(stat = "identity", position = "dodge") + ggtitle("姚明与奥尼尔生涯数据对比") + xlab("指标") + ylab("平均值") + theme_bw() # 显示图形 compare_plot ``` 这样,我们就完成了姚明和奥尼尔生涯数据的分析。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值