姚明你太让我失望了!

2008-05-13   Lexlin

    姚明你太让我失望了!你的同胞死了一万多人,而且不知道这个数字会增加到多少。而你全世界最著名的中国人之一,年收入过亿的大腕,仅仅捐了区区50万RMB。你的小同胞今年nba的新秀--易建联都捐了10万,你的薪水是他多少倍,你的知名度号召力又比他大多少。我一向认为只要能捐都是好同志,不管捐多少,但是姚明你不同,你要知道你现在不是一个人,多少双眼睛在看着你. 全世界的华人都在看你,还有亚洲的美国的不同肤色不同信仰的球迷都在看你。这么大的灾难,你都只给了区区50万,折成美金8万都不到。自己同胞都只给8万美金不到,是不是你的nba队友都只须给个1万就够了,别队的nba球星甚至都不用给了,球迷钱争得少,更没道理捐了。
    你在nba打球,很努力赚的钱没错。但要知道由于你,每年nba从中国多赚了多少钱走。现在同胞有超级灾难了,该你回馈的时候,你怎么能这么小家子气呢。
    姚明,除非你再组织一个捐款晚会或是义演,否则我是不会原谅你的!
    刚看到消息,成龙大哥和英皇老总杨受成一起为灾区捐款一千万。姚明,成龙大哥才是好样的阿!

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

余额充值