SetDirectory[NotebookDirectory[]];
data=Import["stats.out"];
graphtitle="Hosts file size history";
graphsubtitle = "base version: (adware + malware) only";
data=({DateObject[#1[[1]]],#1[[2]]}&)/@data;
lastitem=Callout[Last[data],ToString[Last[data][[2]]],Left, LabelStyle->Small, Background->LightBlue];
data[[Length[data]]]=lastitem;

graph=DateListPlot[data
,Filling->Axis
,FrameLabel->{{HoldForm[Unique domains],None},{HoldForm[Year],None}}
,FrameTicks->{{All,All},Automatic}
, GridLines->{
Join[Table[{DateObject[{x}],Thick},{x,2017,2027}],DateRange[{2017},{2027},"Quarter"]]
, Join[Range[0,300000,10000],{#,Thick}&/@Range[0,300000,50000]]
}
,ImageMargins->20
,ImageSize -> Large
,LabelStyle->{GrayLevel[0]}
,PlotLabel -> 
Column[
{
Style[graphtitle,16,Bold]
,Style[graphsubtitle,12,Bold]
,Style["updated: "<>DateString[TimeZone->"Zulu"] <> " UTC",12]
}
,Center
]
,PlotRange->{Automatic,{0,Automatic}}
,PlotTheme->"Detailed"
];
Export[StringReplace[ToLowerCase[graphtitle]," "->"_"]<> ".png", graph];
graph