This R package is an RStudio addin to count words and characters in text in an R markdown document. It also has a function to compute readability statistics so you can get an indication of how easy or difficult your document is to read.
You can count words in your Rmd file in three ways:
word_count
function from the console or command line (RStudio not required),
and specifiying the filename as an argument to the function (e.g.
wordcountaddin::word_count("my_file.Rmd")
). This will give you a
single integer result, rather than the Markdown table that the other
functions return.Independent of an Rmd file, you can also count words in a character
vector from the console using the text_stats_chr
function (and there
is readability_chr
for readability).
When counting words in the text of your Rmd document, these things will be ignored:
<!-- text -->
<br>
, </br>
[text of link](url)
![this is the caption](/path/to/image.png)
#
and ##
, etc.And because my regex is quite simple, the word count function may also ignore parts of your actual text that resemble these things.
The word count will include text in headers, block quotations, verbatim code blocks, tables, raw LaTeX and raw HTML.
In general, there are numerous ways to count words, with no widely
accepted standard method. The variety of methods is due to differences
in the definitions of a word and a sentence. Run
?stringi::stri_stats_latex
and ?koRpus::describe
to learn more about
the word counting methods.
For this addin I’ve included two methods, mostly out of curiosity to see how they differ from each other. I use functions from the stringi and koRpus packages. If you’re curious, you can compare the results you get with this addin to an online tool such as http://wordcounttools.com/.
The output of the Word count
function is a markdown table in your R
console that might look like this:
|Method |koRpus |stringi |
|:---------------|:-----------|:-------------|
|Word count |107 |104 |
|Character count |604 |603 |
|Sentence count |10 |Not available |
|Reading time |0.5 minutes |0.5 minutes |
If you want to reuse these results in other R functions, you can use an
unexported function like this wordcountaddin:::text_stats_fn_(text)
,
where text
is a character vector of your text (with length one, ie.
all your text in a single character string). The output will be a list
object, and will include several other items not shown in the markdown
table.
The readability function ignores all the same parts of the text as the word count function, and then computes the values of a bunch of readability statistics.
Most of these readability measurements aim to approximate the years of education required to understand your text. They look at the number of characters and syllables per word, the number of words per sentence, and so on. They don’t analyse the meaning of the words. A score of around 10-12 is roughly the reading level on completion of high school in the US. These stats are computed by the koRpus package.
There about 27 measurements that this readability function returns
(depending on how long your text is), including the Automated
Readability Index (ARI), Coleman-Liau, th Flesch-Kincaid Grade Level,
and the Simple Measure of Gobbledygook (SMOG). For the full list of
readability measurements that are returned by the readability function,
run ?koRpus::readability
. That help page also shows the formulae and
citations for each statistic (and an additional 20-odd other readability
statistics not used here).
Readability stats are, of course, no substitute for critical self-reflection on the effectiveness of your writing at communicating ideas and information. To help with that, read Style: Toward Clarity and Grace.
The output of the readability
function is a markdown table in your R
console that might look like this:
|index |flavour |raw |grade |age |
|:---------------------|:-----------|:-----|:-----|:----|
|ARI | | |2.31 | |
|Coleman-Liau | |66 |4.91 | |
|Danielson-Bryan DB1 | |6.46 | | |
|Danielson-Bryan DB2 | |60.39 |6 | |
|Dickes-Steiwer | |53.07 | | |
|ELF | |1.83 | | |
|Farr-Jenkins-Paterson | |66.81 |8-9 | |
|Flesch |en (Flesch) |69.57 |8-9 | |
|Flesch-Kincaid | | |4.85 |9.8 |
|FOG | | |7.84 | |
|FORCAST | | |10.28 |15.3 |
|Fucks | |23.38 |4.83 | |
|Linsear-Write | | |2.35 | |
|LIX | |32.41 |< 5 | |
|nWS1 | | |4.19 | |
|nWS2 | | |4.72 | |
|nWS3 | | |4.14 | |
|nWS4 | | |3.64 | |
|RIX | |1.42 |5 | |
|SMOG | | |8.08 |13.1 |
|Strain | |2.44 | | |
|TRI | |-94 | | |
|Tuldava | |2.57 | | |
|Wheeler-Smith | |18.33 |2 | |
Similar to the word count
function, if you want to reuse these results
in other R functions, you can use an unexported function like this
wordcountaddin:::readability_fn_(text)
, where text
is a character
vector of your text (with length one, ie. all your text in a single
character string). The output will be a list object with slightly more
detail than the summary table above.
Inspiration for this addin came from jadd and WrapRmd.
Install with
devtools::install_github("benmarwick/wordcountaddin", type = "source", dependencies = TRUE)
Go to Tools > Addins
in RStudio to select and configure addins.
Tools > Addins
in RStudio and click on Word count
or
Readability
. Computing Readability
may take a few moments on
longer documents because it has to count syllables for some of the
stats.Please open an issue if you find something that doesn’t work as expected. Note that this project is released with a Guide to Contributing and a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.