Swearing Culture on Campus
Tyler Bontrager et al
2023-04-26
library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.2.2## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.0 ✔ purrr 1.0.1
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.5.0
## ✔ readr 2.1.3 ✔ forcats 0.5.2## Warning: package 'ggplot2' was built under R version 4.2.2## Warning: package 'tibble' was built under R version 4.2.2## Warning: package 'tidyr' was built under R version 4.2.2## Warning: package 'readr' was built under R version 4.2.2## Warning: package 'purrr' was built under R version 4.2.2## Warning: package 'dplyr' was built under R version 4.2.2## Warning: package 'stringr' was built under R version 4.2.2## Warning: package 'forcats' was built under R version 4.2.2## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()library(skimr)## Warning: package 'skimr' was built under R version 4.2.2library(car)## Warning: package 'car' was built under R version 4.2.3## Loading required package: carData## Warning: package 'carData' was built under R version 4.2.3##
## Attaching package: 'car'
##
## The following object is masked from 'package:dplyr':
##
## recode
##
## The following object is masked from 'package:purrr':
##
## somelibrary(GGally)## Warning: package 'GGally' was built under R version 4.2.3## Registered S3 method overwritten by 'GGally':
## method from
## +.gg ggplot2Import dataset:
ds=read_csv("swearjardata_update.csv")## Rows: 60 Columns: 44
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (27): timestamp, agree, gender, race, origin, major, extracur, Favorite,...
## dbl (17): age, StartAge, IntensityFuck, IntensityShit, IntensityDamn, Intens...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.ds_backup=ds
head(ds)## # A tibble: 6 × 44
## timest…¹ agree gender age race origin major extra…² Favor…³ MostU…⁴ Start…⁵
## <chr> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <dbl>
## 1 3/19/20… I ag… Male 18 Cauc… Calif… Data… Men's … "\"fuc… "\"shi… 14
## 2 3/19/20… I ag… Male 20 Cauc… Washi… Busi… Men's … "\"fuc… "\"fuc… 8
## 3 3/19/20… I ag… Male 20 Asia… Washi… Exer… Men's … "\"fuc… "\"fuc… 13
## 4 3/19/20… I ag… Male 21 Cauc… Calif… Exer… Men's … "\"bit… "\"fuc… 10
## 5 3/19/20… I ag… Male 21 Viet… Vietn… Exer… Men’s … "\"fuc… "\"shi… 10
## 6 3/19/20… I ag… Male 19 Cauc… Calif… Busi… Men’s … "\"shi… "\"shi… 10
## # … with 33 more variables: PerDayFuck <chr>, PerDayShit <chr>,
## # PerDayDamn <chr>, PerDayBitch <chr>, PerDayAss <chr>, IntensityFuck <dbl>,
## # IntensityShit <dbl>, IntensityDamn <dbl>, IntensityBitch <dbl>,
## # IntensityAss <dbl>, Comfort1 <chr>, Comfort2 <chr>, Comfort3 <chr>,
## # LeastComfort1 <chr>, LeastComfort2 <chr>, LeastComfort3 <chr>,
## # SwearAround <chr>, AreaObserved1 <chr>, AreaObserved2 <chr>,
## # AreaObserved3 <chr>, PeopleObserved1 <chr>, PeopleObserved2 <chr>, …tail(ds)## # A tibble: 6 × 44
## timest…¹ agree gender age race origin major extra…² Favor…³ MostU…⁴ Start…⁵
## <chr> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <dbl>
## 1 4/10/20… I ag… Female 18 Cauc… Calif… Comp… Music "\"dam… "\"shi… 12
## 2 4/10/20… I ag… Female 18 Cauc… Washi… Psyc… <NA> "\"dam… "\"dam… 16
## 3 4/10/20… I ag… Female 19 Cauc… Calif… <NA> <NA> "\"fuc… "\"fuc… 15
## 4 4/10/20… I ag… Female 18 Cauc… Color… Psyc… Music "\"dam… "\"dam… 17
## 5 4/10/20… I ag… Female 19 Cauc… Arizo… Comp… Music,… "\"fuc… "\"fuc… 18
## 6 4/10/20… I ag… Male 19 Midd… Calif… Exer… <NA> "\"dam… "\"dam… 11
## # … with 33 more variables: PerDayFuck <chr>, PerDayShit <chr>,
## # PerDayDamn <chr>, PerDayBitch <chr>, PerDayAss <chr>, IntensityFuck <dbl>,
## # IntensityShit <dbl>, IntensityDamn <dbl>, IntensityBitch <dbl>,
## # IntensityAss <dbl>, Comfort1 <chr>, Comfort2 <chr>, Comfort3 <chr>,
## # LeastComfort1 <chr>, LeastComfort2 <chr>, LeastComfort3 <chr>,
## # SwearAround <chr>, AreaObserved1 <chr>, AreaObserved2 <chr>,
## # AreaObserved3 <chr>, PeopleObserved1 <chr>, PeopleObserved2 <chr>, …##EDA:
Race:
ds %>%
ggplot(aes(x=race))+
geom_histogram(stat="count")+
ggtitle("Race Chart")+
xlab("Race")+
ylab("Count")+
theme_minimal()+
coord_flip()## Warning in geom_histogram(stat = "count"): Ignoring unknown parameters:
## `binwidth`, `bins`, and `pad`
ds %>%
group_by(race) %>%
summarize(n=n())## # A tibble: 12 × 2
## race n
## <chr> <int>
## 1 African-American 2
## 2 Asian/Pacific Islander 3
## 3 Asian/Pacific Islander, American Indian or Alaskan Native 1
## 4 Caucasian 36
## 5 Caucasian, African-American 1
## 6 Caucasian, Asian/Pacific Islander 6
## 7 Caucasian, Hispanic 4
## 8 Caucasian, Jewish 1
## 9 Hispanic 3
## 10 Hispanic, American Indian or Alaskan Native 1
## 11 Middle eastern 1
## 12 Vietnamese 1ds %>%
mutate(Caucasian = ds$race=="Caucasian",
MixedOrNotCaucasian = ds$race!="Caucasian") %>%
select(Caucasian,MixedOrNotCaucasian) %>%
group_by(Caucasian,MixedOrNotCaucasian) %>%
summarize(n=n())## `summarise()` has grouped output by 'Caucasian'. You can override using the
## `.groups` argument.## # A tibble: 2 × 3
## # Groups: Caucasian [2]
## Caucasian MixedOrNotCaucasian n
## <lgl> <lgl> <int>
## 1 FALSE TRUE 24
## 2 TRUE FALSE 36#adding pnw column
ds = ds %>%
mutate(ispnw = (ds$origin=="Oregon"|ds$origin=="California"|ds$origin=="Washington"))
#fun command I just learned
by(ds,ds$race,summary)## ds$race: African-American
## timestamp agree gender age
## Length:2 Length:2 Length:2 Min. :18.00
## Class :character Class :character Class :character 1st Qu.:18.25
## Mode :character Mode :character Mode :character Median :18.50
## Mean :18.50
## 3rd Qu.:18.75
## Max. :19.00
## race origin major extracur
## Length:2 Length:2 Length:2 Length:2
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:2 Length:2 Min. :13 Length:2
## Class :character Class :character 1st Qu.:14 Class :character
## Mode :character Mode :character Median :15 Mode :character
## Mean :15
## 3rd Qu.:16
## Max. :17
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:2 Length:2 Length:2 Length:2
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :4 Min. :3 Min. :1 Min. :1.00 Min. :0
## 1st Qu.:4 1st Qu.:3 1st Qu.:1 1st Qu.:1.25 1st Qu.:0
## Median :4 Median :3 Median :1 Median :1.50 Median :0
## Mean :4 Mean :3 Mean :1 Mean :1.50 Mean :0
## 3rd Qu.:4 3rd Qu.:3 3rd Qu.:1 3rd Qu.:1.75 3rd Qu.:0
## Max. :4 Max. :3 Max. :1 Max. :2.00 Max. :0
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:2 Length:2 Length:2 Length:2
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:2 Length:2 Length:2 Length:2
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:2 Length:2 Length:2 Length:2
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:2 Min. :1.01 Min. :0.77 Min. :0.29 Min. :0.29
## Class :character 1st Qu.:1.01 1st Qu.:0.77 1st Qu.:0.29 1st Qu.:0.35
## Mode :character Median :1.01 Median :0.77 Median :0.29 Median :0.41
## Mean :1.01 Mean :0.77 Mean :0.29 Mean :0.41
## 3rd Qu.:1.01 3rd Qu.:0.77 3rd Qu.:0.29 3rd Qu.:0.47
## Max. :1.01 Max. :0.77 Max. :0.29 Max. :0.53
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.05 Min. : 4 Min. : 4.00 Min. : 2.0 Min. : 0
## 1st Qu.:0.05 1st Qu.: 8 1st Qu.: 8.75 1st Qu.: 7.5 1st Qu.: 6
## Median :0.05 Median :12 Median :13.50 Median :13.0 Median :12
## Mean :0.05 Mean :12 Mean :13.50 Mean :13.0 Mean :12
## 3rd Qu.:0.05 3rd Qu.:16 3rd Qu.:18.25 3rd Qu.:18.5 3rd Qu.:18
## Max. :0.05 Max. :20 Max. :23.00 Max. :24.0 Max. :24
## PerDayAssmod ispnw
## Min. :1.0 Mode:logical
## 1st Qu.:1.5 TRUE:2
## Median :2.0
## Mean :2.0
## 3rd Qu.:2.5
## Max. :3.0
## ------------------------------------------------------------
## ds$race: Asian/Pacific Islander
## timestamp agree gender age
## Length:3 Length:3 Length:3 Min. :18.00
## Class :character Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Mode :character Median :20.00
## Mean :19.33
## 3rd Qu.:20.00
## Max. :20.00
## race origin major extracur
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:3 Length:3 Min. :14.0 Length:3
## Class :character Class :character 1st Qu.:14.5 Class :character
## Mode :character Mode :character Median :15.0 Mode :character
## Mean :15.0
## 3rd Qu.:15.5
## Max. :16.0
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :3.000 Min. :2 Min. :0.0 Min. :1.0 Min. :0.0000
## 1st Qu.:3.000 1st Qu.:2 1st Qu.:0.5 1st Qu.:1.5 1st Qu.:0.5000
## Median :3.000 Median :2 Median :1.0 Median :2.0 Median :1.0000
## Mean :3.333 Mean :2 Mean :1.0 Mean :2.0 Mean :0.6667
## 3rd Qu.:3.500 3rd Qu.:2 3rd Qu.:1.5 3rd Qu.:2.5 3rd Qu.:1.0000
## Max. :4.000 Max. :2 Max. :2.0 Max. :3.0 Max. :1.0000
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:3 Min. :0.77 Min. :0.53 Min. :0.05 Min. :0.29
## Class :character 1st Qu.:0.77 1st Qu.:0.53 1st Qu.:0.17 1st Qu.:0.41
## Mode :character Median :0.77 Median :0.53 Median :0.29 Median :0.53
## Mean :0.85 Mean :0.53 Mean :0.29 Mean :0.53
## 3rd Qu.:0.89 3rd Qu.:0.53 3rd Qu.:0.41 3rd Qu.:0.65
## Max. :1.01 Max. :0.53 Max. :0.53 Max. :0.77
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.05 Min. : 3.000 Min. : 4.000 Min. :0.0 Min. :0.000
## 1st Qu.:0.17 1st Qu.: 5.500 1st Qu.: 6.000 1st Qu.:2.0 1st Qu.:0.500
## Median :0.29 Median : 8.000 Median : 8.000 Median :4.0 Median :1.000
## Mean :0.21 Mean : 9.333 Mean : 9.333 Mean :3.0 Mean :1.333
## 3rd Qu.:0.29 3rd Qu.:12.500 3rd Qu.:12.000 3rd Qu.:4.5 3rd Qu.:2.000
## Max. :0.29 Max. :17.000 Max. :16.000 Max. :5.0 Max. :3.000
## PerDayAssmod ispnw
## Min. :1.000 Mode :logical
## 1st Qu.:1.500 FALSE:2
## Median :2.000 TRUE :1
## Mean :2.333
## 3rd Qu.:3.000
## Max. :4.000
## ------------------------------------------------------------
## ds$race: Asian/Pacific Islander, American Indian or Alaskan Native
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :20
## Class :character Class :character Class :character 1st Qu.:20
## Mode :character Mode :character Mode :character Median :20
## Mean :20
## 3rd Qu.:20
## Max. :20
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :13 Length:1
## Class :character Class :character 1st Qu.:13 Class :character
## Mode :character Mode :character Median :13 Mode :character
## Mean :13
## 3rd Qu.:13
## Max. :13
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :3 Min. :2 Min. :1 Min. :4 Min. :1
## 1st Qu.:3 1st Qu.:2 1st Qu.:1 1st Qu.:4 1st Qu.:1
## Median :3 Median :2 Median :1 Median :4 Median :1
## Mean :3 Mean :2 Mean :1 Mean :4 Mean :1
## 3rd Qu.:3 3rd Qu.:2 3rd Qu.:1 3rd Qu.:4 3rd Qu.:1
## Max. :3 Max. :2 Max. :1 Max. :4 Max. :1
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :0.77 Min. :0.53 Min. :0.29 Min. :1.01
## Class :character 1st Qu.:0.77 1st Qu.:0.53 1st Qu.:0.29 1st Qu.:1.01
## Mode :character Median :0.77 Median :0.53 Median :0.29 Median :1.01
## Mean :0.77 Mean :0.53 Mean :0.29 Mean :1.01
## 3rd Qu.:0.77 3rd Qu.:0.53 3rd Qu.:0.29 3rd Qu.:1.01
## Max. :0.77 Max. :0.53 Max. :0.29 Max. :1.01
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.29 Min. :5 Min. :4 Min. :10 Min. :1
## 1st Qu.:0.29 1st Qu.:5 1st Qu.:4 1st Qu.:10 1st Qu.:1
## Median :0.29 Median :5 Median :4 Median :10 Median :1
## Mean :0.29 Mean :5 Mean :4 Mean :10 Mean :1
## 3rd Qu.:0.29 3rd Qu.:5 3rd Qu.:4 3rd Qu.:10 3rd Qu.:1
## Max. :0.29 Max. :5 Max. :4 Max. :10 Max. :1
## PerDayAssmod ispnw
## Min. :2 Mode:logical
## 1st Qu.:2 TRUE:1
## Median :2
## Mean :2
## 3rd Qu.:2
## Max. :2
## ------------------------------------------------------------
## ds$race: Caucasian
## timestamp agree gender age
## Length:36 Length:36 Length:36 Min. :18.00
## Class :character Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Mode :character Median :19.00
## Mean :19.33
## 3rd Qu.:20.00
## Max. :22.00
##
## race origin major extracur
## Length:36 Length:36 Length:36 Length:36
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:36 Length:36 Min. : 8.00 Length:36
## Class :character Class :character 1st Qu.:11.00 Class :character
## Mode :character Mode :character Median :14.00 Mode :character
## Mean :13.47
## 3rd Qu.:16.00
## Max. :19.00
## NA's :3
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:36 Length:36 Length:36 Length:36
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :0.000 Min. :0.000 Min. :0.0 Min. :0.000 Min. :0.0000
## 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:0.0 1st Qu.:2.000 1st Qu.:0.0000
## Median :2.000 Median :1.000 Median :0.0 Median :3.000 Median :0.0000
## Mean :2.229 Mean :1.343 Mean :0.5 Mean :2.444 Mean :0.7143
## 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:1.0 3rd Qu.:3.000 3rd Qu.:1.0000
## Max. :4.000 Max. :3.000 Max. :4.0 Max. :4.000 Max. :3.0000
## NA's :1 NA's :1 NA's :2 NA's :1
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:36 Length:36 Length:36 Length:36
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:36 Length:36 Length:36 Length:36
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:36 Length:36 Length:36 Length:36
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD
## Length:36 Min. :0.05 Min. :0.0500 Min. :0.0500
## Class :character 1st Qu.:0.29 1st Qu.:0.2300 1st Qu.:0.0500
## Mode :character Median :0.53 Median :0.2900 Median :0.0500
## Mean :0.57 Mean :0.3633 Mean :0.1633
## 3rd Qu.:0.77 3rd Qu.:0.5300 3rd Qu.:0.2900
## Max. :1.01 Max. :0.7700 Max. :1.0100
##
## MoneyB MoneyA PerDayFuckmod PerDayShitmod
## Min. :0.0500 Min. :0.0500 Min. : 0.00 Min. : 0.000
## 1st Qu.:0.5300 1st Qu.:0.0500 1st Qu.: 3.00 1st Qu.: 2.000
## Median :0.7700 Median :0.0500 Median : 9.00 Median : 5.500
## Mean :0.6367 Mean :0.2167 Mean :10.56 Mean : 8.472
## 3rd Qu.:0.7700 3rd Qu.:0.2900 3rd Qu.:19.00 3rd Qu.:14.000
## Max. :1.0100 Max. :0.7700 Max. :25.00 Max. :25.000
##
## PerDayDamnmod PerDayBitchmod PerDayAssmod ispnw
## Min. : 0.000 Min. : 0.000 Min. : 0.000 Mode :logical
## 1st Qu.: 2.750 1st Qu.: 0.000 1st Qu.: 1.000 FALSE:9
## Median : 5.500 Median : 2.000 Median : 3.000 TRUE :26
## Mean : 7.833 Mean : 5.278 Mean : 4.056 NA's :1
## 3rd Qu.:14.250 3rd Qu.: 5.250 3rd Qu.: 5.250
## Max. :24.000 Max. :23.000 Max. :18.000
##
## ------------------------------------------------------------
## ds$race: Caucasian, African-American
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :19
## Class :character Class :character Class :character 1st Qu.:19
## Mode :character Mode :character Mode :character Median :19
## Mean :19
## 3rd Qu.:19
## Max. :19
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :18 Length:1
## Class :character Class :character 1st Qu.:18 Class :character
## Mode :character Mode :character Median :18 Mode :character
## Mean :18
## 3rd Qu.:18
## Max. :18
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :3 Min. :3 Min. :0 Min. :2 Min. :1
## 1st Qu.:3 1st Qu.:3 1st Qu.:0 1st Qu.:2 1st Qu.:1
## Median :3 Median :3 Median :0 Median :2 Median :1
## Mean :3 Mean :3 Mean :0 Mean :2 Mean :1
## 3rd Qu.:3 3rd Qu.:3 3rd Qu.:0 3rd Qu.:2 3rd Qu.:1
## Max. :3 Max. :3 Max. :0 Max. :2 Max. :1
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :0.77 Min. :0.77 Min. :0.05 Min. :0.53
## Class :character 1st Qu.:0.77 1st Qu.:0.77 1st Qu.:0.05 1st Qu.:0.53
## Mode :character Median :0.77 Median :0.77 Median :0.05 Median :0.53
## Mean :0.77 Mean :0.77 Mean :0.05 Mean :0.53
## 3rd Qu.:0.77 3rd Qu.:0.77 3rd Qu.:0.05 3rd Qu.:0.53
## Max. :0.77 Max. :0.77 Max. :0.05 Max. :0.53
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.29 Min. :15 Min. :19 Min. :10 Min. :2
## 1st Qu.:0.29 1st Qu.:15 1st Qu.:19 1st Qu.:10 1st Qu.:2
## Median :0.29 Median :15 Median :19 Median :10 Median :2
## Mean :0.29 Mean :15 Mean :19 Mean :10 Mean :2
## 3rd Qu.:0.29 3rd Qu.:15 3rd Qu.:19 3rd Qu.:10 3rd Qu.:2
## Max. :0.29 Max. :15 Max. :19 Max. :10 Max. :2
## PerDayAssmod ispnw
## Min. :10 Mode :logical
## 1st Qu.:10 FALSE:1
## Median :10
## Mean :10
## 3rd Qu.:10
## Max. :10
## ------------------------------------------------------------
## ds$race: Caucasian, Asian/Pacific Islander
## timestamp agree gender age
## Length:6 Length:6 Length:6 Min. :18.00
## Class :character Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Mode :character Median :19.50
## Mean :19.67
## 3rd Qu.:20.75
## Max. :21.00
## race origin major extracur
## Length:6 Length:6 Length:6 Length:6
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:6 Length:6 Min. :12.00 Length:6
## Class :character Class :character 1st Qu.:12.25 Class :character
## Mode :character Mode :character Median :13.00 Mode :character
## Mean :13.17
## 3rd Qu.:13.75
## Max. :15.00
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:6 Length:6 Length:6 Length:6
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch
## Min. :0.00 Min. :1.000 Min. :0.0000 Min. :1.0
## 1st Qu.:1.25 1st Qu.:1.000 1st Qu.:0.0000 1st Qu.:2.0
## Median :2.00 Median :1.000 Median :0.0000 Median :2.5
## Mean :2.00 Mean :1.333 Mean :0.1667 Mean :2.5
## 3rd Qu.:2.75 3rd Qu.:1.750 3rd Qu.:0.0000 3rd Qu.:3.0
## Max. :4.00 Max. :2.000 Max. :1.0000 Max. :4.0
## IntensityAss Comfort1 Comfort2 Comfort3
## Min. :0.0000 Length:6 Length:6 Length:6
## 1st Qu.:0.0000 Class :character Class :character Class :character
## Median :0.0000 Mode :character Mode :character Mode :character
## Mean :0.6667
## 3rd Qu.:0.7500
## Max. :3.0000
## LeastComfort1 LeastComfort2 LeastComfort3 SwearAround
## Length:6 Length:6 Length:6 Length:6
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved1 AreaObserved2 AreaObserved3 PeopleObserved1
## Length:6 Length:6 Length:6 Length:6
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved2 PeopleObserved3 MoneyF MoneyS
## Length:6 Length:6 Min. :0.05 Min. :0.29
## Class :character Class :character 1st Qu.:0.35 1st Qu.:0.29
## Mode :character Mode :character Median :0.53 Median :0.29
## Mean :0.53 Mean :0.37
## 3rd Qu.:0.71 3rd Qu.:0.47
## Max. :1.01 Max. :0.53
## MoneyD MoneyB MoneyA PerDayFuckmod PerDayShitmod
## Min. :0.05 Min. :0.29 Min. :0.05 Min. : 1.000 Min. : 1.000
## 1st Qu.:0.05 1st Qu.:0.53 1st Qu.:0.05 1st Qu.: 6.000 1st Qu.: 2.000
## Median :0.05 Median :0.65 Median :0.05 Median : 7.000 Median : 4.000
## Mean :0.09 Mean :0.65 Mean :0.21 Mean : 7.667 Mean : 4.667
## 3rd Qu.:0.05 3rd Qu.:0.77 3rd Qu.:0.23 3rd Qu.: 9.500 3rd Qu.: 6.000
## Max. :0.29 Max. :1.01 Max. :0.77 Max. :15.000 Max. :11.000
## PerDayDamnmod PerDayBitchmod PerDayAssmod ispnw
## Min. : 3.0 Min. :0 Min. :1.000 Mode :logical
## 1st Qu.: 5.0 1st Qu.:3 1st Qu.:3.000 FALSE:4
## Median : 5.5 Median :3 Median :4.000 TRUE :2
## Mean : 7.0 Mean :3 Mean :4.333
## 3rd Qu.: 6.0 3rd Qu.:3 3rd Qu.:5.750
## Max. :17.0 Max. :6 Max. :8.000
## ------------------------------------------------------------
## ds$race: Caucasian, Hispanic
## timestamp agree gender age
## Length:4 Length:4 Length:4 Min. :19.00
## Class :character Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Mode :character Median :19.00
## Mean :19.25
## 3rd Qu.:19.25
## Max. :20.00
##
## race origin major extracur
## Length:4 Length:4 Length:4 Length:4
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:4 Length:4 Min. :10.0 Length:4
## Class :character Class :character 1st Qu.:11.5 Class :character
## Mode :character Mode :character Median :13.0 Mode :character
## Mean :12.5
## 3rd Qu.:14.0
## Max. :14.0
##
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:4 Length:4 Length:4 Length:4
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :2.000 Min. :1.0 Min. :0 Min. :1.000 Min. :0.000
## 1st Qu.:2.500 1st Qu.:1.5 1st Qu.:0 1st Qu.:2.000 1st Qu.:1.000
## Median :3.000 Median :2.0 Median :0 Median :3.000 Median :2.000
## Mean :2.667 Mean :2.0 Mean :0 Mean :2.333 Mean :1.333
## 3rd Qu.:3.000 3rd Qu.:2.5 3rd Qu.:0 3rd Qu.:3.000 3rd Qu.:2.000
## Max. :3.000 Max. :3.0 Max. :0 Max. :3.000 Max. :2.000
## NA's :1 NA's :1 NA's :1 NA's :1 NA's :1
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:4 Length:4 Length:4 Length:4
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:4 Length:4 Length:4 Length:4
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:4 Length:4 Length:4 Length:4
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:4 Min. :0.05 Min. :0.05 Min. :0.05 Min. :0.05
## Class :character 1st Qu.:0.41 1st Qu.:0.23 1st Qu.:0.05 1st Qu.:0.23
## Mode :character Median :0.65 Median :0.41 Median :0.05 Median :0.53
## Mean :0.53 Mean :0.41 Mean :0.05 Mean :0.47
## 3rd Qu.:0.77 3rd Qu.:0.59 3rd Qu.:0.05 3rd Qu.:0.77
## Max. :0.77 Max. :0.77 Max. :0.05 Max. :0.77
##
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.05 Min. : 1.0 Min. : 4.0 Min. :0.000 Min. :2.000
## 1st Qu.:0.05 1st Qu.: 7.0 1st Qu.: 9.0 1st Qu.:4.000 1st Qu.:2.000
## Median :0.29 Median :13.0 Median :14.0 Median :8.000 Median :2.000
## Mean :0.29 Mean :12.0 Mean :11.0 Mean :5.667 Mean :4.333
## 3rd Qu.:0.53 3rd Qu.:17.5 3rd Qu.:14.5 3rd Qu.:8.500 3rd Qu.:5.500
## Max. :0.53 Max. :22.0 Max. :15.0 Max. :9.000 Max. :9.000
## NA's :1 NA's :1 NA's :1 NA's :1
## PerDayAssmod ispnw
## Min. : 0 Mode:logical
## 1st Qu.: 1 TRUE:3
## Median : 2 NA's:1
## Mean : 4
## 3rd Qu.: 6
## Max. :10
## NA's :1
## ------------------------------------------------------------
## ds$race: Caucasian, Jewish
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :18
## Class :character Class :character Class :character 1st Qu.:18
## Mode :character Mode :character Mode :character Median :18
## Mean :18
## 3rd Qu.:18
## Max. :18
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :17 Length:1
## Class :character Class :character 1st Qu.:17 Class :character
## Mode :character Mode :character Median :17 Mode :character
## Mean :17
## 3rd Qu.:17
## Max. :17
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :1 Min. :1 Min. :0 Min. :1 Min. :1
## 1st Qu.:1 1st Qu.:1 1st Qu.:0 1st Qu.:1 1st Qu.:1
## Median :1 Median :1 Median :0 Median :1 Median :1
## Mean :1 Mean :1 Mean :0 Mean :1 Mean :1
## 3rd Qu.:1 3rd Qu.:1 3rd Qu.:0 3rd Qu.:1 3rd Qu.:1
## Max. :1 Max. :1 Max. :0 Max. :1 Max. :1
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :0.29 Min. :0.29 Min. :0.05 Min. :0.29
## Class :character 1st Qu.:0.29 1st Qu.:0.29 1st Qu.:0.05 1st Qu.:0.29
## Mode :character Median :0.29 Median :0.29 Median :0.05 Median :0.29
## Mean :0.29 Mean :0.29 Mean :0.05 Mean :0.29
## 3rd Qu.:0.29 3rd Qu.:0.29 3rd Qu.:0.05 3rd Qu.:0.29
## Max. :0.29 Max. :0.29 Max. :0.05 Max. :0.29
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.29 Min. :1 Min. :0 Min. :10 Min. :4
## 1st Qu.:0.29 1st Qu.:1 1st Qu.:0 1st Qu.:10 1st Qu.:4
## Median :0.29 Median :1 Median :0 Median :10 Median :4
## Mean :0.29 Mean :1 Mean :0 Mean :10 Mean :4
## 3rd Qu.:0.29 3rd Qu.:1 3rd Qu.:0 3rd Qu.:10 3rd Qu.:4
## Max. :0.29 Max. :1 Max. :0 Max. :10 Max. :4
## PerDayAssmod ispnw
## Min. :0 Mode :logical
## 1st Qu.:0 FALSE:1
## Median :0
## Mean :0
## 3rd Qu.:0
## Max. :0
## ------------------------------------------------------------
## ds$race: Hispanic
## timestamp agree gender age
## Length:3 Length:3 Length:3 Min. :19.00
## Class :character Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Mode :character Median :19.00
## Mean :19.67
## 3rd Qu.:20.00
## Max. :21.00
## race origin major extracur
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:3 Length:3 Min. :10.00 Length:3
## Class :character Class :character 1st Qu.:11.50 Class :character
## Mode :character Mode :character Median :13.00 Mode :character
## Mean :13.67
## 3rd Qu.:15.50
## Max. :18.00
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :1.000 Min. :1.000 Min. :0 Min. :1.000 Min. :0.0000
## 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:0 1st Qu.:2.000 1st Qu.:0.0000
## Median :3.000 Median :1.000 Median :0 Median :3.000 Median :0.0000
## Mean :2.333 Mean :1.333 Mean :0 Mean :2.333 Mean :0.3333
## 3rd Qu.:3.000 3rd Qu.:1.500 3rd Qu.:0 3rd Qu.:3.000 3rd Qu.:0.5000
## Max. :3.000 Max. :2.000 Max. :0 Max. :3.000 Max. :1.0000
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:3 Length:3 Length:3 Length:3
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:3 Min. :0.29 Min. :0.29 Min. :0.05 Min. :0.29
## Class :character 1st Qu.:0.53 1st Qu.:0.29 1st Qu.:0.05 1st Qu.:0.53
## Mode :character Median :0.77 Median :0.29 Median :0.05 Median :0.77
## Mean :0.61 Mean :0.37 Mean :0.05 Mean :0.61
## 3rd Qu.:0.77 3rd Qu.:0.41 3rd Qu.:0.05 3rd Qu.:0.77
## Max. :0.77 Max. :0.53 Max. :0.05 Max. :0.77
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod
## Min. :0.05 Min. : 2.000 Min. :2.000 Min. :2.000
## 1st Qu.:0.05 1st Qu.: 2.500 1st Qu.:2.000 1st Qu.:2.000
## Median :0.05 Median : 3.000 Median :2.000 Median :2.000
## Mean :0.13 Mean : 9.667 Mean :2.667 Mean :3.667
## 3rd Qu.:0.17 3rd Qu.:13.500 3rd Qu.:3.000 3rd Qu.:4.500
## Max. :0.29 Max. :24.000 Max. :4.000 Max. :7.000
## PerDayBitchmod PerDayAssmod ispnw
## Min. :0.000 Min. :3.0 Mode :logical
## 1st Qu.:3.500 1st Qu.:3.5 FALSE:1
## Median :7.000 Median :4.0 TRUE :2
## Mean :5.333 Mean :4.0
## 3rd Qu.:8.000 3rd Qu.:4.5
## Max. :9.000 Max. :5.0
## ------------------------------------------------------------
## ds$race: Hispanic, American Indian or Alaskan Native
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :19
## Class :character Class :character Class :character 1st Qu.:19
## Mode :character Mode :character Mode :character Median :19
## Mean :19
## 3rd Qu.:19
## Max. :19
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :18 Length:1
## Class :character Class :character 1st Qu.:18 Class :character
## Mode :character Mode :character Median :18 Mode :character
## Mean :18
## 3rd Qu.:18
## Max. :18
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :3 Min. :2 Min. :1 Min. :1 Min. :0
## 1st Qu.:3 1st Qu.:2 1st Qu.:1 1st Qu.:1 1st Qu.:0
## Median :3 Median :2 Median :1 Median :1 Median :0
## Mean :3 Mean :2 Mean :1 Mean :1 Mean :0
## 3rd Qu.:3 3rd Qu.:2 3rd Qu.:1 3rd Qu.:1 3rd Qu.:0
## Max. :3 Max. :2 Max. :1 Max. :1 Max. :0
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :0.77 Min. :0.53 Min. :0.29 Min. :0.29
## Class :character 1st Qu.:0.77 1st Qu.:0.53 1st Qu.:0.29 1st Qu.:0.29
## Mode :character Median :0.77 Median :0.53 Median :0.29 Median :0.29
## Mean :0.77 Mean :0.53 Mean :0.29 Mean :0.29
## 3rd Qu.:0.77 3rd Qu.:0.53 3rd Qu.:0.29 3rd Qu.:0.29
## Max. :0.77 Max. :0.53 Max. :0.29 Max. :0.29
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.05 Min. :5 Min. :9 Min. :5 Min. :0
## 1st Qu.:0.05 1st Qu.:5 1st Qu.:9 1st Qu.:5 1st Qu.:0
## Median :0.05 Median :5 Median :9 Median :5 Median :0
## Mean :0.05 Mean :5 Mean :9 Mean :5 Mean :0
## 3rd Qu.:0.05 3rd Qu.:5 3rd Qu.:9 3rd Qu.:5 3rd Qu.:0
## Max. :0.05 Max. :5 Max. :9 Max. :5 Max. :0
## PerDayAssmod ispnw
## Min. :0 Mode :logical
## 1st Qu.:0 FALSE:1
## Median :0
## Mean :0
## 3rd Qu.:0
## Max. :0
## ------------------------------------------------------------
## ds$race: Middle eastern
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :19
## Class :character Class :character Class :character 1st Qu.:19
## Mode :character Mode :character Mode :character Median :19
## Mean :19
## 3rd Qu.:19
## Max. :19
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :11 Length:1
## Class :character Class :character 1st Qu.:11 Class :character
## Mode :character Mode :character Median :11 Mode :character
## Mean :11
## 3rd Qu.:11
## Max. :11
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :1 Min. :2 Min. :0 Min. :3 Min. :0
## 1st Qu.:1 1st Qu.:2 1st Qu.:0 1st Qu.:3 1st Qu.:0
## Median :1 Median :2 Median :0 Median :3 Median :0
## Mean :1 Mean :2 Mean :0 Mean :3 Mean :0
## 3rd Qu.:1 3rd Qu.:2 3rd Qu.:0 3rd Qu.:3 3rd Qu.:0
## Max. :1 Max. :2 Max. :0 Max. :3 Max. :0
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :0.29 Min. :0.53 Min. :0.05 Min. :0.77
## Class :character 1st Qu.:0.29 1st Qu.:0.53 1st Qu.:0.05 1st Qu.:0.77
## Mode :character Median :0.29 Median :0.53 Median :0.05 Median :0.77
## Mean :0.29 Mean :0.53 Mean :0.05 Mean :0.77
## 3rd Qu.:0.29 3rd Qu.:0.53 3rd Qu.:0.05 3rd Qu.:0.77
## Max. :0.29 Max. :0.53 Max. :0.05 Max. :0.77
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.05 Min. :23 Min. :1 Min. :23 Min. :2
## 1st Qu.:0.05 1st Qu.:23 1st Qu.:1 1st Qu.:23 1st Qu.:2
## Median :0.05 Median :23 Median :1 Median :23 Median :2
## Mean :0.05 Mean :23 Mean :1 Mean :23 Mean :2
## 3rd Qu.:0.05 3rd Qu.:23 3rd Qu.:1 3rd Qu.:23 3rd Qu.:2
## Max. :0.05 Max. :23 Max. :1 Max. :23 Max. :2
## PerDayAssmod ispnw
## Min. :5 Mode:logical
## 1st Qu.:5 TRUE:1
## Median :5
## Mean :5
## 3rd Qu.:5
## Max. :5
## ------------------------------------------------------------
## ds$race: Vietnamese
## timestamp agree gender age
## Length:1 Length:1 Length:1 Min. :21
## Class :character Class :character Class :character 1st Qu.:21
## Mode :character Mode :character Mode :character Median :21
## Mean :21
## 3rd Qu.:21
## Max. :21
## race origin major extracur
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## Favorite MostUsed StartAge PerDayFuck
## Length:1 Length:1 Min. :10 Length:1
## Class :character Class :character 1st Qu.:10 Class :character
## Mode :character Mode :character Median :10 Mode :character
## Mean :10
## 3rd Qu.:10
## Max. :10
## PerDayShit PerDayDamn PerDayBitch PerDayAss
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## IntensityFuck IntensityShit IntensityDamn IntensityBitch IntensityAss
## Min. :4 Min. :0 Min. :0 Min. :2 Min. :2
## 1st Qu.:4 1st Qu.:0 1st Qu.:0 1st Qu.:2 1st Qu.:2
## Median :4 Median :0 Median :0 Median :2 Median :2
## Mean :4 Mean :0 Mean :0 Mean :2 Mean :2
## 3rd Qu.:4 3rd Qu.:0 3rd Qu.:0 3rd Qu.:2 3rd Qu.:2
## Max. :4 Max. :0 Max. :0 Max. :2 Max. :2
## Comfort1 Comfort2 Comfort3 LeastComfort1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## LeastComfort2 LeastComfort3 SwearAround AreaObserved1
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## AreaObserved2 AreaObserved3 PeopleObserved1 PeopleObserved2
## Length:1 Length:1 Length:1 Length:1
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## PeopleObserved3 MoneyF MoneyS MoneyD MoneyB
## Length:1 Min. :1.01 Min. :0.05 Min. :0.05 Min. :0.53
## Class :character 1st Qu.:1.01 1st Qu.:0.05 1st Qu.:0.05 1st Qu.:0.53
## Mode :character Median :1.01 Median :0.05 Median :0.05 Median :0.53
## Mean :1.01 Mean :0.05 Mean :0.05 Mean :0.53
## 3rd Qu.:1.01 3rd Qu.:0.05 3rd Qu.:0.05 3rd Qu.:0.53
## Max. :1.01 Max. :0.05 Max. :0.05 Max. :0.53
## MoneyA PerDayFuckmod PerDayShitmod PerDayDamnmod PerDayBitchmod
## Min. :0.53 Min. :7 Min. :11 Min. :3 Min. :7
## 1st Qu.:0.53 1st Qu.:7 1st Qu.:11 1st Qu.:3 1st Qu.:7
## Median :0.53 Median :7 Median :11 Median :3 Median :7
## Mean :0.53 Mean :7 Mean :11 Mean :3 Mean :7
## 3rd Qu.:0.53 3rd Qu.:7 3rd Qu.:11 3rd Qu.:3 3rd Qu.:7
## Max. :0.53 Max. :7 Max. :11 Max. :3 Max. :7
## PerDayAssmod ispnw
## Min. :10 Mode :logical
## 1st Qu.:10 FALSE:1
## Median :10
## Mean :10
## 3rd Qu.:10
## Max. :10Implementing modifications to PerDay columns:
# changeFactorToRandom = function(freq) {
# ret = switch(freq,
# "A"=runif(1,1,5),
# "B"=runif(1,6,11),
# "C"=runif(1,12,20),
# "D"=20,
# "E"=0)
# }
#
# testds = ds
# testds$PerDayFuckmod[testds$PerDayFuckmod=="A"]
# testds$PerDayShitmod[testds$PerDayShitmod=="A"]
# testds$PerDayDamnmod[testds$PerDayDamnmod=="A"]
# testds$PerDayBitchmod[testds$PerDayBitchmod=="A"]
# testds$PerDayAssmod[testds$PerDayAssmod=="A"]
#
# testds$PerDayFuckmod[testds$PerDayFuckmod=="B"]
# testds$PerDayShitmod[testds$PerDayShitmod=="B"]
# testds$PerDayDamnmod[testds$PerDayDamnmod=="B"]
# testds$PerDayBitchmod[testds$PerDayBitchmod=="B"]
# testds$PerDayAssmod[testds$PerDayAssmod=="B"]
#
# testds$PerDayFuckmod[testds$PerDayFuckmod=="C"]
# testds$PerDayShitmod[testds$PerDayShitmod=="C"]
# testds$PerDayDamnmod[testds$PerDayDamnmod=="C"]
# testds$PerDayBitchmod[testds$PerDayBitchmod=="C"]
# testds$PerDayAssmod[testds$PerDayAssmod=="C"]
#
# testds$PerDayFuckmod[testds$PerDayFuckmod=="D"]
# testds$PerDayShitmod[testds$PerDayShitmod=="D"]
# testds$PerDayDamnmod[testds$PerDayDamnmod=="D"]
# testds$PerDayBitchmod[testds$PerDayBitchmod=="D"]
# testds$PerDayAssmod[testds$PerDayAssmod=="D"]
#
# testds$PerDayFuckmod[testds$PerDayFuckmod=="E"]
# testds$PerDayShitmod[testds$PerDayShitmod=="E"]
# testds$PerDayDamnmod[testds$PerDayDamnmod=="E"]
# testds$PerDayBitchmod[testds$PerDayBitchmod=="E"]
# testds$PerDayAssmod[testds$PerDayAssmod=="E"]
#
# modfunc = function(colvec) {
# for (i in range(length(colvec)))
# {
# if (colvec[i]=="A") {
# colvec[i] = replace(colvec,i,runif(1,1,5)%/%1)
# }
# else if (colvec[i]=="B") {
# colvec[i] = replace(colvec,i,runif(1,6,11)%/%1)
# }
# else if (colvec[i]=="C") {
# colvec[i] = replace(colvec,i,runif(1,12,20)%/%1)
# }
# else if (colvec[i]=="D") {
# colvec[i] = replace(colvec,i,20)
# }
# else if (colvec[i]=="E") {
# colvec[i] = replace(colvec,i,0)
# }
# }
# print(colvec)
# return(colvec)
# }
#
# toy
#literally just did it by hand. took like 10 minutes against the hours I tried
#automating this with R.Justification for implementing this: 1. We needed numeric data for insightful analysis. 2. We made sure that each case had a value that was within the range reported. 3. Randomness should nullify the effect any variation might have on the insights drawn 4. The difference isn’t particularly meaningful; whether a person who swore 1-5 times per day swore exactly twice or exactly 5 times should not impact the insights we draw using this modification.
Todo: use numeric variables with money coefficients to find out who owes how much for each word studied.
EDA on Perday columns
freqvec=c(ds$PerDayFuckmod,ds$PerDayShitmod,ds$PerDayDamnmod,ds$PerDayBitchmod,ds$PerDayAssmod)
moneyvec=c(ds$MoneyF,ds$MoneyS,ds$MoneyD,ds$MoneyB,ds$MoneyA)
moneyfreqvec=freqvec*moneyvec
ds = ds %>%
mutate (
moneyffreq=MoneyF*freqvec[1],
moneysfreq=MoneyS*freqvec[2],
moneydfreq=MoneyD*freqvec[3],
moneybfreq=MoneyB*freqvec[4],
moneyafreq=MoneyA*freqvec[5],
totalfreq=PerDayFuckmod+PerDayShitmod+PerDayDamnmod+PerDayBitchmod+PerDayAssmod,
totalmon=MoneyF+MoneyS+MoneyD+MoneyB+MoneyA
)
data.frame(freqvec,moneyfreqvec) %>%
ggplot(aes(x=freqvec,y=moneyfreqvec))+
geom_point()## Warning: Removed 5 rows containing missing values (`geom_point()`).
ds %>%
ggplot(aes(x=age,y=totalfreq))+
geom_col(fill="purple")+
ggtitle("Frequency of swearing per day by age")+
xlab("Age (years)")+
ylab("Frequency (swears/day)")+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>%
ggplot(aes(x=age,y=totalfreq,fill=gender))+
geom_col()+
ggtitle("Frequency of swearing per day by age")+
xlab("Age (years)")+
ylab("Frequency (swears/day)")+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>%
ggplot(aes(x=Comfort1,y=totalfreq,fill=as.factor(age)))+
geom_col()+
ggtitle("Frequency of swearing per day by first comfort location")+
xlab("Comfort Location")+
ylab("Frequency (swears/day)")+
guides(fill=guide_legend(title=NULL))+
coord_flip()+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>%
ggplot(aes(x=Comfort2,y=totalfreq,fill=as.factor(age)))+
geom_col()+
ggtitle("Frequency of swearing per day by second comfort location")+
xlab("Comfort Location")+
ylab("Frequency (swears/day)")+
guides(fill=guide_legend(title=NULL))+
coord_flip()+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>%
ggplot(aes(x=Comfort3,y=totalfreq,fill=as.factor(age)))+
geom_col()+
ggtitle("Frequency of swearing per day by third comfort location")+
xlab("Comfort Location")+
ylab("Frequency (swears/day)")+
guides(fill=guide_legend(title=NULL))+
coord_flip()+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>% # CAREFUL! This plot shows that respondents who observe close friends swearing tend to swear a lot themselves!
ggplot(aes(x=PeopleObserved1,y=totalfreq))+
geom_col(fill="purple")+
ggtitle("Frequency of swearing based on resp. obs. of others swearing")+
xlab("Relationship")+
ylab("Frequency (swears/day)")+
guides(fill=guide_legend(title=NULL))+
coord_flip()+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>% # CAREFUL! This plot shows that respondents who observe close friends swearing tend to swear a lot themselves!
ggplot(aes(x=Favorite,y=totalfreq,fill=gender))+
geom_col(position="fill")+
ggtitle("")+
xlab("Favorite Swear Word")+
ylab("Frequency (swears/day)")+
guides(fill=guide_legend(title=NULL))+
coord_flip()+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
dsorig = ds %>%
group_by(origin) %>%
summarize(n=n()) %>%
arrange(desc(origin))
ds %>%
ggplot(aes(x=origin,y=totalfreq,fill=origin))+
geom_col()+
ggtitle("Swearing based on origin")+
xlab("")+
ylab("Frequency")+
guides(fill=guide_legend(title=NULL))+
theme(axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
panel.background = element_rect(color="white"))## Warning: Removed 1 rows containing missing values (`position_stack()`).
ds %>%
ggplot(aes(x=ispnw,y=totalfreq,fill=ispnw))+
geom_col()+
ggtitle("Swearing based on PNW origin")+
theme_minimal()## Warning: Removed 1 rows containing missing values (`position_stack()`).
table(ds$ispnw)##
## FALSE TRUE
## 20 38#Hypothesis: no significant difference in swearing between PNWers and non PNWers
#success = ispnw failure = not ispnw
#successes(x) = 38 total(n) = 58
#p = 0.5 ; "proportions are equal under null" alternative = "two.sided"
prop.test(38,58,0.5,alternative="two.sided")##
## 1-sample proportions test with continuity correction
##
## data: 38 out of 58, null probability 0.5
## X-squared = 4.9828, df = 1, p-value = 0.0256
## alternative hypothesis: true p is not equal to 0.5
## 95 percent confidence interval:
## 0.5179568 0.7717985
## sample estimates:
## p
## 0.6551724#Conclusion:
#There is enough evidence to reject the hypothesis that
#there is an equal proportion of people who swear if they're from the PNW or not.
#People from the PNW have more tendency to swear than those not from the PNW
ds %>%
ggplot(aes(x=totalfreq))+
geom_histogram(bins=15,fill="red")+
ggtitle("Distribution of swearing frequency")+
xlab("Frequency (swears/day)")+
ylab("# Respondents")+
theme_minimal()## Warning: Removed 1 rows containing non-finite values (`stat_bin()`).
skim(ds$totalfreq)| Name | ds$totalfreq |
| Number of rows | 60 |
| Number of columns | 1 |
| _______________________ | |
| Column type frequency: | |
| numeric | 1 |
| ________________________ | |
| Group variables | None |
Variable type: numeric
| skim_variable | n_missing | complete_rate | mean | sd | p0 | p25 | p50 | p75 | p100 | hist |
|---|---|---|---|---|---|---|---|---|---|---|
| data | 1 | 0.98 | 34.49 | 24.15 | 0 | 15.5 | 29 | 51.5 | 102 | ▇▇▆▂▁ |
#Hypothesis: From the data visualized, it might be wise to guess that the true
#mean is greater than what it seems visualized here. The null is that there is
#no significant difference between the true mean and our observed mean.
t_score=(mean(ds$totalfreq,na.rm=TRUE)-35)/(sd(ds$totalfreq,na.rm=TRUE)/sqrt(58))
pt(t_score,df=57)## [1] 0.436579t.test(ds$totalfreq,mu=35,alternative="greater")##
## One Sample t-test
##
## data: ds$totalfreq
## t = -0.16174, df = 58, p-value = 0.564
## alternative hypothesis: true mean is greater than 35
## 95 percent confidence interval:
## 29.23669 Inf
## sample estimates:
## mean of x
## 34.49153#As it turns out, it seems 35 is pretty close to the true mean.
#Assumptions: Independent obs, representative sample, normal distribution!
#Indep: How often one person swears doesn't affect how often another person swears.
# P(one person swearing 25 times) * P(one person swearing 10 times) =
# P(one person swearing 25 times and one person swearing 10 times)
#Next step is assume each person at WU swears an average of 35 times for an average of a level-2
#intensity word. Average cost per swear is $0.29. 35 swears per day implies average swear cost per student is
#$10.15. 1367 students* (Source: About Willamette 2022) means that $13,875.05 is owed to the swear
#jar.
#Means of cost to use each swear word
#F:0.602 S:0.398 D:0.150 B:0.606 A:0.214
#WOWS swearing:
#F:569 S:79 D: B:8 A:
#Total: $373.98
#linear regression
#compare how
setwd("C:/Users/epicm/Documents/School/20222023/ISWR/proj")
linds = read_csv("linreg.csv")## Rows: 297 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): Word
## dbl (2): PerDayWord, IntensityWord
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.head(linds)## # A tibble: 6 × 3
## PerDayWord IntensityWord Word
## <dbl> <dbl> <chr>
## 1 10 4 fuck
## 2 10 3 fuck
## 3 5 3 fuck
## 4 19 3 fuck
## 5 7 4 fuck
## 6 1 1 fuck#linds %>%
# mutate(IntensityMod = recode(IntensityWord,
# "4"=runif(n=1,min=3.51,max=4),
# "3"=runif(n=1,min=2.51,max=3.50),
# "2"=runif(n=1,min=1.51,max=2.50),
# "1"=runif(n=1,min=0.51,max=1.50),
# "0"=runif(n=1,min=0,max=0.50)
# )
# )
#linds$IntensityWord[linds$IntensityWord == 4] <- runif(n=1,min=3.51,max=4)
#linds$IntensityWord[linds$IntensityWord == 3] <- runif(n=1,min=2.51,max=3.50)
#linds$IntensityWord[linds$IntensityWord == 2] <- runif(n=1,min=1.51,max=2.50)
#linds$IntensityWord[linds$IntensityWord == 1] <- runif(n=1,min=0.51,max=1.50)
#linds$IntensityWord[linds$IntensityWord == 0] <- runif(n=1,min=0,max=0.50)
#linds
newIW = c()
for (el in linds$IntensityWord)
{
if (el==4)
{
newIW=append(newIW,runif(n=1,min=3.51,max=4))
}
else if (el==3)
{
newIW=append(newIW,runif(n=1,min=2.51,max=3.50))
}
else if (el==2)
{
newIW=append(newIW,runif(n=1,min=1.51,max=2.50))
}
else if (el==1)
{
newIW=append(newIW,runif(n=1,min=0.51,max=1.50))
}
else
{
newIW=append(newIW,runif(n=1,min=0,max=0.50))
}
}
newIW## [1] 3.646628060 3.182189912 3.114348804 2.792921566 3.877681224 0.858366680
## [7] 0.914119696 3.080404357 3.248714277 1.600834209 3.073809452 1.792372142
## [13] 3.228230450 0.692807646 0.514167859 3.975857568 2.017439157 3.053734623
## [19] 3.304146554 3.383272816 3.664763754 2.811180794 0.436351610 3.234958859
## [25] 2.855153505 2.767375421 1.853570627 1.137183374 0.976490814 2.320277539
## [31] 0.276417640 2.227082195 0.948973551 3.892771331 2.845204391 3.154768474
## [37] 0.992711363 0.881203275 3.757346528 0.552926089 2.807694165 0.614047410
## [43] 0.109815531 2.803102003 0.101000161 3.570868671 3.622657821 0.006796049
## [49] 3.585345170 3.921308581 0.161730302 1.854646475 3.272140865 0.928929696
## [55] 0.733512258 3.805672107 1.835543249 3.795833219 2.868859196 0.883459681
## [61] 2.042107831 0.932112384 1.837544646 1.832436920 0.308969917 1.126464682
## [67] 1.119738747 0.895895563 0.637832801 0.328356953 1.551667604 1.360597568
## [73] 1.204348482 0.717908767 0.795657514 2.799476459 1.536930577 1.594080964
## [79] 2.490126678 1.694258627 3.213200483 3.333085919 0.163587175 1.806826107
## [85] 1.419746867 1.970156397 0.273989034 0.827818088 0.339448581 1.041138987
## [91] 0.838025018 0.206153814 1.117416888 2.036018524 1.354229775 1.245506304
## [97] 0.087708033 0.321266324 1.985653858 0.848406762 1.557656011 2.278605553
## [103] 3.397989533 1.884138972 0.849963980 3.286908932 3.407130803 0.020913377
## [109] 2.195096135 3.484780572 0.156049455 0.727289535 2.437483001 2.200050349
## [115] 1.381475421 1.875788988 2.668262589 3.253899417 3.484921073 1.714736335
## [121] 0.612803668 0.392391864 1.383188646 0.273089855 0.332173010 0.437819326
## [127] 0.154456027 1.179308932 0.119090674 0.374944644 1.519455560 0.181459187
## [133] 0.044877337 0.309886835 0.358490307 0.095841901 0.482856576 0.413621980
## [139] 0.677771655 0.453995526 0.484982710 0.012800184 0.107161837 1.161501689
## [145] 0.171507841 1.445096874 0.324418308 0.233596553 0.309166777 0.265871984
## [151] 3.925289839 0.244794252 0.414443881 1.082141136 0.001489295 0.003812292
## [157] 0.135622529 0.331328695 0.099240685 0.389278502 0.300813606 2.410632355
## [163] 2.329947529 0.660863216 0.218877139 0.754124458 0.244177528 1.061517884
## [169] 0.757949511 0.335953176 0.207646862 1.158992765 3.348290802 0.155394596
## [175] 1.292875072 0.160927307 0.847970980 0.377656511 0.139542819 3.042369012
## [181] 1.578561217 3.779102099 1.990335910 2.382087542 1.177330646 2.989586169
## [187] 3.457205085 1.274967365 0.955472625 1.677832590 3.031550772 2.298707597
## [193] 3.049691079 2.944525473 1.688135779 3.927183671 2.692791528 1.129815387
## [199] 3.094200184 1.697973998 0.543109757 3.005154089 2.862154432 2.147545278
## [205] 3.154164260 1.275624044 1.478740087 1.175862298 0.904519454 2.904847353
## [211] 1.163337808 3.072742686 2.758148239 3.731035268 1.936332081 2.858598289
## [217] 3.801350364 2.579912233 0.989439857 3.306295559 1.980282481 3.565448102
## [223] 0.835882406 2.377329785 1.605063608 3.017548921 3.089838297 0.542301723
## [229] 0.150681107 3.024485767 3.290356954 3.443567896 2.230665031 3.301747881
## [235] 3.577936001 1.726768702 1.618803208 2.623217603 0.173568998 0.242351802
## [241] 0.922537988 1.960592282 2.323712944 0.427228606 1.209928850 0.121229232
## [247] 0.367338720 0.440816024 1.453850821 1.784200824 0.143348441 0.386572597
## [253] 0.940326985 1.066336517 3.367621278 1.206810146 0.332866785 1.811107098
## [259] 1.340470464 2.242403493 0.082874790 1.562578358 0.656514767 0.891139365
## [265] 0.131808822 1.101038734 0.478160560 0.052679064 2.330434918 0.208488495
## [271] 0.374784324 1.213764729 0.020194709 0.025182158 0.111533782 2.424258325
## [277] 0.789995995 1.337459804 0.307812701 1.384844654 0.324983737 0.338920964
## [283] 0.308831043 0.317215880 3.467768442 0.495216287 0.366812897 0.135039045
## [289] 0.327699090 1.580752825 0.757241865 0.497703042 0.304043880 1.379178375
## [295] 0.448073466 0.742716929 0.373719663linds## # A tibble: 297 × 3
## PerDayWord IntensityWord Word
## <dbl> <dbl> <chr>
## 1 10 4 fuck
## 2 10 3 fuck
## 3 5 3 fuck
## 4 19 3 fuck
## 5 7 4 fuck
## 6 1 1 fuck
## 7 6 1 fuck
## 8 21 3 fuck
## 9 24 3 fuck
## 10 16 2 fuck
## # … with 287 more rowslinds = linds %>%
mutate(IWMod = newIW)
linds %>%
ggplot(aes(x=PerDayWord,y=IWMod,color=Word)) +
geom_point(alpha=0.3)+
scale_x_continuous()+
scale_y_continuous()+
geom_smooth(method="lm")+
facet_grid(.~Word)+
ggtitle("Frequency of word use on word intensity by word")+
xlab("Swears per day")+
ylab("Intensity")+
theme_minimal()## `geom_smooth()` using formula = 'y ~ x'
mod=lm(IWMod~PerDayWord,linds)
summary(mod)##
## Call:
## lm(formula = IWMod ~ PerDayWord, data = linds)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.6551 -1.1151 -0.2842 1.0980 2.5325
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.44336 0.09768 14.78 <2e-16 ***
## PerDayWord 0.01286 0.01005 1.28 0.201
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.194 on 295 degrees of freedom
## Multiple R-squared: 0.005526, Adjusted R-squared: 0.002155
## F-statistic: 1.639 on 1 and 295 DF, p-value: 0.2014