Calendar Heat Map plotting function
ed = EarthquakeData[All, 6, {{2014, 1, 1}, {2016, 1, 1}}, "Magnitude"]; PlotCalendar[ed, "Years" -> {2014, 2015}, ColorFunction -> "Rainbow"]