Create plotCurtailmentOnCalendar.R