wordcloud.R

library('wordcloud')
library('RColorBrewer')

setwd('~/signal/project')

action_words = c('weapon',
                 'explodes',
                 'aim',
                 'crash',
                 'fire',
                 'bullet',
                 'wall',
                 'gun',
                 'drop',
                 'chopper',
                 'oh',
                 'steel',
                 'rooftop',
                 'trigger',
                 'air',
                 'fly',
                 'punch',
                 'slam',
                 'building',
                 'blast',
                 'slide',
                 'dive',
                 'helicopter',
                 'control',
                 'scan')
action_weights = c(0.076, 
                   0.046, 
                   0.046, 
                   0.036, 
                   0.030, 
                   0.030, 
                   0.030, 
                   0.027, 
                   0.026, 
                   0.026, 
                   0.024, 
                   0.024, 
                   0.024, 
                   0.024, 
                   0.023, 
                   0.023, 
                   0.023, 
                   0.022, 
                   0.021, 
                   0.021, 
                   0.021, 
                   0.020, 
                   0.019, 
                   0.019, 
                   0.018)

pal2 = brewer.pal(8,"Dark2")
png("images/wordcloud_action.png",width=400,height=400)
wordcloud(action_words,action_weights,colors=pal2)
dev.off()

comedy_words = c("guy",
                 "really",
                 "hey",
                 "just",
                 "ball",
                 "married",
                 "asshole",
                 "piss",
                 "dude",
                 "wow",
                 "ups",
                 "jay",
                 "awesome",
                 "chick",
                 "ooh",
                 "cheat",
                 "puke",
                 "mime",
                 "dana",
                 "psychotic"
)

comedy_weights = c(
  0.116,
  0.077,
  0.074,
  0.072,
  0.065,
  0.061,
  0.056,
  0.052,
  0.051,
  0.048,
  0.045,
  0.043,
  0.038,
  0.036,
  0.033,
  0.031,
  0.029,
  0.027,
  0.023,
  0.022
)

pal2 = brewer.pal(8,"Dark2")
png("images/wordcloud_comedy.png",width=400,height=400)
wordcloud(comedy_words,comedy_weights,colors=pal2)
dev.off()

factor1_pos_words = c(
  'talkin',
  'anybody',
  'cigarette',
  'heard',
  'actor',
  'drink',
  'sit',
  'people',
  'film',
  'yeah',
  'voice',
  'don',
  'shot'
)
factor1_neg_words = c(
  'rush',
  'telephone',
  'monitor',
  'know',
  'data',
  'eye',
  'air',
  'race',
  'catch',
  'beat',
  'drop',
  'cell',
  'pilot',
  'grab',
  'leap',
  'dive',
  'tumble',
  'breath',
  'rip',
  'tech',
  'team',
  'video',
  'computer',
  'fly',
  'launch',
  'save',
  'hears',
  'spark',
  'whirl',
  'stun',
  'system',
  'wham',
  'chute',
  'realize',
  'laptop',
  'perfect',
  'fireball'
)
factor1_pos_weights = c(
  0.00049941776058523384,
  0.00023369200675495399,
  0.00017326107800195019,
  0.00014552169346077515,
  0.00014063436092495967,
  0.000132289254922266,
  6.8177650411176707e-05,
  4.901241018706896e-05,
  3.9650797512843262e-05,
  3.0500491697645371e-05,
  1.3952571159930322e-05,
  1.1400841228266626e-05,
  4.8403445469470943e-06
)
factor1_neg_weights = c(
  5.2477076828189414e-07, 
  2.4199103840131539e-06, 
  4.3746852922391439e-06, 
  4.7065997756649299e-06, 
  1.3741748686698268e-05, 
  1.5390077649593586e-05, 
  2.210105908904655e-05, 
  2.4963317757960597e-05, 
  2.6498894121412041e-05, 
  3.8415830373639563e-05, 
  4.9557849293988835e-05, 
  6.1547752890865048e-05, 
  6.8315450340073228e-05, 
  6.9319411892041245e-05, 
  6.9691463100047575e-05, 
  7.1194759732302673e-05, 
  7.3387405546546412e-05, 
  7.9292930229728559e-05, 
  7.9554236775907655e-05, 
  8.086076076897151e-05, 
  8.3656189451853768e-05, 
  8.4836321142913652e-05, 
  0.0001176391203037616, 
  0.0001194948753814878, 
  0.00018509962592946043, 
  0.0001919815705980868, 
  0.00020477116614011571, 
  0.00020489533999584544, 
  0.00021541896805040448, 
  0.00022648888264348188, 
  0.0002393984665033794, 
  0.00032399389166426869, 
  0.00034764058460298871, 
  0.00037926498798270209, 
  0.00039806332550483992, 
  0.00047072969810565713, 
  0.0010288025497466071
)

reds = c("#FF8888","#FF4444","#FF0000")
blues = c("#8888FF","#4444FF","#0000FF")
png("images/wordcloud_factor1_pos.png",width=400,height=400)
wordcloud(factor1_pos_words,factor1_pos_weights,colors=blues)
dev.off()
png("images/wordcloud_factor1_neg.png",width=400,height=400)
wordcloud(factor1_neg_words,factor1_neg_weights,colors=reds)
dev.off()

