R语言基础语法实例

被拜托帮忙做一道题,紧急突击了一下R语法,在此记录一下:

令样本编号从1到10000,请将该向量赋值到X中

X <- 1:10000

将(6、7、8、9)分别重复2500次,并赋值到向量Y中

Y <-rep(c("6","7","8","9"),c(2500,2500,2500,2500))

产生10000个随机数,使其服从N(μ=162,σ^2=16)正态分布,并赋值到向量Z中

Z <-round(rnorm(10000,mean = 162,sd=16))

合并向量X、Y和Z,使之成为10000(行)×3(列)的数据框df,并修改列名为ID、Grade和Height

df <- data.frame(ID=X,Grade=Y,Height=Z)#数据框

利用单因素方差分析(ANOVA),检验4个年级的身高是否具有显著性差异

aov1 <- aov(Height~Grade, data=df)#方差分析
summary(aov1) 

在df中增加一列,命名为Weight。其中,Weight与身高存在线性相关:Weight=0.8*Height-90

df <- transform(df,Weight=0.8*Height-90)#新增一列

假定现有表格df1,记录了其中5名同学的两门文化课成绩,请利用dplyr包,按照df1中ID顺序,提取这5名同学的身高和体重记录,并保留df1的所有信息

install.packages("dplyr") #下载包,运行一次即可
library(dplyr) #加载包,运行一次即可

#设置表格df1
df1 <- data.frame(ID=c(38,835,186,945,6482),Math=c(87,94,73,81,99),English=c(65,90,89,78,96))

df1 <- arrange(df1, ID)#排序
inner_join(df, df1, by = "ID")

你可能感兴趣的:(日常记录,r语言)