How to delete unorthodox words and units from text in R?

Question

Currently, I\'m doing on LDA model. Before fitting the model, I want to delete some uncommon words and units from the text (mysw). For instance, consider the follow