library(kableExtra)
library(magrittr)
library(knitr)pregint <- read.csv("../data/pregint.csv")Pregnancy feelings are taken from Q3.34 and Q121 and are recoded as pregFeel.
Question: “Ultimately, how would you feel about a partner, or anyone you had sex with, being pregnant right now?”
Current situation is taken from questions Q3.26 and Q3.25 and is recoded as currentSit.
Question: “When thinking about your current situation, would you say that you…”
intentbyfeel <- table(pregint$currentSit, pregint$pregFeel, useNA = "always")
colintent <- cbind(intentbyfeel, total = margin.table(intentbyfeel, 1L))
intentbyfeeltotal <- rbind(colintent, total = margin.table(colintent, 2L))| Negative | Positive | NA | total | |
|---|---|---|---|---|
| aren’t trying, but would feel okay if you/partner became pregnant | 73 | 421 | 0 | 494 |
| don’t want you/partner to become pregnant soon | 512 | 288 | 0 | 800 |
| other | 63 | 79 | 0 | 142 |
| would like you/partner to become pregnant soon | 21 | 298 | 0 | 319 |
| you/partner can’t get pregnant | 0 | 0 | 229 | 229 |
| you/partner is pregnant | 0 | 0 | 115 | 115 |
| NA | 0 | 0 | 0 | 0 |
| total | 669 | 1086 | 344 | 2099 |