Figure 5

Copyright (c) 2019 Raj Saha (rsaha@bates.edu) and Meredith Greer (mgreer@bates.edu)

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sub-license, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions : The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

SetDirectory[NotebookDirectory[]];

Japan

datJH=Import["Japan_Hida_period_local_maxs_R0_mu__25x25-2.dat"];

Show[
ListContourPlot[datJH,InterpolationOrder->0,FrameLabel->{"(Subscript[R, 0])","μ"},
ContourLabels->Automatic,PlotRange->{All,All,colorvalminmax},Contours->20,ContourStyle->None,
(*PlotLabel->"Hida District, Japan\nModel Oscillation Periods with time-varying α and δ forcing\n",*)
PlotLabel->"Hida District, Japan",

(*PlotLegends->BarLegend[Table[i,{i,colorvalminmax[[1]],colorvalminmax[[2]],0.2}],
LegendLabel->Text[Style["Period (years)",FontFamily->"Open Sans",FontSize->10]]
],*)
ColorFunction->ColorData[{colorscheme,colorvalminmax}],ColorFunctionScaling->False
],

ListContourPlot[datJH,InterpolationOrder->3,Contours->{6.6},
ContourShading->None,
ContourLabels->None,
PlotRange->{2,8},
ContourStyle->{Dashed,Thick}
],

Graphics[Text[Style["6.6 y",FontFamily->"Open Sans"],{3.4,16}]]
]

British India

SetOptions[ListContourPlot,BaseStyle->{FontFamily->"Open Sans",FontSize->14}];

colorscheme="ThermometerColors";

datBI=Import["British_India_period_local_maxs_R0_mu__25x25-2.dat"];

colorvalminmax={0.2,14};

Show[
ListContourPlot[datBI,InterpolationOrder->0,FrameLabel->{"(Subscript[R, 0])","μ"},Ticks->{{{5,12}},Automatic},
PlotRange->colorvalminmax,Contours->20,ContourStyle->Automatic,
(*PlotLabel->"British India\nModel Oscillation Periods with time-varying α and δ forcing\n",*)
PlotLabel->"British India",
(*ColorFunction->ColorData[colorscheme],
PlotLegends->Table[i,{i,2,10}],
*)
(*PlotLegends->BarLegend[Table[i,{i,colorvalminmax[[1]],colorvalminmax[[2]], 0.2}],
LegendLabel->Text[Style["Period (years)",FontFamily->"Open Sans",FontSize->10]]],*)
ColorFunction->ColorData[{colorscheme,colorvalminmax}],ColorFunctionScaling->False,
ContourLabels->All, ContourStyle->{Black, Thick}
],
ListContourPlot[datBI,InterpolationOrder->1,
Contours->10,
ContourShading->None,
ContourLabels->None,
ContourStyle->None
],

ListContourPlot[datBI,InterpolationOrder->5,
Contours->{5.5},
ContourShading->None,
ContourLabels->None,
ContourStyle->{Dashed,Thick}
],

Graphics[Text[Style["5.5 y",FontFamily->"Open Sans"],{3.5,17}]]
]

Sweden

datSW=Import["Sweden_period_local_maxs_R0_mu__25x25-2.dat"];

Show[
ListContourPlot[datSW,InterpolationOrder->0,FrameLabel->{"(Subscript[R, 0])","μ"},
ContourLabels->None,PlotRange->{All,All,colorvalminmax},Contours->20,ContourStyle->None,
(*PlotLabel->"Sweden\nModel Oscillation Periods with time-varying α and δ forcing\n",*)
PlotLabel->"Sweden",

PlotLegends->{BarLegend[Table[i,{i,0,14,1}],
LegendLabel->Text[Style["Period (years)",FontFamily->"Open Sans",FontSize->10]]]
},
ColorFunction->ColorData[{colorscheme,colorvalminmax}],ColorFunctionScaling->False
],

ListContourPlot[datSW,InterpolationOrder->3,Contours->{5.2},ContourShading->None,
ContourLabels->None,
PlotRange->colorvalminmax,
ContourStyle->{Gray,Dashing[{0.015,0.01}],AbsoluteThickness[2.5]}
],

Graphics[Text[Style["5.2 y",FontFamily->"Open Sans"],{3.3,24.7}]],
Graphics[Text[Style["5.2 y",FontFamily->"Open Sans"],{6.6,24}]]
]