##                          muenster Unintentional    Suicide    Homicide
## muenster                1.0000000    0.86434680  0.9555510 -0.25343850
## Unintentional           0.8643468    1.00000000  0.9304585  0.02860829
## Suicide                 0.9555510    0.93045853  1.0000000 -0.23414469
## Homicide               -0.2534385    0.02860829 -0.2341447  1.00000000
## Undetermined            0.2930508    0.65625952  0.4640975  0.28688435
## Legal intervention/war  0.8720061    0.83474497  0.8602972 -0.11764121
##                        Undetermined Legal intervention/war
## muenster                  0.2930508              0.8720061
## Unintentional             0.6562595              0.8347450
## Suicide                   0.4640975              0.8602972
## Homicide                  0.2868843             -0.1176412
## Undetermined              1.0000000              0.3248518
## Legal intervention/war    0.3248518              1.0000000

I chose to use the correlation of Muenster cheese and the injury intent “Suicide”. When composing the graph I wanted to empasize the correlation of the data points and “loess” is for observation of < 1000. I tried a little coloring that would subtly acknowledge the data is about death and made the points a dark red with the theme_wsj () as a backdrop.