(数据科学学习手札19)R中基本统计分析技巧总结

Posted feffery

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了(数据科学学习手札19)R中基本统计分析技巧总结相关的知识,希望对你有一定的参考价值。

在获取数据,并且完成数据的清洗之后,首要的事就是对整个数据集进行探索性的研究,这个过程中会利用到各种描述性统计量和推断性统计量来初探变量间和变量内部的基本关系,本篇笔者便基于R,对一些常用的数据探索方法进行总结:

 

1.描述性统计量部分

1.1 计算描述性统计量的常规方法

summary()

summary()函数提供了最小值、最大值、四分位数和数值型变量的均值,以及因子向量和逻辑型向量的频数统计:

 

> #挂载鸢尾花数据
> data(iris)
> #计算鸢尾花各变量的基本描述统计量
> summary(iris)
  Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
 Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
 1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
 Median :5.800   Median :3.000   Median :4.350   Median :1.300  
 Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
 3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
 Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
       Species  
 setosa    :50  
 versicolor:50  
 virginica :50 

 

 

利用sapply()通过自编函数进行偏度峰度的计算:

> #自定义偏度峰度计算函数
> skew_kurt <- function(x,na.omit=FALSE){
+   if(na.omit)
+     x <- x[!is.na(x)]
+   m <- mean(x)
+   n <- length(x)
+   skew <- sum((x-mean(x))^3/sd(x)^3)/n
+   kurt <- sum((x-m)^4/sd(x)^4)/n-3
+   return(c(skew=skew,kurtosis=kurt))
+ }
> #利用sapply将偏度峰度计算扩展到数据框型变量
> sapply(iris[,-5],skew_kurt)
         Sepal.Length Sepal.Width Petal.Length Petal.Width
skew        0.3086407   0.3126147   -0.2694109  -0.1009166
kurtosis   -0.6058125   0.1387047   -1.4168574  -1.3581792

 

Hmisc包中的describe()函数:

Hmisc包中的describe()函数可返回变量和观测的数量、缺失值和唯一值的数目、平均值、分位数,以及五个最大的值和五个最小的值:

> library(Hmisc)
> Hmisc::describe(iris)
iris 

 5  Variables      150  Observations
-------------------------------------------------------------------------------
Sepal.Length 
       n  missing distinct     Info     Mean      Gmd      .05      .10 
     150        0       35    0.998    5.843   0.9462    4.600    4.800 
     .25      .50      .75      .90      .95 
   5.100    5.800    6.400    6.900    7.255 

lowest : 4.3 4.4 4.5 4.6 4.7, highest: 7.3 7.4 7.6 7.7 7.9
-------------------------------------------------------------------------------
Sepal.Width 
       n  missing distinct     Info     Mean      Gmd      .05      .10 
     150        0       23    0.992    3.057   0.4872    2.345    2.500 
     .25      .50      .75      .90      .95 
   2.800    3.000    3.300    3.610    3.800 

lowest : 2.0 2.2 2.3 2.4 2.5, highest: 3.9 4.0 4.1 4.2 4.4
-------------------------------------------------------------------------------
Petal.Length 
       n  missing distinct     Info     Mean      Gmd      .05      .10 
     150        0       43    0.998    3.758    1.979     1.30     1.40 
     .25      .50      .75      .90      .95 
    1.60     4.35     5.10     5.80     6.10 

lowest : 1.0 1.1 1.2 1.3 1.4, highest: 6.3 6.4 6.6 6.7 6.9
-------------------------------------------------------------------------------
Petal.Width 
       n  missing distinct     Info     Mean      Gmd      .05      .10 
     150        0       22     0.99    1.199   0.8676      0.2      0.2 
     .25      .50      .75      .90      .95 
     0.3      1.3      1.8      2.2      2.3 

lowest : 0.1 0.2 0.3 0.4 0.5, highest: 2.1 2.2 2.3 2.4 2.5
-------------------------------------------------------------------------------
Species 
       n  missing distinct 
     150        0        3 
                                           
Value          setosa versicolor  virginica
Frequency          50         50         50
Proportion      0.333      0.333      0.333
-------------------------------------------------------------------------------

 

pastecs包中的stat.desc()函数计算描述性统计量:

