Creating a summary statistical table from a data frame

by

Try with basicStats from fBasics package

> install.packages("fBasics")
> library(fBasics)
> basicStats(df)
                   age height_seca1 height_chad1   height_DL weight_alog1
nobs         29.000000    29.000000    29.000000   29.000000    29.000000
NAs           0.000000     0.000000     0.000000    0.000000     0.000000
Minimum      17.000000  1569.000000  1570.000000  155.000000    50.000000
Maximum      31.000000  1877.000000  1880.000000  188.000000   106.000000
1. Quartile  19.000000  1666.000000  1665.000000  166.000000    65.000000
3. Quartile  21.000000  1816.000000  1809.000000  181.000000    80.000000
Mean         20.413793  1737.241379  1736.482759  173.379310    73.413793
Median       19.000000  1755.000000  1755.000000  175.000000    71.000000
Sum         592.000000 50380.000000 50358.000000 5028.000000  2129.000000
SE Mean       0.612910    17.069018    17.210707    1.798613     2.700354
LCL Mean     19.158305  1702.277081  1701.228224  169.695018    67.882368
UCL Mean     21.669282  1772.205677  1771.737293  177.063602    78.945219
Variance     10.894089  8449.189655  8590.044335   93.815271   211.465517
Stdev         3.300619    91.919474    92.682492    9.685828    14.541854
Skewness      1.746597    -0.355499    -0.322915   -0.430019     0.560360
Kurtosis      2.290686    -1.077820    -1.086108   -1.040182    -0.311017

You can also subset the output to get what you want:

> basicStats(df)[c("Mean", "Stdev", "Median", "Minimum", "Maximum", "nobs"),]
              age height_seca1 height_chad1  height_DL weight_alog1
Mean    20.413793   1737.24138   1736.48276 173.379310     73.41379
Stdev    3.300619     91.91947     92.68249   9.685828     14.54185
Median  19.000000   1755.00000   1755.00000 175.000000     71.00000
Minimum 17.000000   1569.00000   1570.00000 155.000000     50.00000
Maximum 31.000000   1877.00000   1880.00000 188.000000    106.00000
nobs    29.000000     29.00000     29.00000  29.000000     29.00000

Another alternative is that you define your own function as in this post.

Update:

(I hadn’t read the “My assignment requires me not use any ‘extra’ R packages.” part)

As I said before, you can define your own function and loop over each column by using *apply family functions:

my.summary <- function(x,...){
  c(mean=mean(x, ...),
    sd=sd(x, ...),
    median=median(x, ...),
    min=min(x, ...),
    max=max(x,...), 
    n=length(x))
}

# all these calls should give you the same results.
apply(df, 2, my.summary)
sapply(df, my.summary)
do.call(cbind,lapply(df, my.summary))

More Related Contents:

  1. Reshaping data.frame from wide to long format
  2. Reshape three column data frame to matrix (“long” to “wide” format) [duplicate]
  3. Combine two data frames by rows (rbind) when they have different sets of columns
  4. Convert a list to a data frame
  5. How to combine multiple conditions to subset a data-frame using “OR”?
  6. cbind a dataframe with an empty dataframe – cbind.fill?
  7. Split a large dataframe into a list of data frames based on common value in column
  8. Splitting a dataframe string column into multiple different columns [duplicate]
  9. Conditional replacement of values in a data.frame
  10. How do I combine two data-frames based on two columns? [duplicate]
  11. Count NAs per row in dataframe [duplicate]
  12. Changing Column Names in a List of Data Frames in R
  13. dplyr filter with condition on multiple columns
  14. Create categories by comparing a numeric column with a fixed value
  15. Add a prefix to column names
  16. Add empty columns to a dataframe with specified names from a vector
  17. How to sort a data frame in R
  18. Creating a new variable from a lookup table
  19. How to initialize empty data frame (lot of columns at the same time) in R
  20. Practical limits of R data frame
  21. R: Assign variable labels of data frame columns
  22. Read and rbind multiple csv files
  23. Count number of zeros per row, and remove rows with more than n zeros
  24. How I can select rows from a dataframe that do not match?
  25. Select last non-NA value in a row, by row
  26. Join two data frames in R based on closest timestamp
  27. How to append a whole dataframe to a CSV in R
  28. How can I merge more than 2 dataframes in R by rownames?
  29. Shifting a column down by one
  30. Identifying where value changes in R data.frame column

Leave a Comment