factor2_pos_words = c(
  'spell',
  'marry',
  'philadelphia',
  'tail',
  'thank',
  'potter',
  'word',
  'wait',
  'nod',
  'come',
  'ask',
  'oh',
  'hey'
)
factor2_neg_words = c(
  'gun',
  'fucker',
  'fuckin',
  'blood',
  'body',
  'fuck',
  'lime',
  'scream',
  'frame',
  'motherfucker',
  'denny',
  'flesh',
  'pussy',
  'yuppie'
)
factor2_pos_weights = c(
  0.00096135956133532811,
  0.00074032471136620118,
  0.00031034575519908888,
  0.00020167067958881351,
  0.00013952040909696132,
  0.00013335462886857445,
  0.00011382600527726387,
  4.309378828938053e-05,
  2.055169436982447e-05,
  1.1165858541793294e-05,
  1.0466835403040762e-05,
  2.8686617577435966e-07,
  1.646471691640384e-07
)
factor2_neg_weights = c(
  1.3426769121932355e-05,
  2.5624810879245302e-05,
  3.6544302144186008e-05,
  5.1755864293955783e-05,
  6.263413035288846e-05,
  0.00010149164624789543,
  0.00013607722801156342,
  0.0001363062747765564,
  0.00015894790540263342,
  0.00024998930142487957,
  0.00027907419343772182,
  0.0003170184607205796,
  0.00060992470408107781,
  0.00088256272736631078
)

png("images/wordcloud_factor2_pos.png",width=400,height=400)
wordcloud(factor2_pos_words,factor2_pos_weights,colors=blues)
dev.off()
png("images/wordcloud_factor2_neg.png",width=400,height=400)
wordcloud(factor2_neg_words,factor2_neg_weights,colors=reds)
dev.off()

factor4_neg_words = c(
  'terrific',
  'fashion',
  'happily',
  'sings',
  'wonderful',
  'coo',
  'bye',
  'bake',
  'darling',
  'bobo',
  'reverend',
  'song',
  'guilty',
  'sing',
  'wipe',
  'dress',
  'sc',
  'music',
  'oh',
  'miss',
  'cher',
  'girl',
  'betty',
  'continue',
  'sound',
  'roger',
  'angle',
  'mr',
  'door',
  'mozart',
  'thing',
  'hood',
  'bird',
  'darren',
  'eddie'
)
factor4_neg_weights = c(
  2.8995431862700351e-05,
  2.1199201912162965e-05,
  1.9777657100683297e-05,
  1.5486208200006508e-05,
  1.5371187570891317e-05,
  1.4465465611618761e-05,
  1.2798432195766285e-05,
  1.2464920571576325e-05,
  8.2335216952328939e-06,
  5.003204527181962e-06,
  4.4087144298691816e-06,
  4.0810821752871171e-06,
  3.9940483707984236e-06,
  3.9387068421262233e-06,
  3.3749037050061201e-06,
  3.006659812603895e-06,
  2.1653523656055599e-06,
  1.7777713376808638e-06,
  1.2183004212982441e-06,
  1.1785503716805072e-06,
  1.1493883247007641e-06,
  1.1433173756283984e-06,
  6.1058537891244997e-07,
  5.527908777810032e-07,
  3.0103968543912652e-07,
  2.9832635607419105e-07,
  2.4155199117700592e-07,
  2.3243200111524847e-07,
  2.0389675943345544e-07,
  1.5964518781392708e-07,
  1.5435653850978612e-07,
  1.3611768404726824e-07,
  7.3783733048502964e-08,
  4.3866782986561424e-08,
  1.7895229432269857e-08
)
factor4_pos_words = c(
  'guy',
  'cont',
  'forrest',
  'man',
  'int',
  'sean',
  'later',
  'ext',
  'long',
  'turn',
  'beat',
  'fuck',
  'captain',
  'continuous',
  'sir',
  'shit',
  'fuckin',
  'marine',
  'men',
  'need',
  'kill',
  'tank',
  'naval',
  'weapon',
  'bullet',
  'order',
  'thousand',
  'flashback',
  'company',
  'cronin',
  'technician',
  'motion',
  'target',
  'platoon',
  'rooftop',
  'boston',
  'id',
  'piss',
  'medal',
  'detonator',
  'sentry',
  'maintenance',
  'flank',
  'barrier',
  'cavalry'
)
factor4_pos_weights = c(
  3.1663687331781516e-08,
  3.6312107225375058e-08,
  6.0578400637590138e-08,
  7.4878934941318624e-08,
  8.8488194327845274e-08,
  9.1596067535993727e-08,
  9.1730402808491258e-08,
  1.002451688715616e-07,
  1.0485381501772108e-07,
  1.0586416320595743e-07,
  1.0966580717740331e-07,
  1.3615000689847385e-07,
  1.7668205422211467e-07,
  1.8224907449167016e-07,
  2.1927182737710149e-07,
  2.7875729280566641e-07,
  2.8706284156330456e-07,
  3.5368160066021852e-07,
  3.7262982603544592e-07,
  4.1446721513146114e-07,
  4.3392464146047317e-07,
  4.861756376711918e-07,
  5.2594530099286324e-07,
  6.2842618080448318e-07,
  6.329040680554248e-07,
  7.2307838401835589e-07,
  7.8115492993086985e-07,
  8.3422743001435029e-07,
  9.3707366810141481e-07,
  9.5681262218015897e-07,
  1.0304457779521553e-06,
  1.3181440660352144e-06,
  1.4456562130630905e-06,
  1.467461138678463e-06,
  1.4823936776662594e-06,
  1.5497856110164098e-06,
  1.8737989897178151e-06,
  1.9864599893519134e-06,
  2.1348084024827737e-06,
  2.774935703366808e-06,
  2.9837005715232296e-06,
  3.0450371191292726e-06,
  3.1613502977134304e-06,
  3.973483963067587e-06,
  4.3816570700074558e-06
)


png("images/wordcloud_factor4_neg.png",width=400,height=400)
wordcloud(factor4_neg_words,factor4_neg_weights,colors=reds)
dev.off()
png("images/wordcloud_factor4_pos.png",width=400,height=400)
wordcloud(factor4_pos_words,factor4_pos_weights,colors=blues)
dev.off()