device_types_condensed <- (ggplot(manu_tweets3, aes(x= statusSource_clean , fill = isRetweet)) + geom_bar()
                 + theme(panel.background=element_rect(fill='white'),
                         axis.ticks.x=element_blank(),
                         axis.text.x=element_blank())
                         + theme(axis.ticks.x=element_blank(), axis.text.x = element_text(angle = 25),
                         axis.text=element_text(size=8))
                         + labs(x="", title = "Device Popularity for Tweet or Retweet Usage", y ="No. of Tweets on Device")
                         )
device_types_condensed