GeoBubbleChart[Map[If[#[[3]]>0||#[[2]]>15,Callout[Interpreter["USState"][#[[1]]]#[[2]],Column[{Style[#[[1]],Bold],"Cases:",#[[2]],"Deaths:",#[[3]]}],Right],Interpreter["USState"][#[[1]]]#[[2]]]&,Values@Normal@nytDataset[All,{"State","Cases","Deaths"}]],ChartElementschartelements,ImageSize900,GeoRange{{24.,50.},{-130.,-60.}}]