stat.desc(x,basic=TRUE,desc=TRUE,norm=FALSE,p=0.95),其中x是一个数据框或 时间序列(非数值型的部分只会返回空值),若basic=TRUE(默认值),则计算x中所有变量的值、空值、缺失值的数量,以及最小值、最大值、值域,还有总和。若desc=TRUE(默认值),则计算中位数、平均数、平均数的标准误差、平均数置信度为95%的置信区间、方差、标准差以及变异系数。若norm=TRUE(非默认),则返回正态分布统计量,包括偏度和峰度(以及他们的统计显著程度)和Shapiro-Wilk(正态性检验)结果:

> library(pastecs)
> stat.desc(iris)
             Sepal.Length  Sepal.Width Petal.Length  Petal.Width Species
nbr.val      150.00000000 150.00000000  150.0000000 150.00000000      NA
nbr.null       0.00000000   0.00000000    0.0000000   0.00000000      NA
nbr.na         0.00000000   0.00000000    0.0000000   0.00000000      NA
min            4.30000000   2.00000000    1.0000000   0.10000000      NA
max            7.90000000   4.40000000    6.9000000   2.50000000      NA
range          3.60000000   2.40000000    5.9000000   2.40000000      NA
sum          876.50000000 458.60000000  563.7000000 179.90000000      NA
median         5.80000000   3.00000000    4.3500000   1.30000000      NA
mean           5.84333333   3.05733333    3.7580000   1.19933333      NA
SE.mean        0.06761132   0.03558833    0.1441360   0.06223645      NA
CI.mean.0.95   0.13360085   0.07032302    0.2848146   0.12298004      NA
var            0.68569351   0.18997942    3.1162779   0.58100626      NA
std.dev        0.82806613   0.43586628    1.7652982   0.76223767      NA
coef.var       0.14171126   0.14256420    0.4697441   0.63555114      NA

 

psych包中的describe()计算描述性统计量:

在psych包中,可以通过describe()来计算非缺失值的数量、平均数、标准差、中位数、截尾均值、绝对中位数、最小值、最大值、值域、偏度、峰度和平均值的标准误差(注意,此方法会将因子型变量当成数值型来计算):

> library(psych)
> psych::describe(iris)
             vars   n mean   sd median trimmed  mad min max range  skew
Sepal.Length    1 150 5.84 0.83   5.80    5.81 1.04 4.3 7.9   3.6  0.31
Sepal.Width     2 150 3.06 0.44   3.00    3.04 0.44 2.0 4.4   2.4  0.31
Petal.Length    3 150 3.76 1.77   4.35    3.76 1.85 1.0 6.9   5.9 -0.27
Petal.Width     4 150 1.20 0.76   1.30    1.18 1.04 0.1 2.5   2.4 -0.10
Species*        5 150 2.00 0.82   2.00    2.00 1.48 1.0 3.0   2.0  0.00
             kurtosis   se
Sepal.Length    -0.61 0.07
Sepal.Width      0.14 0.04
Petal.Length    -1.42 0.14
Petal.Width     -1.36 0.06
Species*        -1.52 0.07

 

1.2 分组计算描述性统计量

在比较多组个体或观测时,关注的焦点经常是各组的描述性统计信息,而不是样本整体的描述性统计信息。同样地,在R中完成这个任务有若干种方法:

利用aggregate()来对数据数组求描述性统计量:

aggregate(data,by,fun),其中data为待考察的数据所在的数据框,至少有两列,其中一列为分组依据的类别型数据,即by,fun为对分组后数据采取的运算,且fun只能为返回单值的简单函数(很遗憾):

> aggregate(iris[,1:4],by=list(Species=iris$Species),mean)
     Species Sepal.Length Sepal.Width Petal.Length Petal.Width
1     setosa        5.006       3.428        1.462       0.246
2 versicolor        5.936       2.770        4.260       1.326
3  virginica        6.588       2.974        5.552       2.026
> aggregate(iris[,1:4],by=list(Species=iris$Species),sd)
     Species Sepal.Length Sepal.Width Petal.Length Petal.Width
1     setosa    0.3524897   0.3790644    0.1736640   0.1053856
2 versicolor    0.5161711   0.3137983    0.4699110   0.1977527
3  virginica    0.6358796   0.3224966    0.5518947   0.2746501

 

利用by()函数来计算更复杂的分组数据描述性统计量:

by(data,INDICES,FUN),其中data为输入的数据框,INDICES是一个因子型或几个因子型变量组成的list,是分组依据,FUN是任意函数(包括自编函数):

> by(iris[,-5],iris$Species,psych::describe)
iris$Species: setosa
             vars  n mean   sd median trimmed  mad min max range skew kurtosis
