1.2 Summary statistics

metadatasummarize <- metadata %>%
  as.data.frame(metadata) %>%
  select(-stdVotes, -stdVotesLog, -pctWinner)

stargazer(metadatasummarize, type = "html", summary.stat = c("n", "mean", "sd", "min", "p25", "median", "p75", "max"))

Statistic	N	Mean	St. Dev.	Min	Pctl(25)	Median	Pctl(75)	Max
median_rent	3,108	771.836	225.366	313	632	715	845.2	2,316
perc_rent	3,108	10.938	3.121	3.411	8.909	10.561	12.552	35.335
median_age	3,108	41.453	5.380	22.300	38.200	41.300	44.500	67.400
perc_white	3,108	83.229	16.458	5.141	76.882	89.669	94.973	100.000
perc_below_pov	3,108	14.550	5.975	2.356	10.360	13.672	17.794	54.772
median_income	3,108	27,641.900	5,850.187	8,641	23,773.5	26,931.5	30,813.2	70,390
perc_hs	3,108	13.088	6.266	1.117	8.485	11.739	16.709	73.560
perc_doc	3,108	0.847	0.924	0.000	0.351	0.612	1.048	17.700
pctGOP	3,108	0.661	0.163	0.055	0.569	0.695	0.788	0.969
totalVotes	3,108	49,912.470	147,614.900	159	5,295.2	12,425.5	33,176.5	4,174,415