Need help charting school shootings by year and number of victims

Question

For my school project I've decided to take some data from Wolfram. I have the dataset from Data Repository, and I want to create three BarCharts. The first one shows the highest number of fatalities. It's done.

The second should represent the the number of school shootings by year. The third one will represent the total number of school shooting victims by year.

Can I get some help with the second and the third charts?

dataM = ResourceData["Mass Shootings in America"]
dataM1 = dataM[All, {"Date", "Location", "Total Number of Fatalities"}]
BarChart[dataM1[All, "Total Number of Fatalities"]]

Answer 1

• To chart the number of school shootings by year:

First, use Select to find the school-related events, then CountsBy groups and counts the events for each year.

dataSet2 = 
  CountsBy[DateValue[#["Date"], "Year"] &][
    Select[dataM[All, {"Date", "School Related"}],
      #["School Related"] === "Yes" &]] // Normal;

BarChart[dataSet2 // Values,
  PlotLabel -> "Number of School Shootings by Year", 
  ChartLabels -> Placed[dataSet2 // Keys, Axis, Rotate[#, Pi/4] &],
  ImageSize -> Large]

By way of comparison, the number of all mass shooting victims and the number of school shooting victims are easy to chart.

• To find the number of mass shooting victims by year:

Use GroupBy to collect events by year, then Total adds up the number of victims for each year.

dataSet3 = 
  Total /@ GroupBy[dataM[All, {"Date", "Total Number of Victims"}], 
    DateValue[#["Date"], "Year"] &][All, All,"Total Number of Victims"] // Normal;

BarChart[dataSet3 // Values,
  PlotLabel -> "Number of Victims by Year",
  ChartLabels -> Placed[dataSet3 // Keys, Axis, Rotate[#, Pi/4] &],
  ImageSize -> Large]

• Chart the number of school shooting victims:

Redraw the total victims chart by selecting only the school-related events.

dataSet4 =
  Total /@ GroupBy[
    Select[dataM[
      All, {"Date", "Total Number of Victims", "School Related"}],
      #["School Related"] === "Yes" &], 
    DateValue[#["Date"], "Year"] &][All, All,"Total Number of Victims"] // Normal;

BarChart[dataSet4 // Values, 
  PlotLabel -> "Number of School Shooting Victims by Year", 
  ChartLabels -> Placed[dataSet3 // Keys, Axis, Rotate[#, Pi/4] &], 
  ImageSize -> Large]

Answer 2

For the shootings by year, consider for instance:

BarChart[
   CountsBy[First@DateList@#["Date"] &][dataM], 
   BarOrigin -> Left, ChartLabels -> Placed[Automatic, Left]
]