r length(unique(df$title))
unique titlesr sum(!is.na(df$title))
documents (r round(100*mean(!is.na(df$title)))
%) have a titleTop-r ntop
titles are shown together with the number of documents.
p <- top_plot(df, "title", ntop = ntop) + ggtitle(paste("Top titles")) + scale_y_log10() + ylab("Documents") print(p)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.