variable_info <- tibble(
Variable = c(
"Diabetes_012", "HighBP", "HighChol", "CholCheck", "BMI",
"Smoker", "Stroke", "HeartDiseaseorAttack", "PhysActivity",
"Fruits", "Veggies", "HvyAlcoholConsump", "AnyHealthcare",
"NoDocbcCost", "GenHlth", "MentHlth", "PhysHlth",
"DiffWalk", "Sex", "Age", "Education", "Income"
),
Description = c(
"Diabetes status: 0=No, 1=Prediabetes, 2=Diabetes",
"High blood pressure diagnosis (0/1)",
"High cholesterol diagnosis (0/1)",
"Cholesterol check in past 5 years (0/1)",
"Body Mass Index (continuous)",
"Smoked at least 100 cigarettes in lifetime (0/1)",
"Ever had a stroke (0/1)",
"Coronary heart disease or heart attack (0/1)",
"Physical activity in past 30 days (0/1)",
"Consume fruit 1+ times per day (0/1)",
"Consume vegetables 1+ times per day (0/1)",
"Heavy alcohol consumption (0/1)",
"Any healthcare coverage (0/1)",
"Could not see doctor due to cost (0/1)",
"General health: 1=Excellent to 5=Poor",
"Days of poor mental health (past 30 days)",
"Days of poor physical health (past 30 days)",
"Difficulty walking or climbing stairs (0/1)",
"Sex: 0=Female, 1=Male",
"Age category: 1=18-24 to 13=80+",
"Education level: 1-6 scale",
"Income level: 1=<$10k to 8=>$75k"
),
Type = c(
"Target", "Binary", "Binary", "Binary", "Continuous",
"Binary", "Binary", "Binary", "Binary",
"Binary", "Binary", "Binary", "Binary",
"Binary", "Ordinal", "Count", "Count",
"Binary", "Binary", "Ordinal", "Ordinal", "Ordinal"
)
)
variable_info |>
kable(col.names = c("Variable", "Description", "Type"),
align = c("l", "l", "c")) |>
kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
full_width = TRUE,
font_size = 13) |>
scroll_box(height = "400px")