姚明挂"彩"了,火箭也挂了

                                          姚明挂"彩"了,火箭也挂了

      受伤实录:在第一节比赛还剩下6分多钟的时候,火箭进攻,这时候不幸的时候发生了,姚明拼抢的时候和海耶斯碰撞在一起,落地的时候踩在了托马斯的脚上。托马斯本能的收了一下脚。姚明的膝盖一下撑在了地上,当时姚明就摔倒在地。之后姚明也一直没能站起来,抱着膝盖在地上痛苦的挣扎。看来疼痛的非常厉害,他不停的用左脚蹬地,使劲的拍着地板。姚明由叶莉陪着,姚爸回到了看台给家里打电话。火箭的治疗室外面,去年姚明受伤之后坐的那辆类似高尔夫球场的小车一样的车辆已经停在了那里,准备随时送姚明去停车场。

        郁闷吧,本来已经上场火箭客场战胜联盟第一马刺已经到了这个赛季的转折点,可突然生变,线路完全扭转,真是扼腕叹息呀.....就连美联火箭祸不单行姚明重伤 生涯最佳开局笼阴霾...而对于火箭来说,这一次真是祸不单行,因为之前他们的六届全明星球员麦蒂,已经因为背部痉挛而缺席了7场比赛。最不希望看到的是目前的火箭挂了 ,一定要挺住。如果姚明跟麦蒂都在场上,我敢肯定这场对快船的比赛应该是计算在本赛季的第17场胜利之中的,可是事与愿违(上回两队交手就搞定了快船)。这回可真是折兵损将。不过今天的比赛还是有看点的,火箭:巴蒂尔得到28分和6个篮板,赫德得到22分,阿尔斯通得到21分和6次助攻,海耶斯得到6分和7个篮板,姚明得到2分、2个篮板和2次助攻(场上四分钟),火箭三人得分上20 。快船:托马斯得到21分和6个篮板,莫布里得到18分,布兰德得到16分,卡曼得到15分和11个篮板。

     希望姚明早点康复,再加上麦蒂,一切进入我们所期待的就.....

好的,对于这个任务,我们需要先获取姚明和奥尼尔的生涯数据。可以从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、付费专栏及课程。

余额充值