# Assume your dataset is named 'county$\_$dataset'

# Replace 'median$\_$edu' with the actual column name representing the level of education

# Generate a sample dataset for demonstration

set.seed$(123)$

county$\_$dataset $<-$ data.frame$($

county$\_$id $=1$:$100,$

median$\_$edu $=$ sample$($c$("$below$\_$hs$","$hs$\_$diploma", "some$\_$college", "bachelors"$),100,$ replace $=$ TRUE$)$

$)$

# Create a stratified sample

my$.$Stratified $<-$ county$\_$dataset $\%>\%$

group$\_$by$($median$\_$edu$)\%>\%$

slice$\_$sample$($n $=$ ifelse$($median$\_$edu $==$ "below$\_$hs$",1,$

ifelse$($median$\_$edu $=="$hs$\_$diploma", $14,$

ifelse$($median$\_$edu $==$ "some$\_$college", $17,$

ifelse$($median$\_$edu $==$ "bachelors", $4,0)$

$)$

$)$

$))\%>\%$

ungroup$()$

# Print the resulting dataframe

print$($my$.$Stratified$)$