number_of_words_report.Rmd

---
title: "How many words contain a given letter of the alphabet?"
author: "Malcolm Bowles"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  html_document:
    keep_md: yes
---

In this analysis, we investigate the frequency of words that contain a given letter of the alphabet. The list of words we use is available from the web at [http://svnweb.freebsd.org/base/head/share/dict/web2?view=co](http://svnweb.freebsd.org/base/head/share/dict/web2?view=co). 
```{r, include = FALSE}
freq_data <- readRDS("words_containing_letter.rds")
```


The most frequent letter appearing in the list of words is the letter `r freq_data$Letters[which.max(freq_data$Number_of_words)]`, and the least frequent is the letter `r freq_data$Letters[which.min(freq_data$Number_of_words)]`.


![*Fig. 1* Number of words containing a given letter](words_containing_letter.png)

```{r make table}
knitr::kable(freq_data)
```