I created another histogram that shows a visualization of the donations that exceeded the goal for each year from 1940 to 2020. From this graph you can see that the vast majority of the donations that did exceed the goal were under $100,000, with the highest frequency being under $50,000. The line of code used to make the graph includes the histogram function, the donations_2020_to_1940 variable which has stored each of the donation amounts for each year from 1940 to 2020, and the donation_exceed_goal variable which has stored the donation amounts for the same years that are above the goal amount. Inside the hist() function I call the donations_2020_to_1940 variable and then subset that vector to pull out the elements that are greater than the goal amount. Thus, the histogram is displaying the actual amounts, not the indexes or a boolean. This visualization might help in determining what to set the donation goal to in order for it to be met, or to determine how high you can make the goal amount without it being unattainable. I set the number of breaks in this graph to 5 so that the amounts were differentiable but still summarized.
Code: hist(donations_2020_to_1940[donation_exceed_goal], breaks = 5)
