zapier/broom

Name: broom

Owner: Zapier

Description: Convert statistical analysis objects from R into tidy format

Forked from: tidyverse/broom

Created: 2017-12-05 15:21:32.0

Updated: 2017-12-05 15:21:34.0

Pushed: 2017-12-04 23:25:33.0

Homepage: null

Size: 1935

Language: R

GitHub Committers

UserMost Recent Commit# Commits

Other Committers

UserEmailMost Recent Commit# Commits

README

broom: let's tidy up a bit

CRAN_Status_Badge Travis-CI Build Status AppVeyor Build Status Coverage Status

The broom package takes the messy output of built-in functions in R, such as lm, nls, or t.test, and turns them into tidy data frames.

The concept of “tidy data”, as introduced by Hadley Wickham, offers a powerful framework for data manipulation and analysis. That paper makes a convincing statement of the problem this package tries to solve (emphasis mine):

While model inputs usually require tidy inputs, such attention to detail doesn't carry over to model outputs. Outputs such as predictions and estimated coefficients aren't always tidy. This makes it more difficult to combine results from multiple models. For example, in R, the default representation of model coefficients is not tidy because it does not have an explicit variable that records the variable name for each estimate, they are instead recorded as row names. In R, row names must be unique, so combining coefficients from many models (e.g., from bootstrap resamples, or subgroups) requires workarounds to avoid losing important information. This knocks you out of the flow of analysis and makes it harder to combine the results from multiple models. I'm not currently aware of any packages that resolve this problem.

broom is an attempt to bridge the gap from untidy outputs of predictions and estimations to the tidy data we want to work with. It centers around three S3 methods, each of which take common objects produced by R statistical functions (lm, t.test, nls, etc) and convert them into a data frame. broom is particularly designed to work with Hadley's dplyr package (see the “broom and dplyr” vignette for more).

broom should be distinguished from packages like reshape2 and tidyr, which rearrange and reshape data frames into different forms. Those packages perform critical tasks in tidy data analysis but focus on manipulating data frames in one specific format into another. In contrast, broom is designed to take format that is not in a data frame (sometimes not anywhere close) and convert it to a tidy data frame.

Tidying model outputs is not an exact science, and it's based on a judgment of the kinds of values a data scientist typically wants out of a tidy analysis (for instance, estimates, test statistics, and p-values). You may lose some of the information in the original object that you wanted, or keep more information than you need. If you think the tidy output for a model should be changed, or if you're missing a tidying function for an S3 class that you'd like, I strongly encourage you to open an issue or a pull request.

Installation and Documentation

The broom package is available on CRAN:

install.packages("broom")

You can also install the development version of the broom package using devtools:

ary(devtools)
all_github("tidyverse/broom")

For additional documentation, please browse the vignettes:

seVignettes(package="broom")
Tidying functions

This package provides three S3 methods that do three distinct kinds of tidying.

Note that some classes may have only one or two of these methods defined.

Consider as an illustrative example a linear fit on the built-in mtcars dataset.

t <- lm(mpg ~ wt, mtcars)
t


all:
m(formula = mpg ~ wt, data = mtcars)

oefficients:
Intercept)           wt  
    37.285       -5.344

ary(lmfit)


all:
m(formula = mpg ~ wt, data = mtcars)

esiduals:
   Min      1Q  Median      3Q     Max 
4.5432 -2.3647 -0.1252  1.4096  6.8727 

oefficients:
           Estimate Std. Error t value Pr(>|t|)    
Intercept)  37.2851     1.8776  19.858  < 2e-16 ***
t           -5.3445     0.5591  -9.559 1.29e-10 ***
--
ignif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

esidual standard error: 3.046 on 30 degrees of freedom
ultiple R-squared:  0.7528, Adjusted R-squared:  0.7446 
-statistic: 91.38 on 1 and 30 DF,  p-value: 1.294e-10

This summary output is useful enough if you just want to read it. However, converting it to a data frame that contains all the same information, so that you can combine it with other models or do further analysis, is not trivial. You have to do coef(summary(lmfit)) to get a matrix of coefficients, the terms are still stored in row names, and the column names are inconsistent with other packages (e.g. Pr(>|t|) compared to p.value).

Instead, you can use the tidy function, from the broom package, on the fit:

ary(broom)
(lmfit)

        term  estimate std.error statistic      p.value
 (Intercept) 37.285126  1.877627 19.857575 8.241799e-19
          wt -5.344472  0.559101 -9.559044 1.293959e-10

