## JSTOR_2words(unpack1grams, "diamonds", "pearls")
## JSTOR_2words(unpack1grams, word1 = "milk", word2 = "sugar", span = 0.8) +
## scale_y_continuous(trans=log2_trans()) # to diminish the effect of a few extreme values
Run the code above in your browser using DataLab