SW 670: Final Portfolio Assignment
Yeri Shon
4/12/2018
0.1 Background
The graphs included in this portforlio are created based on the 2016 dataset of Behavioral Risk Factor Surveillance System, a nationwide health-related telephone survey that collects data about U.S. residents’ health-related risk behaviors, chronic health conditions, and use of preventive services.
0.2 Variables of Interest
There are 275 variables in this dataset, with 34299 individual responses. The first set of variables that I have been interested in were health-related risk behaviors, such as smoking and drinking. I was interested in the smoking and drinking frequency in various age groups, especially the younger adults under age 35.
load("~/Desktop/Winter_2018/SW670/R_stuff/LLCP2016.RData")
summary(LLCP2016)## _STATE fmonth idate imonth
## Min. : 1.00 Min. : 1.000 Length:486303 Length:486303
## 1st Qu.:15.00 1st Qu.: 4.000 Class :character Class :character
## Median :27.00 Median : 7.000 Mode :character Mode :character
## Mean :28.97 Mean : 6.756
## 3rd Qu.:40.00 3rd Qu.:10.000
## Max. :78.00 Max. :12.000
##
## iday iyear dispcode seqno
## Length:486303 Length:486303 Min. :1100 Length:486303
## Class :character Class :character 1st Qu.:1100 Class :character
## Mode :character Mode :character Median :1100 Mode :character
## Mean :1113
## 3rd Qu.:1100
## Max. :1200
##
## _PSU CTELENM1 PVTRESD1 colghous
## Min. :2.016e+09 Min. :1 Min. :1 Min. :1
## 1st Qu.:2.016e+09 1st Qu.:1 1st Qu.:1 1st Qu.:1
## Median :2.016e+09 Median :1 Median :1 Median :1
## Mean :2.016e+09 Mean :1 Mean :1 Mean :1
## 3rd Qu.:2.016e+09 3rd Qu.:1 3rd Qu.:1 3rd Qu.:1
## Max. :2.016e+09 Max. :1 Max. :2 Max. :1
## NA's :233290 NA's :234038 NA's :486262
## stateres CELLFON4 ladult numadult
## Min. :1 Min. :1.00 Min. :1.0 Min. : 1.00
## 1st Qu.:1 1st Qu.:1.00 1st Qu.:1.0 1st Qu.: 1.00
## Median :1 Median :2.00 Median :2.0 Median : 2.00
## Mean :1 Mean :1.54 Mean :1.6 Mean : 1.77
## 3rd Qu.:1 3rd Qu.:2.00 3rd Qu.:2.0 3rd Qu.: 2.00
## Max. :1 Max. :2.00 Max. :2.0 Max. :18.00
## NA's :236709 NA's :234038 NA's :486262 NA's :234051
## nummen numwomen CTELNUM1 CELLFON5
## Min. : 0.00 Min. : 0.00 Min. :1 Min. :1
## 1st Qu.: 0.00 1st Qu.: 1.00 1st Qu.:1 1st Qu.:1
## Median : 1.00 Median : 1.00 Median :1 Median :1
## Mean : 0.79 Mean : 0.98 Mean :1 Mean :1
## 3rd Qu.: 1.00 3rd Qu.: 1.00 3rd Qu.:1 3rd Qu.:1
## Max. :13.00 Max. :12.00 Max. :1 Max. :2
## NA's :234046 NA's :234046 NA's :252265 NA's :252266
## cadult PVTRESD3 cclghous CSTATE1
## Min. :1.00 Min. :1 Min. :1 Min. :1.00
## 1st Qu.:1.00 1st Qu.:1 1st Qu.:1 1st Qu.:1.00
## Median :1.00 Median :1 Median :1 Median :1.00
## Mean :1.49 Mean :1 Mean :1 Mean :1.08
## 3rd Qu.:2.00 3rd Qu.:1 3rd Qu.:1 3rd Qu.:1.00
## Max. :2.00 Max. :2 Max. :2 Max. :2.00
## NA's :252271 NA's :252265 NA's :485175 NA's :246342
## landline hhadult genhlth physhlth
## Min. :1.00 Min. : 1.00 Min. :1.00 Min. : 1.00
## 1st Qu.:1.00 1st Qu.: 2.00 1st Qu.:2.00 1st Qu.:15.00
## Median :2.00 Median : 2.00 Median :3.00 Median :88.00
## Mean :1.65 Mean : 2.57 Mean :2.59 Mean :60.72
## 3rd Qu.:2.00 3rd Qu.: 2.00 3rd Qu.:3.00 3rd Qu.:88.00
## Max. :9.00 Max. :99.00 Max. :9.00 Max. :99.00
## NA's :251640 NA's :260001 NA's :5 NA's :3
## menthlth poorhlth HLTHPLN1 PERSDOC2
## Min. : 1.00 Min. : 1.00 Min. :1.000 Min. :1.000
## 1st Qu.:25.00 1st Qu.:12.00 1st Qu.:1.000 1st Qu.:1.000
## Median :88.00 Median :88.00 Median :1.000 Median :1.000
## Mean :64.38 Mean :55.72 Mean :1.099 Mean :1.404
## 3rd Qu.:88.00 3rd Qu.:88.00 3rd Qu.:1.000 3rd Qu.:1.000
## Max. :99.00 Max. :99.00 Max. :9.000 Max. :9.000
## NA's :1 NA's :235696 NA's :1
## medcost CHECKUP1 EXERANY2 SLEPTIM1
## Min. :1.000 Min. :1.000 Min. :1.000 Min. : 1.000
## 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.: 6.000
## Median :2.000 Median :1.000 Median :1.000 Median : 7.000
## Mean :1.913 Mean :1.544 Mean :1.266 Mean : 7.907
## 3rd Qu.:2.000 3rd Qu.:1.000 3rd Qu.:2.000 3rd Qu.: 8.000
## Max. :9.000 Max. :9.000 Max. :9.000 Max. :99.000
## NA's :2 NA's :3 NA's :6 NA's :2
## CVDINFR4 CVDCRHD4 CVDSTRK3 ASTHMA3
## Min. :1.000 Min. :1.00 Min. :1.000 Min. :1.000
## 1st Qu.:2.000 1st Qu.:2.00 1st Qu.:2.000 1st Qu.:2.000
## Median :2.000 Median :2.00 Median :2.000 Median :2.000
## Mean :1.965 Mean :1.98 Mean :1.972 Mean :1.881
## 3rd Qu.:2.000 3rd Qu.:2.00 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :9.000 Max. :9.00 Max. :9.000 Max. :9.000
## NA's :3 NA's :2 NA's :2 NA's :2
## asthnow chcscncr chcocncr CHCCOPD1
## Min. :1.0 Min. :1.000 Min. :1.000 Min. :1.00
## 1st Qu.:1.0 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.00
## Median :1.0 Median :2.000 Median :2.000 Median :2.00
## Mean :1.4 Mean :1.921 Mean :1.916 Mean :1.94
## 3rd Qu.:2.0 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.00
## Max. :9.0 Max. :9.000 Max. :9.000 Max. :9.00
## NA's :420713 NA's :2 NA's :2 NA's :2
## HAVARTH3 ADDEPEV2 chckidny DIABETE3
## Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.000
## 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:2.00 1st Qu.:3.000
## Median :2.000 Median :2.000 Median :2.00 Median :3.000
## Mean :1.677 Mean :1.848 Mean :1.98 Mean :2.747
## 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.00 3rd Qu.:3.000
## Max. :9.000 Max. :9.000 Max. :9.00 Max. :9.000
## NA's :3 NA's :3 NA's :3 NA's :3
## DIABAGE2 LASTDEN3 RMVTETH3 sex
## Min. : 1.0 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:44.0 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
## Median :54.0 Median :1.000 Median :3.000 Median :2.000
## Mean :54.1 Mean :1.729 Mean :4.737 Mean :1.568
## 3rd Qu.:63.0 3rd Qu.:2.000 3rd Qu.:8.000 3rd Qu.:2.000
## Max. :99.0 Max. :9.000 Max. :9.000 Max. :9.000
## NA's :420251 NA's :6 NA's :4
## marital educa RENTHOM1 NUMHHOL2
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00
## 1st Qu.:1.000 1st Qu.:4.000 1st Qu.:1.000 1st Qu.:2.00
## Median :1.000 Median :5.000 Median :1.000 Median :2.00
## Mean :2.289 Mean :4.913 Mean :1.366 Mean :1.96
## 3rd Qu.:3.000 3rd Qu.:6.000 3rd Qu.:2.000 3rd Qu.:2.00
## Max. :9.000 Max. :9.000 Max. :9.000 Max. :9.00
## NA's :11 NA's :6 NA's :9 NA's :234055
## NUMPHON2 CPDEMO1 VETERAN3 EMPLOY1
## Min. :1.0 Min. :1.00 Min. :1.000 Min. :1.000
## 1st Qu.:1.0 1st Qu.:1.00 1st Qu.:2.000 1st Qu.:1.000
## Median :1.0 Median :1.00 Median :2.000 Median :3.000
## Mean :1.7 Mean :1.21 Mean :1.881 Mean :3.969
## 3rd Qu.:2.0 3rd Qu.:1.00 3rd Qu.:2.000 3rd Qu.:7.000
## Max. :9.0 Max. :9.00 Max. :9.000 Max. :9.000
## NA's :471160 NA's :234059 NA's :65 NA's :73
## children INCOME2 internet WEIGHT2
## Min. : 1.00 Min. : 1.00 Min. :1.000 Min. : 50.0
## 1st Qu.: 5.00 1st Qu.: 5.00 1st Qu.:1.000 1st Qu.: 150.0
## Median :88.00 Median : 7.00 Median :1.000 Median : 177.0
## Mean :66.35 Mean :19.16 Mean :1.221 Mean : 720.4
## 3rd Qu.:88.00 3rd Qu.: 8.00 3rd Qu.:1.000 3rd Qu.: 210.0
## Max. :99.00 Max. :99.00 Max. :9.000 Max. :9999.0
## NA's :121 NA's :3786 NA's :4920 NA's :6178
## HEIGHT3 pregnant deaf blind
## Min. : 201.0 Min. :1 Min. :1.000 Min. :1.000
## 1st Qu.: 504.0 1st Qu.:2 1st Qu.:2.000 1st Qu.:2.000
## Median : 507.0 Median :2 Median :2.000 Median :2.000
## Mean : 740.3 Mean :2 Mean :1.944 Mean :1.972
## 3rd Qu.: 510.0 3rd Qu.:2 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :9999.0 Max. :9 Max. :9.000 Max. :9.000
## NA's :6809 NA's :416898 NA's :12124 NA's :12987
## decide diffwalk diffdres diffalon
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00
## 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.00
## Median :2.000 Median :2.000 Median :2.000 Median :2.00
## Mean :1.937 Mean :1.856 Mean :1.976 Mean :1.95
## 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.00
## Max. :9.000 Max. :9.000 Max. :9.000 Max. :9.00
## NA's :13703 NA's :14310 NA's :14678 NA's :15267
## SMOKE100 SMOKDAY2 STOPSMK2 LASTSMK2
## Min. :1.000 Min. :1.00 Min. :1.0 Min. : 1.0
## 1st Qu.:1.000 1st Qu.:2.00 1st Qu.:1.0 1st Qu.: 6.0
## Median :2.000 Median :3.00 Median :1.0 Median : 7.0
## Mean :1.607 Mean :2.43 Mean :1.5 Mean : 6.7
## 3rd Qu.:2.000 3rd Qu.:3.00 3rd Qu.:2.0 3rd Qu.: 7.0
## Max. :9.000 Max. :9.00 Max. :9.0 Max. :99.0
## NA's :16062 NA's :282147 NA's :417415 NA's :351519
## USENOW3 ecigaret ecignow ALCDAY5
## Min. :1.000 Min. :1.000 Min. :1.0 Min. :101.0
## 1st Qu.:3.000 1st Qu.:2.000 1st Qu.:3.0 1st Qu.:202.0
## Median :3.000 Median :2.000 Median :3.0 Median :230.0
## Mean :2.973 Mean :1.868 Mean :2.7 Mean :527.3
## 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:3.0 3rd Qu.:888.0
## Max. :9.000 Max. :9.000 Max. :9.0 Max. :999.0
## NA's :16686 NA's :17418 NA's :411720 NA's :18348
## AVEDRNK2 DRNK3GE5 maxdrnks FLUSHOT6
## Min. : 1.00 Min. : 1.00 Min. : 1.00 Min. :1.000
## 1st Qu.: 1.00 1st Qu.:36.75 1st Qu.: 1.00 1st Qu.:1.000
## Median : 2.00 Median :88.00 Median : 2.00 Median :2.000
## Mean : 3.56 Mean :67.02 Mean : 5.77 Mean :1.591
## 3rd Qu.: 3.00 3rd Qu.:88.00 3rd Qu.: 4.00 3rd Qu.:2.000
## Max. :99.00 Max. :99.00 Max. :99.00 Max. :9.000
## NA's :249223 NA's :249639 NA's :250034 NA's :22107
## FLSHTMY2 PNEUVAC3 tetanus FALL12MN
## Min. : 12015 Min. :1.000 Min. :1.00 Min. : 1.00
## 1st Qu.: 92016 1st Qu.:1.000 1st Qu.:2.00 1st Qu.: 3.00
## Median :102015 Median :2.000 Median :3.00 Median :88.00
## Mean :143564 Mean :2.032 Mean :3.28 Mean :62.25
## 3rd Qu.:112015 3rd Qu.:2.000 3rd Qu.:4.00 3rd Qu.:88.00
## Max. :999999 Max. :9.000 Max. :9.00 Max. :99.00
## NA's :281847 NA's :23076 NA's :23573 NA's :146679
## FALLINJ2 seatbelt DRNKDRI2 hadmam
## Min. : 1.0 Min. :1.000 Min. : 1.00 Min. :1.00
## 1st Qu.: 1.0 1st Qu.:1.000 1st Qu.:88.00 1st Qu.:1.00
## Median :88.0 Median :1.000 Median :88.00 Median :1.00
## Mean :55.1 Mean :1.274 Mean :84.93 Mean :1.23
## 3rd Qu.:88.0 3rd Qu.:1.000 3rd Qu.:88.00 3rd Qu.:1.00
## Max. :99.0 Max. :9.000 Max. :99.00 Max. :9.00
## NA's :383838 NA's :25167 NA's :247187 NA's :225296
## howlong HADPAP2 LASTPAP2 hpvtest
## Min. :1.00 Min. :1.00 Min. :1.00 Min. :1.00
## 1st Qu.:1.00 1st Qu.:1.00 1st Qu.:1.00 1st Qu.:1.00
## Median :1.00 Median :1.00 Median :2.00 Median :2.00
## Mean :1.93 Mean :1.13 Mean :2.76 Mean :2.94
## 3rd Qu.:2.00 3rd Qu.:1.00 3rd Qu.:5.00 3rd Qu.:2.00
## Max. :9.00 Max. :9.00 Max. :9.00 Max. :9.00
## NA's :279045 NA's :225503 NA's :244482 NA's :226142
## hplsttst HADHYST2 PCPSAAD2 PCPSADI1
## Min. :1.0 Min. :1.00 Min. :1.0 Min. :1
## 1st Qu.:1.0 1st Qu.:1.00 1st Qu.:1.0 1st Qu.:1
## Median :2.0 Median :2.00 Median :1.0 Median :2
## Mean :2.8 Mean :1.74 Mean :1.6 Mean :2
## 3rd Qu.:5.0 3rd Qu.:2.00 3rd Qu.:2.0 3rd Qu.:2
## Max. :9.0 Max. :9.00 Max. :9.0 Max. :9
## NA's :419058 NA's :271408 NA's :334583 NA's :334711
## PCPSARE1 PSATEST1 psatime PCPSARS1
## Min. :1.0 Min. :1.0 Min. :1 Min. :1.0
## 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1 1st Qu.:1.0
## Median :1.0 Median :1.0 Median :1 Median :1.0
## Mean :1.7 Mean :1.7 Mean :2 Mean :1.8
## 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:3 3rd Qu.:2.0
## Max. :9.0 Max. :9.0 Max. :9 Max. :9.0
## NA's :334772 NA's :334840 NA's :398978 NA's :399044
## bldstool LSTBLDS3 HADSIGM3 HADSGCO1
## Min. :1.00 Min. :1.0 Min. :1.00 Min. :1.00
## 1st Qu.:1.00 1st Qu.:1.0 1st Qu.:1.00 1st Qu.:2.00
## Median :2.00 Median :4.0 Median :1.00 Median :2.00
## Mean :1.73 Mean :3.3 Mean :1.33 Mean :2.08
## 3rd Qu.:2.00 3rd Qu.:5.0 3rd Qu.:2.00 3rd Qu.:2.00
## Max. :9.00 Max. :9.0 Max. :9.00 Max. :9.00
## NA's :181611 NA's :381928 NA's :181924 NA's :264494
## LASTSIG3 HIVTST6 HIVTSTD3 HIVRISK4
## Min. :1.00 Min. :1.00 Min. : 11985 Min. :1.00
## 1st Qu.:2.00 1st Qu.:1.00 1st Qu.: 62013 1st Qu.:2.00
## Median :3.00 Median :2.00 Median :122015 Median :2.00
## Mean :3.32 Mean :1.91 Mean :412698 Mean :2.01
## 3rd Qu.:5.00 3rd Qu.:2.00 3rd Qu.:772016 3rd Qu.:2.00
## Max. :9.00 Max. :9.00 Max. :999999 Max. :9.00
## NA's :264557 NA's :32982 NA's :350195 NA's :34235
## pdiabtst PREDIAB1 insulin bldsugar
## Min. :1.00 Min. :1.00 Min. :1.0 Min. :101.0
## 1st Qu.:1.00 1st Qu.:3.00 1st Qu.:1.0 1st Qu.:101.0
## Median :1.00 Median :3.00 Median :2.0 Median :103.0
## Mean :1.56 Mean :2.78 Mean :1.7 Mean :250.3
## 3rd Qu.:2.00 3rd Qu.:3.00 3rd Qu.:2.0 3rd Qu.:204.0
## Max. :9.00 Max. :9.00 Max. :9.0 Max. :999.0
## NA's :294693 NA's :294692 NA's :476768 NA's :476768
## FEETCHK2 doctdiab CHKHEMO3 feetchk
## Min. :101 Min. : 1.0 Min. : 1.0 Min. : 1.0
## 1st Qu.:101 1st Qu.: 2.0 1st Qu.: 2.0 1st Qu.: 2.0
## Median :101 Median : 4.0 Median : 3.0 Median : 4.0
## Mean :261 Mean :14.7 Mean :15.2 Mean :28.7
## 3rd Qu.:206 3rd Qu.: 5.0 3rd Qu.: 4.0 3rd Qu.:88.0
## Max. :999 Max. :99.0 Max. :99.0 Max. :99.0
## NA's :476768 NA's :476769 NA's :476768 NA's :476814
## eyeexam diabeye diabedu PAINACT2
## Min. :1.0 Min. :1.0 Min. :1.0 Min. : 1.0
## 1st Qu.:2.0 1st Qu.:2.0 1st Qu.:1.0 1st Qu.:30.0
## Median :2.0 Median :2.0 Median :2.0 Median :88.0
## Mean :2.5 Mean :1.9 Mean :1.5 Mean :67.8
## 3rd Qu.:3.0 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:88.0
## Max. :9.0 Max. :9.0 Max. :9.0 Max. :99.0
## NA's :476768 NA's :476768 NA's :476768 NA's :476964
## QLMENTL2 QLSTRES2 QLHLTH2 medicare
## Min. : 1.0 Min. : 1.0 Min. : 1.0 Min. :1.0
## 1st Qu.:10.0 1st Qu.: 5.0 1st Qu.:20.0 1st Qu.:1.0
## Median :88.0 Median :88.0 Median :29.0 Median :2.0
## Mean :60.1 Mean :51.2 Mean :33.8 Mean :1.6
## 3rd Qu.:88.0 3rd Qu.:88.0 3rd Qu.:30.0 3rd Qu.:2.0
## Max. :99.0 Max. :99.0 Max. :99.0 Max. :9.0
## NA's :476971 NA's :476979 NA's :476989 NA's :432666
## HLTHCVR1 delaymed dlyother NOCOV121
## Min. : 1.0 Min. :1.0 Length:486303 Min. :1
## 1st Qu.: 1.0 1st Qu.:8.0 Class :character 1st Qu.:2
## Median : 2.0 Median :8.0 Mode :character Median :2
## Mean : 3.7 Mean :7.2 Mean :2
## 3rd Qu.: 3.0 3rd Qu.:8.0 3rd Qu.:2
## Max. :99.0 Max. :9.0 Max. :9
## NA's :432667 NA's :429001 NA's :432668
## lstcovrg drvisits medscost carercvd
## Min. :1.0 Min. : 1.0 Min. :1 Min. :1.0
## 1st Qu.:2.0 1st Qu.: 2.0 1st Qu.:2 1st Qu.:1.0
## Median :4.0 Median : 4.0 Median :2 Median :1.0
## Mean :3.6 Mean :16.6 Mean :2 Mean :1.6
## 3rd Qu.:5.0 3rd Qu.:10.0 3rd Qu.:2 3rd Qu.:2.0
## Max. :9.0 Max. :99.0 Max. :9 Max. :9.0
## NA's :482616 NA's :428980 NA's :428980 NA's :428980
## MEDBILL1 medadvic undrstnd written
## Min. :1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.:2.0 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1.0
## Median :2.0 Median :1.0 Median :1.0 Median :1.0
## Mean :1.9 Mean :1.6 Mean :1.5 Mean :1.7
## 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:2.0
## Max. :9.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :428980 NA's :395078 NA's :395157 NA's :395297
## CAREGIV1 CRGVREL1 CRGVLNG1 CRGVHRS1
## Min. :1.0 Min. : 1 Min. :1.0 Min. :1.0
## 1st Qu.:2.0 1st Qu.: 2 1st Qu.:2.0 1st Qu.:1.0
## Median :2.0 Median : 6 Median :4.0 Median :1.0
## Mean :1.8 Mean : 8 Mean :3.3 Mean :2.2
## 3rd Qu.:2.0 3rd Qu.:13 3rd Qu.:5.0 3rd Qu.:3.0
## Max. :9.0 Max. :99 Max. :9.0 Max. :9.0
## NA's :409710 NA's :471117 NA's :471137 NA's :471165
## CRGVPRB2 crgvpers crgvhous CRGVMST2
## Min. : 1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.: 6.0 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:6.0
## Median :13.0 Median :1.0 Median :1.0 Median :6.0
## Mean :13.8 Mean :1.5 Mean :1.3 Mean :5.5
## 3rd Qu.:15.0 3rd Qu.:2.0 3rd Qu.:1.0 3rd Qu.:6.0
## Max. :99.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :471192 NA's :471216 NA's :471231 NA's :471264
## crgvexpt cimemlos cdhouse cdassist
## Min. :1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.:2.0 1st Qu.:2.0 1st Qu.:3.0 1st Qu.:3.0
## Median :2.0 Median :2.0 Median :5.0 Median :5.0
## Mean :2.2 Mean :1.9 Mean :4.1 Mean :4.1
## 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:5.0 3rd Qu.:5.0
## Max. :9.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :425077 NA's :410160 NA's :477890 NA's :477897
## cdhelp cdsocial cddiscus SSBSUGR2
## Min. :1.0 Min. :1 Min. :1.0 Min. :101.0
## 1st Qu.:1.0 1st Qu.:3 1st Qu.:1.0 1st Qu.:202.0
## Median :2.0 Median :5 Median :2.0 Median :307.0
## Mean :2.2 Mean :4 Mean :1.6 Mean :528.5
## 3rd Qu.:3.0 3rd Qu.:5 3rd Qu.:2.0 3rd Qu.:888.0
## Max. :9.0 Max. :9 Max. :9.0 Max. :999.0
## NA's :483805 NA's :477903 NA's :477913 NA's :418152
## SSBFRUT2 calrinfo marijana usemrjna
## Min. :101.0 Min. : 1.0 Min. : 1.0 Min. : 1.0
## 1st Qu.:301.0 1st Qu.: 3.0 1st Qu.:88.0 1st Qu.: 1.0
## Median :888.0 Median : 5.0 Median :88.0 Median : 1.0
## Mean :600.6 Mean :10.1 Mean :84.3 Mean : 351.6
## 3rd Qu.:888.0 3rd Qu.: 5.0 3rd Qu.:88.0 3rd Qu.: 7.0
## Max. :999.0 Max. :99.0 Max. :99.0 Max. :123456.0
## NA's :418236 NA's :474791 NA's :379483 NA's :480901
## asthmage asattack aservist asdrvist
## Min. :11.0 Min. :1.0 Min. : 1.0 Min. : 1.0
## 1st Qu.:30.0 1st Qu.:1.0 1st Qu.: 3.0 1st Qu.: 3.0
## Median :54.0 Median :2.0 Median :88.0 Median :88.0
## Mean :59.4 Mean :1.6 Mean :54.2 Mean :51.6
## 3rd Qu.:97.0 3rd Qu.:2.0 3rd Qu.:88.0 3rd Qu.:88.0
## Max. :99.0 Max. :9.0 Max. :98.0 Max. :98.0
## NA's :485748 NA's :485931 NA's :486129 NA's :486130
## asrchkup asactlim asymptom asnoslep
## Min. : 1.0 Min. : 1.0 Min. :1.0 Min. :1.0
## 1st Qu.: 1.0 1st Qu.: 88.0 1st Qu.:2.0 1st Qu.:2.0
## Median : 4.0 Median :888.0 Median :4.0 Median :5.0
## Mean :36.2 Mean :629.4 Mean :4.3 Mean :5.1
## 3rd Qu.:88.0 3rd Qu.:888.0 3rd Qu.:8.0 3rd Qu.:8.0
## Max. :99.0 Max. :999.0 Max. :9.0 Max. :9.0
## NA's :485932 NA's :485933 NA's :485936 NA's :486041
## ASTHMED3 asinhalr imfvplac HPVADVC2
## Min. :1.0 Min. :1.0 Min. : 1.0 Min. :1.0
## 1st Qu.:3.0 1st Qu.:1.0 1st Qu.: 1.0 1st Qu.:2.0
## Median :3.0 Median :5.0 Median : 3.0 Median :2.0
## Mean :4.4 Mean :4.7 Mean : 4.2 Mean :2.3
## 3rd Qu.:8.0 3rd Qu.:8.0 3rd Qu.: 6.0 3rd Qu.:2.0
## Max. :9.0 Max. :9.0 Max. :99.0 Max. :9.0
## NA's :485937 NA's :485937 NA's :470779 NA's :462620
## hpvadsht SHINGLE2 NUMBURN2 cncrdiff
## Min. : 1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.: 2.0 1st Qu.:1.0 1st Qu.:8.0 1st Qu.:1.0
## Median : 3.0 Median :2.0 Median :8.0 Median :1.0
## Mean :14.2 Mean :1.8 Mean :6.9 Mean :1.3
## 3rd Qu.: 3.0 3rd Qu.:2.0 3rd Qu.:8.0 3rd Qu.:1.0
## Max. :99.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :483878 NA's :468928 NA's :462908 NA's :477896
## cncrage CNCRTYP1 CSRVTRT1 CSRVDOC1
## Min. : 1.0 Min. : 1.0 Min. :1.0 Min. : 1.0
## 1st Qu.:47.0 1st Qu.: 8.0 1st Qu.:2.0 1st Qu.: 2.0
## Median :59.0 Median :21.0 Median :2.0 Median : 3.0
## Mean :57.7 Mean :19.8 Mean :2.4 Mean : 6.1
## 3rd Qu.:69.0 3rd Qu.:22.0 3rd Qu.:2.0 3rd Qu.: 5.0
## Max. :99.0 Max. :99.0 Max. :9.0 Max. :99.0
## NA's :478004 NA's :478012 NA's :478010 NA's :480151
## csrvsum csrvrtrn csrvinst csrvinsr
## Min. :1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1.0
## Median :2.0 Median :1.0 Median :1.0 Median :1.0
## Mean :1.9 Mean :1.4 Mean :1.6 Mean :1.1
## 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:1.0
## Max. :9.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :480158 NA's :480161 NA's :482161 NA's :480165
## csrvdein csrvclin csrvpain CSRVCTL1
## Min. :1 Min. :1 Min. :1 Min. :1
## 1st Qu.:2 1st Qu.:2 1st Qu.:2 1st Qu.:1
## Median :2 Median :2 Median :2 Median :2
## Mean :2 Mean :2 Mean :2 Mean :2
## 3rd Qu.:2 3rd Qu.:2 3rd Qu.:2 3rd Qu.:2
## Max. :9 Max. :9 Max. :9 Max. :9
## NA's :480166 NA's :480167 NA's :480170 NA's :485884
## profexam lengexam PCPSADE1 pcdmdecn
## Min. :1.0 Min. :1.0 Min. : NA Length:486303
## 1st Qu.:1.0 1st Qu.:1.0 1st Qu.: NA Class :character
## Median :1.0 Median :2.0 Median : NA Mode :character
## Mean :1.1 Mean :2.3 Mean :NaN
## 3rd Qu.:1.0 3rd Qu.:3.0 3rd Qu.: NA
## Max. :9.0 Max. :9.0 Max. : NA
## NA's :479759 NA's :480304 NA's :486303
## sxorient trnsgndr rcsgendr RCSRLTN2
## Min. :1.00 Min. :1.00 Min. :1.0 Min. :1.0
## 1st Qu.:1.00 1st Qu.:4.00 1st Qu.:1.0 1st Qu.:1.0
## Median :1.00 Median :4.00 Median :2.0 Median :1.0
## Mean :1.26 Mean :4.04 Mean :1.9 Mean :1.7
## 3rd Qu.:1.00 3rd Qu.:4.00 3rd Qu.:2.0 3rd Qu.:1.0
## Max. :9.00 Max. :9.00 Max. :9.0 Max. :9.0
## NA's :280869 NA's :281030 NA's :416701 NA's :416947
## CASTHDX2 CASTHNO2 emtsuprt lsatisfy
## Min. :1.0 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.:2.0 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1.0
## Median :2.0 Median :1.0 Median :1.0 Median :2.0
## Mean :2.2 Mean :1.5 Mean :1.9 Mean :1.6
## 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:2.0 3rd Qu.:2.0
## Max. :9.0 Max. :9.0 Max. :9.0 Max. :9.0
## NA's :422065 NA's :478587 NA's :456766 NA's :456780
## QLACTLM2 useequip qstver qstlang
## Min. :1.00 Min. :1.0 Min. :10.0 Min. :1.000
## 1st Qu.:1.00 1st Qu.:2.0 1st Qu.:10.0 1st Qu.:1.000
## Median :2.00 Median :2.0 Median :13.0 Median :1.000
## Mean :1.79 Mean :1.9 Mean :15.5 Mean :1.037
## 3rd Qu.:2.00 3rd Qu.:2.0 3rd Qu.:20.0 3rd Qu.:1.000
## Max. :9.00 Max. :9.0 Max. :23.0 Max. :4.000
## NA's :279078 NA's :279477 NA's :14
## mscode _STSTR _STRWT _RAWRAKE
## Min. :1.00 Min. : 11011 Min. : 0.4997 Min. :0.3333
## 1st Qu.:1.00 1st Qu.:152049 1st Qu.: 14.6110 1st Qu.:1.0000
## Median :2.00 Median :272059 Median : 37.9637 Median :1.0000
## Mean :2.79 Mean :291295 Mean : 88.9032 Mean :1.3859
## 3rd Qu.:5.00 3rd Qu.:402029 3rd Qu.: 97.5493 3rd Qu.:2.0000
## Max. :5.00 Max. :782029 Max. :1792.5737 Max. :5.0000
## NA's :240028
## _WT2RAKE _CHISPNC _CRACE1 _CPRACE
## Min. : 0.1743 Min. :1.00 Min. : 1.0 Min. : 1.0
## 1st Qu.: 19.8005 1st Qu.:9.00 1st Qu.: 1.0 1st Qu.: 1.0
## Median : 48.8651 Median :9.00 Median : 1.0 Median : 1.0
## Mean : 100.8403 Mean :7.67 Mean : 7.7 Mean : 7.7
## 3rd Qu.: 115.0461 3rd Qu.:9.00 3rd Qu.: 2.0 3rd Qu.: 2.0
## Max. :2775.1006 Max. :9.00 Max. :99.0 Max. :99.0
## NA's :109413 NA's :412360 NA's :412360
## _CLLCPWT _DUALUSE _DUALCOR _LLCPWT2
## Min. : 3.3 Min. :1.000 Min. :0.11 Min. : 3.124
## 1st Qu.: 146.7 1st Qu.:1.000 1st Qu.:0.45 1st Qu.: 109.847
## Median : 349.7 Median :2.000 Median :0.62 Median : 261.766
## Mean : 723.1 Mean :4.408 Mean :0.58 Mean : 522.619
## 3rd Qu.: 820.3 3rd Qu.:9.000 3rd Qu.:0.71 3rd Qu.: 600.122
## Max. :22488.3 Max. :9.000 Max. :0.89 Max. :12491.385
## NA's :416724 NA's :196720
## _LLCPWT _RFHLTH _PHYS14D _MENT14D
## Min. : 0.19 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.: 86.29 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
## Median : 216.52 Median :1.000 Median :1.000 Median :1.000
## Mean : 522.62 Mean :1.212 Mean :1.661 Mean :1.542
## 3rd Qu.: 547.50 3rd Qu.:1.000 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :37604.08 Max. :9.000 Max. :9.000 Max. :9.000
##
## _HCVU651 _TOTINDA _MICHD _LTASTH1
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:2.000 1st Qu.:1.000
## Median :1.000 Median :1.000 Median :2.000 Median :1.000
## Mean :4.007 Mean :1.268 Mean :1.906 Mean :1.159
## 3rd Qu.:9.000 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:1.000
## Max. :9.000 Max. :9.000 Max. :2.000 Max. :9.000
## NA's :4125
## _CASTHM1 _ASTHMS1 _DRDXAR1 _EXTETH2
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00
## 1st Qu.:1.000 1st Qu.:3.000 1st Qu.:1.000 1st Qu.:1.00
## Median :1.000 Median :3.000 Median :2.000 Median :2.00
## Mean :1.146 Mean :2.815 Mean :1.649 Mean :1.69
## 3rd Qu.:1.000 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:2.00
## Max. :9.000 Max. :9.000 Max. :2.000 Max. :9.00
## NA's :2477
## _ALTETH2 _DENVST2 _PRACE1 _MRACE1
## Min. :1.00 Min. :1.000 Min. : 1.000 Min. : 1.000
## 1st Qu.:1.00 1st Qu.:1.000 1st Qu.: 1.000 1st Qu.: 1.000
## Median :1.00 Median :1.000 Median : 1.000 Median : 1.000
## Mean :1.74 Mean :1.394 Mean : 3.355 Mean : 3.443
## 3rd Qu.:1.00 3rd Qu.:2.000 3rd Qu.: 1.000 3rd Qu.: 1.000
## Max. :9.00 Max. :9.000 Max. :99.000 Max. :99.000
## NA's :308872 NA's :4 NA's :4
## _HISPANC _RACE _RACEG21 _RACEGR3
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:2.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
## Median :2.000 Median :1.000 Median :1.000 Median :1.000
## Mean :1.986 Mean :2.034 Mean :1.368 Mean :1.693
## 3rd Qu.:2.000 3rd Qu.:1.000 3rd Qu.:1.000 3rd Qu.:1.000
## Max. :9.000 Max. :9.000 Max. :9.000 Max. :9.000
##
## _RACE_G1 _AGEG5YR _AGE65YR _AGE80
## Min. :1.00 Min. : 1.00 Min. :1.000 Min. :18.00
## 1st Qu.:1.00 1st Qu.: 5.00 1st Qu.:1.000 1st Qu.:43.00
## Median :1.00 Median : 8.00 Median :1.000 Median :58.00
## Mean :1.46 Mean : 7.82 Mean :1.379 Mean :55.45
## 3rd Qu.:1.00 3rd Qu.:11.00 3rd Qu.:2.000 3rd Qu.:69.00
## Max. :5.00 Max. :14.00 Max. :3.000 Max. :80.00
## NA's :8683
## _AGE_G HTIN4 HTM4 WTKG3
## Min. :1.000 Min. :36.00 Min. : 91.0 Min. : 2268
## 1st Qu.:3.000 1st Qu.:64.00 1st Qu.:163.0 1st Qu.: 6668
## Median :5.000 Median :66.00 Median :168.0 Median : 7893
## Mean :4.451 Mean :66.79 Mean :169.6 Mean : 8108
## 3rd Qu.:6.000 3rd Qu.:70.00 3rd Qu.:178.0 3rd Qu.: 9072
## Max. :6.000 Max. :92.00 Max. :234.0 Max. :29257
## NA's :19133 NA's :16972 NA's :33530
## _BMI5 _BMI5CAT _RFBMI5 _CHLDCNT
## Min. :1202 Min. :1.00 Min. :1.000 Min. :1.00
## 1st Qu.:2378 1st Qu.:2.00 1st Qu.:1.000 1st Qu.:1.00
## Median :2712 Median :3.00 Median :2.000 Median :1.00
## Mean :2804 Mean :2.95 Mean :2.263 Mean :1.56
## 3rd Qu.:3109 3rd Qu.:4.00 3rd Qu.:2.000 3rd Qu.:2.00
## Max. :9960 Max. :4.00 Max. :9.000 Max. :9.00
## NA's :39616 NA's :39616
## _EDUCAG _INCOMG _SMOKER3 _RFSMOK3
## Min. :1.000 Min. :1.0 Min. :1.000 Min. :1.000
## 1st Qu.:2.000 1st Qu.:3.0 1st Qu.:3.000 1st Qu.:1.000
## Median :3.000 Median :5.0 Median :4.000 Median :1.000
## Mean :2.948 Mean :4.6 Mean :3.542 Mean :1.468
## 3rd Qu.:4.000 3rd Qu.:5.0 3rd Qu.:4.000 3rd Qu.:1.000
## Max. :9.000 Max. :9.0 Max. :9.000 Max. :9.000
##
## _ECIGSTS _CURECIG DRNKANY5 DROCDY3_
## Min. :1.000 Min. :1.000 Min. :1.000 Min. : 0.0
## 1st Qu.:4.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.: 0.0
## Median :4.000 Median :1.000 Median :2.000 Median : 3.0
## Mean :4.006 Mean :1.351 Mean :1.852 Mean : 61.6
## 3rd Qu.:4.000 3rd Qu.:1.000 3rd Qu.:2.000 3rd Qu.: 29.0
## Max. :9.000 Max. :9.000 Max. :9.000 Max. :900.0
##
## _RFBING5 _DRNKWEK _RFDRHV5 _FLSHOT6
## Min. :1.0 Min. : 0 Min. :1.000 Min. :1.00
## 1st Qu.:1.0 1st Qu.: 0 1st Qu.:1.000 1st Qu.:1.00
## Median :1.0 Median : 23 Median :1.000 Median :1.00
## Mean :1.6 Mean : 6286 Mean :1.538 Mean :2.01
## 3rd Qu.:1.0 3rd Qu.: 400 3rd Qu.:1.000 3rd Qu.:2.00
## Max. :9.0 Max. :99900 Max. :9.000 Max. :9.00
## NA's :308872
## _PNEUMO2 _RFSEAT2 _RFSEAT3 _DRNKDRV
## Min. :1.00 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:1.00 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:2.000
## Median :1.00 Median :1.000 Median :1.000 Median :9.000
## Mean :2.08 Mean :1.496 Mean :1.569 Mean :5.554
## 3rd Qu.:2.00 3rd Qu.:1.000 3rd Qu.:1.000 3rd Qu.:9.000
## Max. :9.00 Max. :9.000 Max. :9.000 Max. :9.000
## NA's :308872
## _RFMAM2Y _MAM5021 _RFPAP33 _RFPSA21
## Min. :1.00 Min. :1.0 Min. :1.0 Min. :1.0
## 1st Qu.:1.00 1st Qu.:1.0 1st Qu.:1.0 1st Qu.:1.0
## Median :1.00 Median :1.0 Median :1.0 Median :2.0
## Mean :1.89 Mean :1.2 Mean :1.2 Mean :2.1
## 3rd Qu.:2.00 3rd Qu.:1.0 3rd Qu.:1.0 3rd Qu.:2.0
## Max. :9.00 Max. :2.0 Max. :2.0 Max. :9.0
## NA's :263226 NA's :354260 NA's :383917 NA's :334448
## _RFBLDS3 _COL10YR _HFOB3YR _FS5YR
## Min. :1.0 Min. :1.00 Min. :1.00 Min. :1
## 1st Qu.:2.0 1st Qu.:1.00 1st Qu.:2.00 1st Qu.:2
## Median :2.0 Median :1.00 Median :2.00 Median :2
## Mean :1.9 Mean :1.33 Mean :1.83 Mean :2
## 3rd Qu.:2.0 3rd Qu.:2.00 3rd Qu.:2.00 3rd Qu.:2
## Max. :2.0 Max. :2.00 Max. :2.00 Max. :2
## NA's :251512 NA's :256162 NA's :251512 NA's :375290
## _FOBTFS _CRCREC _AIDTST3
## Min. :1 Min. :1.00 Min. :1.00
## 1st Qu.:2 1st Qu.:1.00 1st Qu.:1.00
## Median :2 Median :1.00 Median :2.00
## Mean :2 Mean :1.29 Mean :1.98
## 3rd Qu.:2 3rd Qu.:2.00 3rd Qu.:2.00
## Max. :2 Max. :2.00 Max. :9.00
## NA's :272505 NA's :255147 NA's :329820.3 Alcohol Consumption Trends
Most of the respondents, regardless of the age groups, have answered that they drink once a week. The number of individuals who answered “once a week” are similar among all three age groups. This is unexpected, as the age group 18-24 includes ages that are not legal to drink - the expectation was that the 18-24 age group would have lowest numbers in all range of drinking frequency, due to legal drinking age being 21.
library(ggplot2)
library(ggthemes)
load("~/NarrowData.RData")
NarrowData$`_AGEG5YR`[NarrowData$`_AGEG5YR` > 3.5] <- NA
NarrowData$SMOKDAY2[NarrowData$SMOKDAY2 > 4] <- NA
ggplot(NarrowData,
aes(x = ALCDAY5, fill = factor(`_AGEG5YR`))) +
geom_bar(position = "dodge") +
guides(fill=guide_legend(title="Age Groups")) +
scale_fill_hue(breaks=c("1", "2", "3"),
labels=c("18-24", "25-29", "30-34")) +
xlab("Drinking Status") +
ylab("Number of Individuals") +
theme_solarized() +
ggtitle("Drinking 1-2 times/wk is common among various age groups",
subtitle = "101 = 1 drink/wk, 102 = 2 drinks/wk,... 107 = 7 drinks/wk")
0.4 Smoking and Drinking
A link between drinking and smoking cigarettes has been widely acknowledged in health research, so that association was surveyed in this dataset as well. There seems to be a significant overlap amongst individuals who smoke and drink regularly. More than half of the smokers have responded that they drink more than three times a week. Of those individuls who drink at least three times a week, 43% has responded that they smoke sometimes or everyday in a given week.
library(VennDiagram)
load("~/Desktop/Winter_2018/SW670/R_stuff/LLCP2016.RData")
NarrowData$SMOKER <- as.numeric(NarrowData$SMOKDAY2 == 1 | NarrowData$SMOKDAY2 == 2)
NarrowData$DRINKER <- as.numeric(NarrowData$ALCDAY5 == 107 |
NarrowData$ALCDAY5 == 106|
NarrowData$ALCDAY5 == 105|
NarrowData$ALCDAY5 == 104|
NarrowData$ALCDAY5 ==103)
venn <- draw.pairwise.venn(1901, 2451, 1061,
category = c("Smoking Some or Everyday", "Drink at least 3x/wk"),
lty = rep("blank", 2), fill = c("light blue", "pink"),
alpha = rep(0.5, 2), cat.pos = c(1, 1), ccat.dist = c(0.09, 0.025))
0.5 Tableau
The following shows some trends observed regarding relationships observed between self-assessed health and income, age, and insured status. Individuals in lower income and without insured have a sense of poorer health. It is noteworthy that age group 50-54 has the poorest self-assessed mental health. However, that self-assessed poor mental health does not appear to be related binge drinking, other age groups (e.g. 55-59) seem to have higher frequency of binge drinking.
Tableau Dashboard
0.6 QGIS Map
For my QGIS map assignment, I looked at geographical data San Francisco City open database. Using QGIS, I displayed the legal medical cannabis dispensaries locations in the city to determine which neighborhoods they are located in.
SF MAP