This gives you a data.frame representation. Note that the row names have been moved into a column called term, and the column names are simple and consistent (and can be accessed using $).

Instead of viewing the coefficients, you might be interested in the fitted values and residuals for each of the original points in the regression. For this, use augment, which augments the original data with information from the model:

(augment(lmfit))

         .rownames  mpg    wt  .fitted   .se.fit     .resid       .hat
         Mazda RX4 21.0 2.620 23.28261 0.6335798 -2.2826106 0.04326896
     Mazda RX4 Wag 21.0 2.875 21.91977 0.5714319 -0.9197704 0.03519677
        Datsun 710 22.8 2.320 24.88595 0.7359177 -2.0859521 0.05837573
    Hornet 4 Drive 21.4 3.215 20.10265 0.5384424  1.2973499 0.03125017
 Hornet Sportabout 18.7 3.440 18.90014 0.5526562 -0.2001440 0.03292182
           Valiant 18.1 3.460 18.79325 0.5552829 -0.6932545 0.03323551
   .sigma      .cooksd  .std.resid
 3.067494 1.327407e-02 -0.76616765
 3.093068 1.723963e-03 -0.30743051
 3.072127 1.543937e-02 -0.70575249
 3.088268 3.020558e-03  0.43275114
 3.097722 7.599578e-05 -0.06681879
 3.095184 9.210650e-04 -0.23148309

Note that each of the new columns begins with a . (to avoid overwriting any of the original columns).

Finally, several summary statistics are computed for the entire regression, such as R^2 and the F-statistic. These can be accessed with the glance function:

ce(lmfit)

 r.squared adj.r.squared    sigma statistic      p.value df    logLik
 0.7528328     0.7445939 3.045882  91.37533 1.293959e-10  2 -80.01471
      AIC      BIC deviance df.residual
 166.0294 170.4266 278.3219          30

This distinction between the tidy, augment and glance functions is explored in a different context in the k-means vignette.

Other Examples
Generalized linear and non-linear models

These functions apply equally well to the output from glm:

it <- glm(am ~ wt, mtcars, family="binomial")
(glmfit)

        term estimate std.error statistic     p.value
 (Intercept) 12.04037  4.509706  2.669879 0.007587858
          wt -4.02397  1.436416 -2.801396 0.005088198

(augment(glmfit))

         .rownames am    wt    .fitted   .se.fit     .resid       .hat
         Mazda RX4  1 2.620  1.4975684 0.9175750  0.6353854 0.12577908
     Mazda RX4 Wag  1 2.875  0.4714561 0.6761141  0.9848344 0.10816226
        Datsun 710  1 2.320  2.7047594 1.2799233  0.3598458 0.09628500
    Hornet 4 Drive  0 3.215 -0.8966937 0.6012064 -0.8271767 0.07438175
 Hornet Sportabout  0 3.440 -1.8020869 0.7486164 -0.5525972 0.06812194
           Valiant  0 3.460 -1.8825663 0.7669573 -0.5323012 0.06744101
    .sigma     .cooksd .std.resid
 0.8033182 0.018405616  0.6795582
 0.7897742 0.042434911  1.0428463
 0.8101256 0.003942789  0.3785304
 0.7973421 0.017706938 -0.8597702
 0.8061915 0.006469973 -0.5724389
 0.8067014 0.005901376 -0.5512128

ce(glmfit)

 null.deviance df.null    logLik      AIC      BIC deviance df.residual
      43.22973      31 -9.588042 23.17608 26.10756 19.17608          30

Note that the statistics computed by glance are different for glm objects than for lm (e.g. deviance rather than R^2):

These functions also work on other fits, such as nonlinear models (nls):

it <- nls(mpg ~ k / wt + b, mtcars, start=list(k=1, b=0))
(nlsfit)

 term  estimate std.error statistic      p.value
    k 45.829488  4.249155 10.785554 7.639162e-12
    b  4.386254  1.536418  2.854858 7.737378e-03

(augment(nlsfit, mtcars))

         .rownames  mpg cyl disp  hp drat    wt  qsec vs am gear carb
         Mazda RX4 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
     Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
        Datsun 710 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
    Hornet 4 Drive 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
 Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
           Valiant 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1
  .fitted     .resid
 21.87843 -0.8784251
 20.32695  0.6730544
 24.14034 -1.3403437
 18.64115  2.7588507
 17.70878  0.9912203
 17.63177  0.4682291

ce(nlsfit)

   sigma isConv      finTol    logLik      AIC      BIC deviance
 2.77405   TRUE 2.87694e-08 -77.02329 160.0466 164.4438 230.8606
 df.residual
          30
