《R语言入门经典》第9章 循环和汇总

补充练习

rm(list = ls())
#创建一个for循环,打印每一个LETTER
for (X in LETTERS) {cat("\n",X)}

#创建一个for循环,根据mecars的数据中carb的变量因子水平打印mpg的均值

head(mtcars)
for (x in unique(mtcars$carb)) {
  mpgmean <- round(mean(mtcars$mpg[mtcars$carb == x],na.rm = TRUE),2)
  cat("\n mpr mean = ",mpgmean)
}

#查看自带WorldPhones矩阵
#使用apply函数计算每年的电话总数和每个地区最大的电话数
head(WorldPhones)
apply(WorldPhones,1,mean)
apply(WorldPhones, 2, max)

#创建3个数值型列表,打印列表的每个元素
aList <- lapply(1:3, rnorm,n=3)
aList
lapply(aList, median)
sapply(aList, median)

#使用split函数和sapply根据carb因子计算mtcars中mpg的中位数
sapply(split(mtcars$mpg,mtcars$carb),median)

#使用split函数和lapply根据Species因子汇总iris
lapply(split(iris[-5],iris$Species), sum)
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。