data=as.data.frame(cbind(ttext=tweettext,
                     date=tweetdate,
                     isretweet=isretweet,
                     retweetcount=retweetcount,
                     favoritecount=favoritecount,
                     score = scores$score,
                     product = "Nike"))
ttext

date isretweet retweetcount favoritecount score product

date isretweet retweetcount favoritecount score product