How to find specific information in a DataSet

Questions
,
1

Hello,
I have found some neat video about earthquakes on Wolfram U, where you can collect data about all the earthquakes that happened in a specific time:

data = Values[EarthquakeData[All, 5, {{2010, 1, 1}, Today}]];

OK, this will create Dataset with all earthquakes above magnitude 5 from January 1st, 2010 until today.
Now I want to find all earthquakes within this dataset that have highest magnitude, more specifically, if the highest magnitude is 9, I want to extract all of them and finally plot them on a map.

How can I extract that data?
Thanks!

2

data = Values[EarthquakeData[All, 5, {{2010, 1, 1}, Today}]];

Select[data, #["Magnitude"] > 7 &]
3

Thanks!