Babynames (Parameterized)

# This is where we load in all the packages we plan to use

# If there are any packages in the list that aren't installed,
# install them
if(!("needs" %in% installed.packages())) {
  install.packages("needs", repos = "http://cran.rstudio.com")
}

# Load the packages into R
library(needs)
needs(dplyr, babynames)
data("babynames", package = "babynames")

# Extracts package contents and appends it to Rprofile in wd
needs::toProfile()

The babynames data comes from the Social Security Administration and gives information about the Top 1000 names given to children in the USA since 1880 (http://www.ssa.gov/oact/babynames/limits.html). Notice that the data is called names above when we load it from the babynames package, but you will receive an error if you try to use names as your data frame before the %>%. This is just a quirk with how Hadley labeled things.

Problem

Identify how many people were born with parameterized first name (Jack) in the US in paramaterized year (1990).

entered_name <- params$name
entered_year <- params$year
result <- babynames %>% filter(name == entered_name) %>%
  filter(year == entered_year) %>%
  summarize(count = sum(n))
result

## # A tibble: 1 x 1
##   count
##   <int>
## 1  1831

Update inline text

We can reference values stored in R directly in your text.

Something like this:

We have determined that (of the top 1000 names) in 1990, there were # A tibble: 1 x 1, count, , 1 1831 babies born in the US with the first name ‘Jack’.

Additionally, we can produce output conditional on results using the ifelse function in R:

One more tweak: You can use the paste0 function to create a sentence based on values.

What a popular name!

Try this!

You’ll need to Run Current Chunk here to get the desired output.

names_array <- c("Hayden", "Justin", "Doug", "Mary")
years_array <- rep(1950, times = length(names_array))
rm(params)
for(i in 1:length(names_array)){
  rmarkdown::render("babynames_parameterized.Rmd", 
                    params = list(name = names_array[i], year = years_array[i]),
                    output_dir = "results",
                    output_file = paste0(names_array[i], "_", years_array[i], ".html")
  )
}