{"id":1616,"date":"2020-01-25T22:07:20","date_gmt":"2020-01-25T22:07:20","guid":{"rendered":"http:\/\/optimumsportsperformance.com\/blog\/?p=1616"},"modified":"2020-07-01T16:45:51","modified_gmt":"2020-07-01T16:45:51","slug":"creating-a-data-dictionary-function-in-r","status":"publish","type":"post","link":"https:\/\/optimumsportsperformance.com\/blog\/creating-a-data-dictionary-function-in-r\/","title":{"rendered":"Creating A Data Dictionary Function in R"},"content":{"rendered":"

In my previous post<\/a>, I did a bit of impromptu analysis on some Powerlifting data provided from the TidyTusday<\/a> project.<\/p>\n

When sitting down to work with a new data set it is important to familiarize yourself with the variables in each column, get a grasp for what sort of values you may be dealing with, and quickly identify any potential issues with the data that may require your attention.<\/p>\n

For looking at the type of variables you are dealing with the functions str()<\/span> in base R or glimpse() <\/span>in tidyverse can be useful. If it’s summary statistics you’re after, the psych package’s describe()<\/span> function will do the trick. The summary()<\/span> function in base R can also be useful for getting min, max, mean, median, IQR, and the number of missing values (NA) in each column.<\/p>\n

The issue with this is that you have to go through a few steps to get the info you want — variable types, number of missing values, and summary statistics. Thus, I decided to create my own data dictionary function. After passing your data frame to the function, you will get the name of each variable, the variable type, the number of missing values for each variable, the total amount of data (rows) for each value, and a host of summary statistics such as mean, standard deviation, median, standard error, min, max, and range. While the function defaults to printing the results in your R console you can choose to set the argument print_table = “Yes”<\/span> and the results will be returned in a nice table that you can use for reports or presentations to colleagues.<\/p>\n

Let’s take a look at function in action.<\/p>\n

First, we will create some fake data:<\/p>\n

\r\n\r\nNames <- c("Sal", "John", "Jeff", "Karl", "Ben")\r\nHomeTown <- c("CLE", "NYC", "CHI", "DEN", "SEA")\r\nvar1 <- rnorm(n = length(Names), mean = 10, sd = 2)\r\nvar2 <- rnorm(n = length(Names), mean = 300, sd = 150)\r\nvar3 <- rnorm(n = length(Names), mean = 1000, sd = 350)\r\nvar4 <- c(6, 7, NA, 3, NA)\r\n\r\ndf <- data.frame(Names, HomeTown, var1, var2, var3, var4)\r\ndf\r\n\r\n<\/pre>\n
 <\/p>\n
 <\/p>\n
\"\"<\/a><\/p>\n
We can see from the output that the code includes a few NA values in the var4 column. Additionally, the first two columns are not numeric values. We can run the data_dict()<\/span> function I’ve created to get a read out of the data we are looking at.<\/p>\n
First, let’s look at the output in the R console:<\/p>\n
\r\n\r\n# without table\r\ndata_dict(df, print_table = "No")\r\n\r\n<\/pre>\n
\"\"<\/a><\/p>\n
We are immediately returned an output that consolidates some key information for helping us quickly evaluate our data set.<\/p>\n
By setting the argument print_table = “Yes”<\/span> we will get our result in a nice table format.<\/p>\n
\r\n\r\n# with table\r\ndata_dict(df, print_table = "Yes")\r\n\r\n<\/pre>\n
\"\"<\/a><\/p>\n
Let’s look at the results in table format for a much larger data set — the Lahman Baseball Batting data set.<\/p>\n
\"\"<\/a><\/p>\n
As you can see, it is a pretty handy function. Very quickly we can identify:<\/p>\n
1) The types of variables in our data
\n2) The amount of data in each column
\n3) The number of missing values in each column
\n4) A variety of summary statistics<\/p>\n
If you’re interested in using the function, you can obtain it on my GitHub page<\/a>.<\/p>\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"
In my previous post, I did a bit of impromptu analysis on some Powerlifting data provided from the TidyTusday project. When sitting down to work with a new data set it is important to familiarize yourself with the variables in each column, get a grasp for what sort of values you may be dealing with, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[45],"tags":[],"class_list":["post-1616","post","type-post","status-publish","format-standard","hentry","category-r-tips-tricks"],"_links":{"self":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/1616","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/comments?post=1616"}],"version-history":[{"count":3,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/1616\/revisions"}],"predecessor-version":[{"id":1618,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/1616\/revisions\/1618"}],"wp:attachment":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/media?parent=1616"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/categories?post=1616"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/tags?post=1616"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}