## Not run: ------------------------------------
# data_corpus_inauguralPost70 <- corpus_subset(data_corpus_inaugural, Year > 1970)
# # compare multiple documents
# textplot_xray(kwic(data_corpus_inauguralPost70, "american"))
# textplot_xray(kwic(data_corpus_inauguralPost70, "american"), scale = "absolute")
# # compare multiple terms across multiple documents
# textplot_xray(kwic(data_corpus_inauguralPost70, "america*"),
# kwic(data_corpus_inauguralPost70, "people"))
#
# # how to modify the ggplot with different options
# library(ggplot2)
# g <- textplot_xray(kwic(data_corpus_inauguralPost70, "american"),
# kwic(data_corpus_inauguralPost70, "people"))
# g + aes(color = keyword) + scale_color_manual(values = c('red', 'blue'))
## ---------------------------------------------
Run the code above in your browser using DataLab