R语言第一周作业.pdfVIP

R语言第一周作业 冬芽儿 作业要求： • 数据集：mtcars 1. 定义数据集中变量disp大于等于160即为NA 2. 选取符合以下条件的数据集：mpg大于等于17.0且hp大于等于120 3. 计算一下am与gear的二维列联表，需要增加margins 4. 请自定义一个函数，用来将某个数值增加10 5. 使用apply或者sapply，运用上面的函数作用到变量drat上 6. 根据变量carb分组，计算出mpg和wt 的平均数 提取数据集 df - mtcars 第一题： 定义数据集中变量disp大于等于160即为NA df[‘disp’][df[‘disp’] = 160] - NA 第二题： 选取符合以下条件的数据集：mpg大于等于17.0且hp大于等于120 answer_2 - subset(df, df$mpg = 17.0 hp = 120) 详情请看第一周课程第11个视频10分40秒 第三题： 计算一下am与gear的二维列联表，需要增加margins 方法一： answer_3_1 - addmargins(table(df$am, df$gear,)) 方法二： answer_3_2 - addmargins(xtabs(~am+gear,df)) 详见第一周课程第12个视频13分钟 第四题： 请自定义一个函数，用来将某个数值增加10 自定义函数格式： 函数名- function(参数1，参数2，……){表达式} add_10 - function(x){ a - x+10 return(a) } 第五题： 使用apply或者sapply，运用上面的函数作用到变量drat上 answer_5 - sapply(df$drat, add_10) 详见第一周课程第11个视频 第六题： 根据变量carb分组，计算出mpg和wt 的平均数 answer_6 - aggregate(df[,c(mpg,wt)],by = list(df$carb),FUN = mean) 详见第一周课程第12个视频5分45秒