#meanpops

[rgraphs]

Map in-sample counties

countygeo<-get_acs(geography="county",variables="B19013_001",geometry=TRUE,keep_geo_vars=TRUE) us<-get_estimates(geography="us",variables="POP",geometry=TRUE,keep_geo_vars=TRUE) states<-get_estimates(geography="state",variables="POP",geometry=TRUE,keep_geo_vars=TRUE) counties<-countygeo %>% mutate(county_name=str_remove_all(NAMELSAD,"\\.| County| Parish|\\s") %>% toupper()) %>% left_join( forplot %>% filter(count==8 & level=="Threshold = 95%" & group=="Above threshold in all 8 years") ,by=c("STUSPS"="state_postal_abbr","county_name") ) %>% mutate(insamp=if_else(is.na(meanpop),0,1)) p2<-ggplot(counties)+ geom_sf(size=0.05,color="white",aes(fill=factor(insamp,levels=c(0,1),labels=c("No","Yes"))),alpha=0.8)+ geom_sf(data=us,size=.1,color="black",alpha=0)+ geom_sf(data=states,size=.05,color="black",alpha=0)+ coord_sf(xlim=c(-125,-67.5),ylim=c(25,50))+ guides( fill=guide_legend("County in sample: ") ) CairoPNG("CountySampMap.png",width=10,height=7,units="in",res=500) print(p2) dev.off()

[clss79]

Winston was mad at Pops for changing his diaper. #meanpops #dirtydiaper #Winstonwoodrowsvenson (at Svenson-Swindoll Kingdom)

[rychuss1]

View this post on Instagram

A post shared by Rychuss Wun (@rychuss1)

#meanpops #muggin

[raulthursday-blog]

There’s a lot to love in this picture. Krampus stealing a child, the Pope just watching it happen, the child on the far left hiding behind a chair. This comes from a newspaper in the 1880s.