《G录姚明》

这几天一直在看上海体育频道的专题片《G录姚明》。很过瘾!
经常会看到姚明在打球之余参加社区公益活动,或到学校,或到其他的场所。姚明在用他的一言一行影响着他周围的人。一方面,大家可以亲密接触球星,另一方面,人们从球星的身上受到鼓励。
这让我想起在国内,这样类似的公益活动也有,但是非常少。
是姚明们素质比国内的球星、歌星们高很多吗?不是的!
是我们国内还没有去充分的发掘球星、歌星的这种资源。缺少这种牵线搭桥的人和组织。
我们看港台娱乐新闻的时候,也会经常看到歌星们参加各种公益活动。他们就比我们做得好。
希望在内地能多一些这样的活动,对明星、对大众,相信都是个双赢的结果。

好的,对于这个任务,我们需要先获取姚明和奥尼尔的生涯数据。可以从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 ``` 这样,我们就完成了姚明和奥尼尔生涯数据的分析。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值