social_words
pre code, pre, code {
white-space: pre !important;
overflow-x: scroll !important;
word-break: keep-all !important;
word-wrap: initial !important;
overflow-x: scroll !important;
}library(readr)
social_words <- read_csv("C:/Users/dasil/Dropbox/social_words/social_words.csv")## Parsed with column specification:
## cols(
## .default = col_character()
## )## See spec(...) for full column specifications.first, let’s see how many rows of data are totally empty: - seems like we are doing ok, 82 with good data?
qa_dat<-subset(social_words[-c(1,2),19:ncol(social_words)])
bad_rows<-apply(qa_dat,1, function (x) sum(is.na(x)))
which(bad_rows == 1840)## [1] 1 2 3 4 11 12 13 14 15 16 17length(which(bad_rows == 1840))## [1] 11library(qdapRegex)## Warning: package 'qdapRegex' was built under R version 3.4.4words_clean<-apply(social_words[1,],2, function (x) rm_between(x, ': - ', '(', extract=TRUE)[[1]] )
swc_temp<-social_words
swc_temp[1,19:ncol(swc_temp)]<-words_clean[19:ncol(swc_temp)]
swc<-swc_temp[c(1,3:nrow(swc_temp)),c(19:ncol(swc_temp))]
colnames(swc)<-swc[1,]
swc<-swc[-1,]
cols = c(1:ncol(swc))
swc[,cols] = apply(swc[,cols], 2, function(x) as.numeric(as.character(x)))
swc_df<-data.frame(colMeans(swc,na.rm=TRUE))
swc_df$names <- rownames(swc_df)
rownames(swc_df)<-NULL
swc_df<-swc_df[,c(2,1)]
colnames(swc_df)[2]<-"mean_rating"social_ratings<-subset(swc_df,grepl("Sociality",swc_df$names) == TRUE)
print(social_ratings)## names mean_rating
## 3 sporty - Sociality 7.028333
## 8 athletic - Sociality 7.623889
## 13 stunning - Sociality 7.950000
## 18 participated - Sociality 8.107222
## 23 funny - Sociality 8.647778
## 28 fashionable - Sociality 8.195000
## 33 encouraged - Sociality 8.318889
## 38 irresistible - Sociality 6.939444
## 43 handsome - Sociality 7.957778
## 48 kindness - Sociality 8.711111
## 53 charming - Sociality 8.459444
## 58 dreamy - Sociality 5.994444
## 63 gracious - Sociality 8.159444
## 68 charismatic - Sociality 8.836111
## 73 affectionate - Sociality 8.621111
## 78 appreciated - Sociality 8.281111
## 83 beautiful - Sociality 8.231111
## 88 sensible - Sociality 6.932222
## 93 exceptional - Sociality 7.600000
## 98 selected - Sociality 6.727222
## 103 glamorous - Sociality 7.912778
## 108 eloquent - Sociality 8.163889
## 113 favored - Sociality 7.254444
## 118 frosting - Sociality 3.928333
## 123 beach - Sociality 6.430556
## 128 sunny - Sociality 5.447778
## 133 passion - Sociality 7.837222
## 138 dessert - Sociality 5.762222
## 143 donation - Sociality 7.494444
## 148 weekend - Sociality 6.838333
## 153 meditation - Sociality 5.125000
## 158 smooth - Sociality 5.322222
## 163 panda - Sociality 2.780556
## 168 lemonade - Sociality 4.457778
## 173 enticing - Sociality 6.811111
## 178 golden - Sociality 4.890000
## 183 balmy - Sociality 3.617778
## 188 fresh - Sociality 4.990556
## 193 sunlight - Sociality 3.417778
## 198 lullaby - Sociality 5.601111
## 203 award - Sociality 7.560000
## 208 delicious - Sociality 6.270000
## 213 victory - Sociality 8.170000
## 218 imagination - Sociality 5.922778
## 223 kitten - Sociality 4.435556
## 228 swimming - Sociality 6.528333
## 233 irresponsible - Sociality 6.119444
## 238 disowned - Sociality 6.900556
## 243 traumatized - Sociality 4.970000
## 248 deceived - Sociality 5.181667
## 253 alienated - Sociality 6.057222
## 258 insecure - Sociality 7.125556
## 263 harmed - Sociality 4.916667
## 268 loathed - Sociality 5.564444
## 273 upset - Sociality 6.020000
## 278 manipulated - Sociality 6.970556
## 283 loser - Sociality 7.307222
## 288 degraded - Sociality 5.931111
## 293 provoked - Sociality 5.682222
## 298 despised - Sociality 5.348333
## 303 discrimination - Sociality 7.563889
## 308 criticized - Sociality 6.541667
## 313 resented - Sociality 6.469444
## 318 belittled - Sociality 6.479444
## 323 mistreated - Sociality 5.940000
## 328 powerless - Sociality 6.291111
## 333 awkward - Sociality 6.216667
## 338 abused - Sociality 5.805000
## 343 helpless - Sociality 5.756111
## 348 upheaval - Sociality 5.433889
## 353 subpoena - Sociality 5.262778
## 358 pest - Sociality 5.458333
## 363 bloody - Sociality 4.573889
## 368 drench - Sociality 3.021667
## 373 nightmare - Sociality 4.315000
## 378 garbage - Sociality 3.807778
## 383 morbid - Sociality 4.421111
## 388 arthritis - Sociality 3.656111
## 393 shoplifting - Sociality 5.335556
## 398 decay - Sociality 2.537222
## 403 dirty - Sociality 3.421667
## 408 casket - Sociality 4.270000
## 413 poison - Sociality 3.490000
## 418 amputation - Sociality 4.093333
## 423 piercing - Sociality 4.746111
## 428 gruesome - Sociality 4.036667
## 433 shark - Sociality 3.685000
## 438 terror - Sociality 4.175556
## 443 tsunami - Sociality 3.595000
## 448 eerie - Sociality 4.633333
## 453 devastation - Sociality 3.882778
## 458 infection - Sociality 3.979444
## 463 approved - Sociality 7.238333
## 468 cherished - Sociality 7.757917
## 473 hopeful - Sociality 7.248750
## 478 considered - Sociality 6.806667
## 483 included - Sociality 8.339583
## 488 cute - Sociality 7.901250
## 493 believed - Sociality 7.725833
## 498 clever - Sociality 7.628333
## 503 understood - Sociality 7.417500
## 508 gifted - Sociality 7.535000
## 513 pleased - Sociality 7.437083
## 518 sought - Sociality 5.690000
## 523 good-looking - Sociality 8.401250
## 528 remarkable - Sociality 6.906667
## 533 outgoing - Sociality 9.223333
## 538 pretty - Sociality 7.620000
## 543 pleasant - Sociality 7.133750
## 548 valued - Sociality 7.799583
## 553 optimist - Sociality 7.897083
## 558 positive - Sociality 7.037917
## 563 famous - Sociality 8.627500
## 568 intelligent - Sociality 7.336667
## 573 confident - Sociality 8.235417
## 578 paycheck - Sociality 6.333333
## 583 butterfly - Sociality 5.102917
## 588 doughnut - Sociality 4.197917
## 593 graduate - Sociality 7.925000
## 598 holiday - Sociality 7.860833
## 603 warmth - Sociality 6.575833
## 608 leisure - Sociality 7.439167
## 613 asset - Sociality 5.282083
## 618 cure - Sociality 5.295000
## 623 minty - Sociality 4.481250
## 628 blossom - Sociality 5.184583
## 633 daydream - Sociality 5.211667
## 638 creamy - Sociality 3.641667
## 643 massage - Sociality 5.660417
## 648 flower - Sociality 5.147917
## 653 aroma - Sociality 4.671667
## 658 gentle - Sociality 7.362083
## 663 coastal - Sociality 4.533750
## 668 television - Sociality 4.899583
## 673 touchdown - Sociality 7.274167
## 678 original - Sociality 6.301667
## 683 seaside - Sociality 4.446667
## 688 valuable - Sociality 6.308750
## 693 unfaithful - Sociality 6.593750
## 698 defenseless - Sociality 6.015833
## 703 detested - Sociality 5.809583
## 708 outcast - Sociality 6.497500
## 713 wished - Sociality 6.337917
## 718 disagreement - Sociality 6.804167
## 723 violated - Sociality 6.030000
## 728 ostracized - Sociality 6.191667
## 733 judged - Sociality 6.568333
## 738 doubted - Sociality 5.725833
## 743 envied - Sociality 7.608333
## 748 loneliness - Sociality 6.022500
## 753 betrayal - Sociality 6.654167
## 758 unpleasant - Sociality 5.207500
## 763 breakup - Sociality 6.553333
## 768 subjected - Sociality 5.745000
## 773 abandoned - Sociality 5.379583
## 778 scorned - Sociality 6.175833
## 783 quarrel - Sociality 6.068750
## 788 incompetence - Sociality 5.730000
## 793 worthless - Sociality 5.337083
## 798 unhappy - Sociality 6.081250
## 803 threatened - Sociality 6.040833
## 808 headache - Sociality 3.952917
## 813 smog - Sociality 2.756250
## 818 curse - Sociality 4.811667
## 823 burglary - Sociality 5.532083
## 828 doom - Sociality 2.953333
## 833 ransom - Sociality 4.482917
## 838 negligence - Sociality 4.831250
## 843 obesity - Sociality 5.843333
## 848 gun - Sociality 4.009167
## 853 deficit - Sociality 3.922917
## 858 dreary - Sociality 3.427500
## 863 poverty - Sociality 6.819167
## 868 tombstone - Sociality 2.892917
## 873 tax - Sociality 3.715000
## 878 suffocation - Sociality 3.639167
## 883 flea - Sociality 2.299167
## 888 sweltering - Sociality 2.837083
## 893 storm - Sociality 3.410000
## 898 demise - Sociality 4.081667
## 903 grave - Sociality 3.735417
## 908 flood - Sociality 2.757917
## 913 penalty - Sociality 4.172083
## 918 cyanide - Sociality 2.190000
## 923 extraordinary - Sociality 7.091364
## 928 loved - Sociality 8.405909
## 933 sociable - Sociality 8.873636
## 938 happy - Sociality 9.040909
## 943 observant - Sociality 7.285909
## 948 needed - Sociality 7.650000
## 953 witty - Sociality 8.096087
## 958 easygoing - Sociality 8.398636
## 963 capable - Sociality 7.576522
## 968 selfless - Sociality 9.056818
## 973 nicest - Sociality 8.720000
## 978 adored - Sociality 8.686087
## 983 giver - Sociality 7.874091
## 988 creative - Sociality 6.888636
## 993 attractive - Sociality 8.952727
## 998 respected - Sociality 8.270000
## 1003 chosen - Sociality 7.594545
## 1008 desired - Sociality 8.335000
## 1013 cheerful - Sociality 7.966818
## 1018 wanted - Sociality 7.705000
## 1023 preferred - Sociality 6.526364
## 1028 sophisticated - Sociality 8.027273
## 1033 succeed - Sociality 8.605000
## 1038 picturesque - Sociality 5.290455
## 1043 puppy - Sociality 5.604545
## 1048 caramelized - Sociality 2.971364
## 1053 serenity - Sociality 5.157391
## 1058 concert - Sociality 7.745909
## 1063 wisdom - Sociality 7.139091
## 1068 gift - Sociality 7.080455
## 1073 payday - Sociality 7.316818
## 1078 flourish - Sociality 7.382727
## 1083 melodic - Sociality 4.564545
## 1088 sunshine - Sociality 4.330909
## 1093 fascination - Sociality 7.144091
## 1098 advancement - Sociality 6.580455
## 1103 barbecue - Sociality 7.377273
## 1108 lush - Sociality 5.473182
## 1113 money - Sociality 7.333182
## 1118 sultry - Sociality 6.790909
## 1123 frosted - Sociality 2.938636
## 1128 crackerjack - Sociality 3.971818
## 1133 aromatic - Sociality 4.797273
## 1138 tropical - Sociality 5.208636
## 1143 freedom - Sociality 8.293636
## 1148 snowflake - Sociality 4.389545
## 1153 misunderstood - Sociality 6.142174
## 1158 unappreciated - Sociality 6.312727
## 1163 corrupted - Sociality 5.264545
## 1168 insulted - Sociality 6.799091
## 1173 enraged - Sociality 5.746364
## 1178 exiled - Sociality 4.910455
## 1183 fail - Sociality 4.969545
## 1188 devastated - Sociality 5.607727
## 1193 targeted - Sociality 5.662174
## 1198 frustrated - Sociality 4.936364
## 1203 rejected - Sociality 6.329545
## 1208 lowlife - Sociality 6.120000
## 1213 tortured - Sociality 4.974091
## 1218 accused - Sociality 6.530909
## 1223 sad - Sociality 6.420000
## 1228 disgusted - Sociality 5.341364
## 1233 confronted - Sociality 6.260909
## 1238 refused - Sociality 4.607727
## 1243 hopeless - Sociality 4.687273
## 1248 heartbroken - Sociality 6.331364
## 1253 jealousy - Sociality 6.917273
## 1258 denied - Sociality 5.147727
## 1263 unattractive - Sociality 6.669091
## 1268 grisly - Sociality 3.215000
## 1273 disease - Sociality 4.507727
## 1278 struggle - Sociality 5.066364
## 1283 bankruptcy - Sociality 3.958636
## 1288 blister - Sociality 3.081818
## 1293 wiretap - Sociality 5.149091
## 1298 traffic - Sociality 4.767391
## 1303 hairball - Sociality 2.059545
## 1308 plague - Sociality 4.482727
## 1313 sour - Sociality 3.982273
## 1318 violent - Sociality 6.490000
## 1323 fake - Sociality 5.904545
## 1328 paralysis - Sociality 3.936364
## 1333 hangover - Sociality 6.507273
## 1338 wither - Sociality 2.889091
## 1343 drowning - Sociality 4.809091
## 1348 pigsty - Sociality 4.835000
## 1353 widower - Sociality 5.370909
## 1358 leech - Sociality 4.600909
## 1363 thorny - Sociality 2.824091
## 1368 drought - Sociality 2.695909
## 1373 frostbite - Sociality 2.569091
## 1378 dusty - Sociality 2.772273
## 1383 approachable - Sociality 9.028824
## 1388 sexy - Sociality 9.430588
## 1393 treasured - Sociality 7.122941
## 1398 intriguing - Sociality 6.213529
## 1403 gorgeous - Sociality 8.500000
## 1408 nice - Sociality 8.240588
## 1413 unique - Sociality 7.045294
## 1418 delighted - Sociality 7.306471
## 1423 popular - Sociality 9.254118
## 1428 achievement - Sociality 8.404706
## 1433 talented - Sociality 8.612353
## 1438 bonded - Sociality 7.617647
## 1443 accepted - Sociality 8.901176
## 1448 loyal - Sociality 9.347059
## 1453 beloved - Sociality 8.432941
## 1458 friendly - Sociality 9.053529
## 1463 hospitable - Sociality 8.688235
## 1468 spunky - Sociality 7.541765
## 1473 perfect - Sociality 7.262353
## 1478 liked - Sociality 8.369412
## 1483 welcomed - Sociality 9.040588
## 1488 flattering - Sociality 8.757059
## 1493 admired - Sociality 8.792941
## 1498 glowing - Sociality 7.350000
## 1503 bake - Sociality 6.120588
## 1508 paradise - Sociality 7.064706
## 1513 zoo - Sociality 6.117647
## 1518 save - Sociality 6.746471
## 1523 jewelry - Sociality 6.295294
## 1528 pizza - Sociality 6.633529
## 1533 tranquil - Sociality 5.341176
## 1538 vacation - Sociality 8.283529
## 1543 entertainment - Sociality 7.944118
## 1548 home - Sociality 7.806471
## 1553 appetizer - Sociality 6.602941
## 1558 magical - Sociality 6.731176
## 1563 promotion - Sociality 8.530588
## 1568 shiny - Sociality 5.187647
## 1573 fudge - Sociality 4.167059
## 1578 intellectual - Sociality 7.501176
## 1583 symphony - Sociality 7.184706
## 1588 magic - Sociality 5.740588
## 1593 peace - Sociality 8.050588
## 1598 bacon - Sociality 5.425882
## 1603 velvety - Sociality 3.790000
## 1608 bargain - Sociality 5.572941
## 1613 pitied - Sociality 6.724706
## 1618 shamed - Sociality 5.151176
## 1623 forbade - Sociality 5.534118
## 1628 pressured - Sociality 7.061765
## 1633 disloyal - Sociality 6.399412
## 1638 terrified - Sociality 6.057059
## 1643 embarrassment - Sociality 6.864706
## 1648 demeaning - Sociality 5.047647
## 1653 disapproved - Sociality 4.860000
## 1658 unsuccessful - Sociality 5.024118
## 1663 harassed - Sociality 5.626471
## 1668 neglected - Sociality 4.878235
## 1673 disliked - Sociality 5.592941
## 1678 interfered - Sociality 4.897059
## 1683 beaten - Sociality 4.495294
## 1688 shunned - Sociality 5.748235
## 1693 spite - Sociality 5.741765
## 1698 blamed - Sociality 5.358235
## 1703 grief - Sociality 6.101765
## 1708 tormented - Sociality 5.092941
## 1713 infuriated - Sociality 6.098824
## 1718 bothered - Sociality 5.360588
## 1723 depressed - Sociality 5.565882
## 1728 chaos - Sociality 5.598824
## 1733 pimple - Sociality 3.107647
## 1738 malnutrition - Sociality 4.067647
## 1743 sue - Sociality 5.871176
## 1748 rancid - Sociality 1.470588
## 1753 hypothermia - Sociality 4.071176
## 1758 outbreak - Sociality 4.338235
## 1763 tragedy - Sociality 5.165294
## 1768 audit - Sociality 4.376471
## 1773 outdated - Sociality 3.210588
## 1778 crash - Sociality 4.187647
## 1783 crisis - Sociality 5.448824
## 1788 bedpan - Sociality 2.528235
## 1793 cripple - Sociality 4.400000
## 1798 accident - Sociality 4.854118
## 1803 sunburn - Sociality 5.237059
## 1808 toxin - Sociality 1.743529
## 1813 sting - Sociality 2.256471
## 1818 sewage - Sociality 1.812941
## 1823 spoil - Sociality 3.979412
## 1828 odor - Sociality 3.994118
## 1833 indigestion - Sociality 3.935882
## 1838 dehydrated - Sociality 2.695882arousal_ratings<-subset(swc_df,grepl("Arousal",swc_df$names) == TRUE)accept.reject_ratings<-subset(swc_df,grepl("Rejection",swc_df$names) == TRUE)Valence_ratings<-subset(swc_df,grepl("Valence",swc_df$names) == TRUE)fam_ratings<-subset(swc_df,grepl("Familiarity",swc_df$names) == TRUE)library(GGally)
ggpairs(data.frame(social_ratings[,2],arousal_ratings[,2],accept.reject_ratings[,2],Valence_ratings[,2],fam_ratings[,2]))