Sepal.Length    1 50 5.01 0.35    5.0    5.00 0.30 4.3 5.8   1.5 0.11    -0.45
Sepal.Width     2 50 3.43 0.38    3.4    3.42 0.37 2.3 4.4   2.1 0.04     0.60
Petal.Length    3 50 1.46 0.17    1.5    1.46 0.15 1.0 1.9   0.9 0.10     0.65
Petal.Width     4 50 0.25 0.11    0.2    0.24 0.00 0.1 0.6   0.5 1.18     1.26
               se
Sepal.Length 0.05
Sepal.Width  0.05
Petal.Length 0.02
Petal.Width  0.01
----------------------------------------------------------- 
iris$Species: versicolor
             vars  n mean   sd median trimmed  mad min max range  skew
Sepal.Length    1 50 5.94 0.52   5.90    5.94 0.52 4.9 7.0   2.1  0.10
Sepal.Width     2 50 2.77 0.31   2.80    2.78 0.30 2.0 3.4   1.4 -0.34
Petal.Length    3 50 4.26 0.47   4.35    4.29 0.52 3.0 5.1   2.1 -0.57
Petal.Width     4 50 1.33 0.20   1.30    1.32 0.22 1.0 1.8   0.8 -0.03
             kurtosis   se
Sepal.Length    -0.69 0.07
Sepal.Width     -0.55 0.04
Petal.Length    -0.19 0.07
Petal.Width     -0.59 0.03
----------------------------------------------------------- 
iris$Species: virginica
             vars  n mean   sd median trimmed  mad min max range  skew
Sepal.Length    1 50 6.59 0.64   6.50    6.57 0.59 4.9 7.9   3.0  0.11
Sepal.Width     2 50 2.97 0.32   3.00    2.96 0.30 2.2 3.8   1.6  0.34
Petal.Length    3 50 5.55 0.55   5.55    5.51 0.67 4.5 6.9   2.4  0.52
Petal.Width     4 50 2.03 0.27   2.00    2.03 0.30 1.4 2.5   1.1 -0.12
             kurtosis   se
Sepal.Length    -0.20 0.09
Sepal.Width      0.38 0.05
Petal.Length    -0.37 0.08
Petal.Width     -0.75 0.04
> 
> #前面定义过的偏度峰度自编函数作为sapply的参数跟在FUN位置的后面
> by(iris[,-5],iris$Species,sapply,skew_kurt)
iris$Species: setosa
         Sepal.Length Sepal.Width Petal.Length Petal.Width
skew        0.1129778  0.03872946    0.1000954    1.179633
kurtosis   -0.4508724  0.59595073    0.6539303    1.258718
----------------------------------------------------------- 
iris$Species: versicolor
         Sepal.Length Sepal.Width Petal.Length Petal.Width
skew       0.09913926  -0.3413644   -0.5706024 -0.02933377
kurtosis  -0.69391378  -0.5493203   -0.1902555 -0.58731442
----------------------------------------------------------- 
iris$Species: virginica
         Sepal.Length Sepal.Width Petal.Length Petal.Width
skew        0.1110286   0.3442849    0.5169175  -0.1218119
kurtosis   -0.2032597   0.3803832   -0.3651161  -0.7539586

 

利用doBy中的summaryBy()来分组计算描述性统计量:

summaryBy(x1+x2+x3~by,data,FUN),其中data为目标数据框,x1,x2,x3,by均为data中的变量,且by为分组依据变量,FUN为任意函数:

> library(doBy)
> data(mtcars)
> summaryBy(mpg+wt~cyl,data=mtcars,FUN=summary)
  cyl mpg.Min. mpg.1st Qu. mpg.Median mpg.Mean mpg.3rd Qu. mpg.Max. wt.Min.
1   4     21.4       22.80       26.0 26.66364       30.40     33.9   1.513
2   6     17.8       18.65       19.7 19.74286       21.00     21.4   2.620
3   8     10.4       14.40       15.2 15.10000       16.25     19.2   3.170
  wt.1st Qu. wt.Median  wt.Mean wt.3rd Qu. wt.Max.
1     1.8850     2.200 2.285727    2.62250   3.190
2     2.8225     3.215 3.117143    3.44000   3.460
3     3.5325     3.755 3.999214    4.01375   5.424
> summaryBy(mpg+wt~cyl,data=mtcars,FUN=skew_kurt)
  cyl   mpg.skew mpg.kurtosis    wt.skew wt.kurtosis
1   4  0.2591965   -1.6450119  0.3001262  -1.3559552
2   6 -0.1583137   -1.9069714 -0.2221115  -1.9839377
3   8 -0.3628186   -0.5655154  0.9877797  -0.7126583

 