Hypothesis testing

The tidy function can also be applied to htest objects, such as those output by popular built-in functions like t.test, cor.test, and wilcox.test.

- t.test(wt ~ am, mtcars)
(tt)

 estimate estimate1 estimate2 statistic     p.value parameter  conf.low
 1.357895  3.768895     2.411  5.493905 6.27202e-06  29.23352 0.8525632
 conf.high                  method alternative
  1.863226 Welch Two Sample t-test   two.sided

Some cases might have fewer columns (for example, no confidence interval):

- wilcox.test(wt ~ am, mtcars)
(wt)

 statistic      p.value                                            method
     230.5 4.347026e-05 Wilcoxon rank sum test with continuity correction
 alternative
   two.sided

Since the tidy output is already only one row, glance returns the same output:

ce(tt)

 estimate estimate1 estimate2 statistic     p.value parameter  conf.low
 1.357895  3.768895     2.411  5.493905 6.27202e-06  29.23352 0.8525632
 conf.high                  method alternative
  1.863226 Welch Two Sample t-test   two.sided

ce(wt)

 statistic      p.value                                            method
     230.5 4.347026e-05 Wilcoxon rank sum test with continuity correction
 alternative
   two.sided

There is no augment function for htest objects, since there is no meaningful sense in which a hypothesis test produces output about each initial data point.

Available Tidiers

Currently broom provides tidying methods for many S3 objects from the built-in stats package, including

It also provides methods for S3 objects in popular third-party packages, including

A full list of the tidy, augment and glance methods available for each class is as follows:

|Class |tidy |glance |augment | |:————————|:——|:——–|:———| |aareg |x |x | | |acf |x | | | |anova |x | | | |aov |x | | | |aovlist |x | | | |Arima |x |x | | |betareg |x |x |x | |biglm |x |x | | |binDesign |x |x | | |binWidth |x | | | |boot |x | | | |brmsfit |x | | | |btergm |x | | | |cch |x |x | | |character |x | | | |cld |x | | | |coeftest |x | | | |confint.glht |x | | | |coxph |x |x |x | |cv.glmnet |x |x | | |data.frame |x |x |x | |default |x |x |x | |density |x | | | |dgCMatrix |x | | | |dgTMatrix |x | | | |dist |x | | | |ergm |x |x | | |felm |x |x |x | |fitdistr |x |x | | |ftable |x | | | |gam |x |x | | |gamlss |x | | | |geeglm |x | | | |glht |x | | | |glmnet |x |x | | |glmRob |x |x |x | |gmm |x |x | | |htest |x |x | | |kappa |x | | | |kde |x | | | |kmeans |x |x |x | |Line |x | | | |Lines |x | | | |list |x |x | | |lm |x |x |x | |lme |x |x |x | |lmodel2 |x |x | | |lmRob |x |x |x | |logical |x | | | |lsmobj |x | | | |manova |x | | | |map |x | | | |matrix |x |x | | |Mclust |x |x |x | |merMod |x |x |x | |mle2 |x | | | |multinom |x |x | | |nlrq |x |x |x | |nls |x |x |x | |NULL |x |x |x | |numeric |x | | | |pairwise.htest |x | | | |plm |x |x |x | |poLCA |x |x |x | |Polygon |x | | | |Polygons |x | | | |power.htest |x | | | |prcomp |x | |x | |pyears |x |x | | |rcorr |x | | | |ref.grid |x | | | |ridgelm |x |x | | |rjags |x | | | |roc |x | | | |rowwise_df |x |x |x | |rq |x |x |x | |rqs |x |x |x | |sparseMatrix |x | | | |SpatialLinesDataFrame |x | | | |SpatialPolygons |x | | | |SpatialPolygonsDataFrame |x | | | |spec |x | | | |stanfit |x | | | |stanreg |x |x | | |summary.glht |x | | | |summary.lm |x |x | | |summaryDefault |x |x | | |survexp |x |x | | |survfit |x |x | | |survreg |x |x |x | |table |x | | | |tbl_df |x |x |x | |ts |x | | | |TukeyHSD |x | | | |zoo |x | | |

Conventions

In order to maintain consistency, we attempt to follow some conventions regarding the structure of returned data.

All functions
tidy functions
augment functions
glance functions
Code of Conduct

Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.


This work is supported by the National Institutes of Health's National Center for Advancing Translational Sciences, Grant Number U24TR002306. This work is solely the responsibility of the creators and does not necessarily represent the official views of the National Institutes of Health.