Off[General::"spell1"];
(* <<"BarCharts`";<<"Histograms`";<<"PieCharts`"
<<"ErrorBarPlots`"
<<"Graphics`Arrow`"
<<"PlotLegends`"
<<"PlotLegends`" *)
hide=DisplayFunction->Identity
SetOptions[ListPlot,Frame->True,BaseStyle->{FontFamily->font,FontSize->20}]
font="TimesNewRoman";
(* SetOptions[Plot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,DisplayFunction->Identity];
SetOptions[ListPlot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,PlotJoined->True];
SetOptions[Plot3D,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500];
SetOptions[LogLinearListPlot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,PlotJoined->True];
SetOptions[MultipleListPlot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,PlotJoined->True,SymbolShape->None,PlotStyle->{RGBColor[0,0,0],Dashing[{0.01`,0.03`}]}];
SetOptions[LogListPlot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,PlotJoined->True];
SetOptions[LogLogListPlot,Frame->True,Axes->None,BaseStyle->{FontFamily->font,FontSize->20},ImageSize->500,PlotJoined->True];
SetOptions[GraphicsArray,BaseStyle->{FontFamily->font,FontSize->20}];
SetOptions[BarChart,Frame->{True,True,False,False},Axes->None,BaseStyle->{FontFamily->font,FontSize->20}];
SetOptions[PieChart,BaseStyle->{FontFamily->font,FontSize->20}];
SetOptions[Histogram,Frame->True,BaseStyle->{FontFamily->font,FontSize->20}];
SetOptions[Text,BaseStyle->{FontFamily->font,FontSize->20}] *)