利用psych包中的describeBy()分组计算概述统计量:

psych中的describeBy(data,by),其中data为目标数据框,by为分组依据的数据:

> library(psych)
> describeBy(iris[,-5],iris$Species)

 Descriptive statistics by group 
group: setosa
             vars  n mean   sd median trimmed  mad min max range skew kurtosis
Sepal.Length    1 50 5.01 0.35    5.0    5.00 0.30 4.3 5.8   1.5 0.11    -0.45
Sepal.Width     2 50 3.43 0.38    3.4    3.42 0.37 2.3 4.4   2.1 0.04     0.60
Petal.Length    3 50 1.46 0.17    1.5    1.46 0.15 1.0 1.9   0.9 0.10     0.65
Petal.Width     4 50 0.25 0.11    0.2    0.24 0.00 0.1 0.6   0.5 1.18     1.26
               se
Sepal.Length 0.05
Sepal.Width  0.05
Petal.Length 0.02
Petal.Width  0.01
----------------------------------------------------------- 
group: versicolor
             vars  n mean   sd median trimmed  mad min max range  skew
Sepal.Length    1 50 5.94 0.52   5.90    5.94 0.52 4.9 7.0   2.1  0.10
Sepal.Width     2 50 2.77 0.31   2.80    2.78 0.30 2.0 3.4   1.4 -0.34
Petal.Length    3 50 4.26 0.47   4.35    4.29 0.52 3.0 5.1   2.1 -0.57
Petal.Width     4 50 1.33 0.20   1.30    1.32 0.22 1.0 1.8   0.8 -0.03
             kurtosis   se
Sepal.Length    -0.69 0.07
Sepal.Width     -0.55 0.04
Petal.Length    -0.19 0.07
Petal.Width     -0.59 0.03
----------------------------------------------------------- 
group: virginica
             vars  n mean   sd median trimmed  mad min max range  skew
Sepal.Length    1 50 6.59 0.64   6.50    6.57 0.59 4.9 7.9   3.0  0.11
Sepal.Width     2 50 2.97 0.32   3.00    2.96 0.30 2.2 3.8   1.6  0.34
Petal.Length    3 50 5.55 0.55   5.55    5.51 0.67 4.5 6.9   2.4  0.52
Petal.Width     4 50 2.03 0.27   2.00    2.03 0.30 1.4 2.5   1.1 -0.12
             kurtosis   se
Sepal.Length    -0.20 0.09
Sepal.Width      0.38 0.05
Petal.Length    -0.37 0.08
Petal.Width     -0.75 0.04

 

2.频数表与列联表

利用table()生成一维列联表

> table(iris$Species)

    setosa versicolor  virginica 
        50         50         50 

利用table()生成二维列联表

> table(mtcars$cyl,mtcars$am)
   
     0  1
  4  3  8
  6  4  3
  8 12  2

利用xtabs()生成列联表:

 

> xtabs(~cyl,data=mtcars)
cyl
 4  6  8 
11  7 14 
> xtabs(~cyl+am,data=mtcars)
   am
cyl  0  1
  4  3  8
  6  4  3
  8 12  2

利用prop.table()将频数转化成比例值:

 

> prop.table(table(iris$Species))

    setosa versicolor  virginica 
 0.3333333  0.3333333  0.3333333 
> prop.table(table(mtcars$cyl,mtcars$am))
   
          0       1
  4 0.09375 0.25000
  6 0.12500 0.09375
  8 0.37500 0.06250

 

按行或列生成比例:

> #按行生成比例
> prop.table(table(mtcars$cyl,mtcars$am),1)
   
            0         1
  4 0.2727273 0.7272727
  6 0.5714286 0.4285714
  8 0.8571429 0.1428571
> #按列生成比例
> prop.table(table(mtcars$cyl,mtcars$am),2)
   
            0         1
  4 0.1578947 0.6153846
  6 0.2105263 0.2307692
  8 0.6315789 0.1538462

 

利用addmargins()为列联表添加边际和:

> #添加边际频数和
> addmargins(table(mtcars$cyl,mtcars$am))
     
       0  1 Sum
  4    3  8  11
  6    4  3   7
  8   12  2  14
  Sum 19 13  32
> 
> #添加边际频率和
> addmargins(prop.table(table(mtcars$cyl,mtcars$am)))
     
            0       1     Sum
  4   0.09375 0.25000 0.34375
  6   0.12500 0.09375 0.21875
  8   0.37500 0.06250 0.43750
  Sum 0.59375 0.40625 1.00000

 

