补充练习

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)