title: "Summaries on North America" author: "Leo Lahti" date: "2018-04-26" output: markdown_document
Read the preprocessed ESTC data table and load tools:
# Pick USA documents only
sel.country <- "USA"
df <- filter(df.preprocessed, country == sel.country)
## Error in filter_impl(.data, quo): Evaluation error: object 'country' not found.
df$unity <- rep(1, nrow(df))
We have 480208 documents from USA.
p <- top_plot(df, "author", 20)
p <- p + ggtitle(paste("Most common authors from", sel.country))
p <- p + ylab("Documents") + xlab("")
print(p)
p <- top_plot(df, "title", 20)
p <- p + ggtitle(paste("Most common titles from", sel.country))
p <- p + ylab("Documents") + xlab("")
print(p)
Average annual output for each decade is shown by lines, the actual annual document counts are shown by points.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.