利用gmodels包中的CrossTable()函数来创建SPSS风格的二维列联表

CrossTable()函数有很多选项,可以做许多事情:计算(行、列、单元格)的百分比;指定小数位数;进行卡方、Fisher和McNemar独立性检验;计算期望和的残差;将缺失值作为一种有效值;进行行和列标题的标注;生成SPSS风格的输出:

> library(gmodels)
> CrossTable(mtcars$cyl,mtcars$am)

 
   Cell Contents
|-------------------------|
|                       N |
| Chi-square contribution |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|

 
Total Observations in Table:  32 

 
             | mtcars$am 
  mtcars$cyl |         0 |         1 | Row Total | 
-------------|-----------|-----------|-----------|
           4 |         3 |         8 |        11 | 
             |     1.909 |     2.790 |           | 
             |     0.273 |     0.727 |     0.344 | 
             |     0.158 |     0.615 |           | 
             |     0.094 |     0.250 |           | 
-------------|-----------|-----------|-----------|
           6 |         4 |         3 |         7 | 
             |     0.006 |     0.009 |           | 
             |     0.571 |     0.429 |     0.219 | 
             |     0.211 |     0.231 |           | 
             |     0.125 |     0.094 |           | 
-------------|-----------|-----------|-----------|
           8 |        12 |         2 |        14 | 
             |     1.636 |     2.391 |           | 
             |     0.857 |     0.143 |     0.438 | 
             |     0.632 |     0.154 |           | 
             |     0.375 |     0.062 |           | 
-------------|-----------|-----------|-----------|
Column Total |        19 |        13 |        32 | 
             |     0.594 |     0.406 |           | 
-------------|-----------|-----------|-----------|

 

3.独立性检验

3.1 卡方独立性检验

利用chisq.test()来进行卡方独立性检验,p值大于0.05(α)时,独立:

> library(vcd)
> data("Arthritis")
> 
> #这里利用with挂载mtcars以简化变量名的输入过程
> with(chisq.test(table(Improved,Sex)),data=Arthritis)

    Pearsons Chi-squared test

data:  table(Improved, Sex)
X-squared = 4.8407, df = 2, p-value = 0.08889

 

3.2 Fisher精确检验

利用fisher.test()函数进行Fisher精确检验。Fisher精确检验的原假设为:边界固定的列联表中行和列相互独立,p值小于α时拒绝原假设:

> with(fisher.test(table(Improved,Sex)),data=Arthritis)

    Fishers Exact Test for Count Data

data:  table(Improved, Sex)
p-value = 0.1094
alternative hypothesis: two.sided

 

4.列联表相关性的度量

利用vcd包中的assocstats()函数可以用来计算二维列联表的phi系数、列联系数和Cramer‘s V系数:

> with(assocstats(table(Improved,Treatment)),data=Arthritis)
                    X^2 df  P(> X^2)
Likelihood Ratio 13.530  2 0.0011536
Pearson          13.055  2 0.0014626

Phi-Coefficient   : NA 
Contingency Coeff.: 0.367 
Cramers V        : 0.394 

 

5.变量间相关性

5.1 Pearson、Spearman和Kendall相关系数

Pearson积差相关系数衡量了两个定量变量之间的线性相关程度;Spearman等级相关系数则衡量分级定序变量之间的相关程度;Kendall’s Tau相关系数也是一种非参数的等级相关度量。

利用cor(x,use,method)函数来计算这三种相关系数,其中x为矩阵或数据框;use指定确实数据的处理方式,可选的方式为all.obs(假设不存在缺失数据,即遇到缺失数据时将报错)、everything(遇到缺失数据时,相关系数的计算结果将被设为missing)、complete.obs(行删除)以及pairwise.complete.obs(成对删除);method指定相关系数的类型,可选类型有pearson、spearman或kendall;默认参数为use=‘everything‘和method=‘pearson‘:

