draw.pairwise.venn(area1=14.6, area2=20.7, cross.area=4.2,category=c('Below Poverty Line', 'Non English Speaking'), fill=c('light green', 'light pink'), cat.pos=c(0,0))

## (polygon[GRID.polygon.11], polygon[GRID.polygon.12], polygon[GRID.polygon.13], polygon[GRID.polygon.14], text[GRID.text.15], text[GRID.text.16], text[GRID.text.17], text[GRID.text.18], text[GRID.text.19])
Bags 0 1 2
Cost 0 25 60
Prob .54 .34 .12
E 0 8.5 7.2
V 0 212.5 432

This answer assumes that the amount paid by each person on the plane is independent. It’s unclear if this is an acceptable assumption to make. I would imagine that families are both likely to travel together and to pack similarly (heavy or light for example). In addition, this assumes that the distribution of checked bags across all flights is the same and this seems incredibly unlikely. Short local flights most likely have fewer checked bags than longer, international flights.

to_plot <- setNames(data.frame(c('<10', '10-15', '15-25', '25-35', '35-50', '50-64', '65-75', '75-100', '100+'), c(.022, .047, .158, .183, .212, .139, .058, .084, .097)), c('Income', 'Total')) 
to_plot$Income <- factor(to_plot$Income, levels=to_plot$Income)
ggplot(to_plot, aes(x=Income, y=Total)) + geom_bar(stat='identity')