基本统计分析

　　一、计算均值与标准差

　　在常规数据分析中，总是免不了计算均值与标准差，R语言用简短的代码实现了这一功能。在学习过程中自然是碰到了不少问题，所以记录下来，不断改进，最后选择适合自己的包。

#读取软件包
library(readxl)

#选中Excel文件复制，直接读取，也可读取CSV，header=T
data <- read.table('clipboard',header = T, sep = '\t')

# reshape包分组计算 最好
library(reshape)
dstats <- function(x)
  (c(n = length(x),
     mean = mean(x),
     sd = sd(x)))
dfm <-
  melt(
    data,
    measure.vars = c('有效穗数', '每穗粒数','总颖花量','结实率', '千粒重', '产量', '日产量', '生育期') ,
    id.vars = c('品种')
  )
output <- cast(dfm, 品种 + variable ~ . , dstats)
print(output)
# 保存数据
write.csv(output,file = 'D:/R/output.csv')

　结果如图所示：