> data(iris)
> cor(iris[,-5],method=pearson)
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length    1.0000000  -0.1175698    0.8717538   0.8179411
Sepal.Width    -0.1175698   1.0000000   -0.4284401  -0.3661259
Petal.Length    0.8717538  -0.4284401    1.0000000   0.9628654
Petal.Width     0.8179411  -0.3661259    0.9628654   1.0000000
> cor(iris[,-5],method=spearman)
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length    1.0000000  -0.1667777    0.8818981   0.8342888
Sepal.Width    -0.1667777   1.0000000   -0.3096351  -0.2890317
Petal.Length    0.8818981  -0.3096351    1.0000000   0.9376668
Petal.Width     0.8342888  -0.2890317    0.9376668   1.0000000
> cor(iris[,-5],method=kendall)
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length   1.00000000 -0.07699679    0.7185159   0.6553086
Sepal.Width   -0.07699679  1.00000000   -0.1859944  -0.1571257
Petal.Length   0.71851593 -0.18599442    1.0000000   0.8068907
Petal.Width    0.65530856 -0.15712566    0.8068907   1.0000000

 

5.2 偏相关系数

偏相关是指在控制一个或多个定量变量时,另外两个定量变量之间的相互关系;

利用ggm包中的pcor(u,s)函数计算偏相关系数,其中u是一个数值向量,前两个数值表示要计算相关系数的变量下标,其余的数值为条件变量(即要排除影响的变量)的下标。s为变量的协方差阵:

> library(ggm)
> 
> data(iris)
> 
> #以鸢尾花第2,4列数据作为条件变量来计算第1,3列数据的偏相关系数
> pcor(c(1,3,2,4),cov(iris[,-5]))
[1] 0.7190656

 

 5.3 相关性的显著性检验

在变量间相关性假设检验中,常用的原假设为变量间不相关(即总体的相关系数为0);

利用cor.test(x,y,alternative,method)单个的相关系数进行检验,其中的x与y为要检验相关性的变量,alternative用来指定进行双侧检验或单侧检验(取值为‘two.side‘、‘less‘、‘greater‘),而method用以指定要计算的相关类型(‘pearson‘、‘kendall‘、‘spearman‘):

> #以鸢尾花第2,4列数据作为条件变量来计算第1,3列数据的偏相关系数
> cor.test(iris[,1],iris[,3])

    Pearsons product-moment correlation

data:  iris[, 1] and iris[, 3]
t = 21.646, df = 148, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.8270363 0.9055080
sample estimates:
      cor 
0.8717538

p值小于0.05,拒绝原假设,判定变量间不独立。

 

利用psych中的corr.test()同时进行多变量间的相关显著性检验:

> library(psych)
> data(iris)
> 
> corr.test(x=iris[,-5],use=complete,method=pearson)
Call:corr.test(x = iris[, -5], use = "complete", method = "pearson")
Correlation matrix 
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length         1.00       -0.12         0.87        0.82
Sepal.Width         -0.12        1.00        -0.43       -0.37
Petal.Length         0.87       -0.43         1.00        0.96
Petal.Width          0.82       -0.37         0.96        1.00
Sample Size 
[1] 150
Probability values (Entries above the diagonal are adjusted for multiple tests.) 
             Sepal.Length Sepal.Width Petal.Length Petal.Width
Sepal.Length         0.00        0.15            0           0
Sepal.Width          0.15        0.00            0           0
Petal.Length         0.00        0.00            0           0
Petal.Width          0.00        0.00            0           0

 To see confidence intervals of the correlations, print with the short=FALSE option

 

6 t检验

检验两组样本是否有明显区别,常用t检验:

6.1 独立样本的t检验

利用t.test(x,y)来进行t检验,原假设是两个样本来自同一总体,p值小于α时拒绝原假设:

> t.test(iris[,1],iris[,2])

    Welch Two Sample t-test

data:  iris[, 1] and iris[, 2]
t = 36.463, df = 225.68, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 2.63544 2.93656
sample estimates:
mean of x mean of y 
 5.843333  3.057333 

> 
> t.test(iris[,1],iris[,1]-0.01)

    Welch Two Sample t-test

data:  iris[, 1] and iris[, 1] - 0.01
t = 0.10458, df = 298, p-value = 0.9168
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.1781698  0.1981698
sample estimates:
mean of x mean of y 
 5.843333  5.833333 

 

以上就是R中基本统计分析的主要内容,如有意见望指出。




以上是关于(数据科学学习手札19)R中基本统计分析技巧总结的主要内容,如果未能解决你的问题,请参考以下文章

(数据科学学习手札54)Python中retry的简单用法

(数据科学学习手札82)基于geopandas的空间数据分析——geoplot篇(上)

(数据科学学习手札32)Python中re模块的详细介绍

(数据科学学习手札83)基于geopandas的空间数据分析——geoplot篇(下)

(数据科学学习手札83)基于geopandas的空间数据分析——geoplot篇(下)

(数据科学学习手札88)基于geopandas的空间数据分析——空间计算篇(下)