## 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