Required packages
library(kableExtra)
library(magrittr)
library(knitr)
Load data
pregint <- read.csv("../data/pregint.csv")
Subset for the select group
youngsub <- pregint[pregint$age %in% 21:24, ]
n = 359
Demographics
sex <- table(youngsub$sex, useNA = "always")
regionOrg <- table(youngsub$regionOrg, useNA = "always")
race <- table(youngsub$race, useNA = "always")
hispanic <- table(youngsub$hispanic, useNA = "always")
hispOrg <- table(youngsub$hispOrg, useNA = "always")
incCat <- table(youngsub$incCat, useNA = "always")
pregstat <- table(youngsub$Q3.25..Q3.26, useNA = "always")
Sex
|
sex
|
counts
|
|
female
|
162
|
|
male
|
197
|
|
NA
|
0
|
Region of origin (4 Categories)
|
regionOrg
|
counts
|
|
MidWest
|
62
|
|
North East
|
45
|
|
South
|
143
|
|
West
|
109
|
|
NA
|
0
|
Race category
|
race
|
counts
|
|
American Indian or Alaska Native
|
5
|
|
Asian
|
22
|
|
Black or African American
|
65
|
|
Native Hawaiian or Other Pacific Islander
|
2
|
|
other
|
28
|
|
White
|
237
|
|
NA
|
0
|
Hispanic
|
hispanic
|
counts
|
|
no
|
286
|
|
yes
|
73
|
|
NA
|
0
|
Hispanic origin
|
hispOrg
|
counts
|
|
Cuban
|
2
|
|
Mexican, Mexican American
|
36
|
|
other
|
24
|
|
Puerto Rican
|
11
|
|
NA
|
286
|
Income category
|
incCat
|
counts
|
|
$100,000 or more
|
94
|
|
$20,000-$39,999
|
106
|
|
$40,000-$59,999
|
71
|
|
$60,000-$79,999
|
41
|
|
$80,000-$99,999
|
18
|
|
less than $20,000
|
29
|
|
NA
|
0
|
Pregnancy status and intentions
|
pregstat
|
counts
|
|
aren’t trying, but would feel okay if you/partner became pregnant
|
79
|
|
don’t want you/partner to become pregnant soon
|
177
|
|
other
|
20
|
|
would like you/partner to become pregnant soon
|
58
|
|
you/partner can’t get pregnant
|
9
|
|
you/partner is pregnant
|
16
|
|
NA
|
0
|