This generates a unclear picture although the input variables are more or less evenly destributed; any Idea what I can do? Thanks.
dataonl =
Table[city -> AirTemperatureData[city], {city,
GeoNearest["City",
Entity["City", {"Berlin", "Berlin", "Germany"}], {All, \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "20km", Typeset`boxes$$ =
TemplateBox[{
"20", "\"km\"", "kilometers", "\"Kilometers\""},
"Quantity", SyntaxForm -> Mod],
Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {},
Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.661163`6.271853535090111,
"Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{78., {8., 16.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$,
Typeset`allassumptions$$, Typeset`assumptions$$,
Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)}]}];
GeoDensityPlot[dataonl,
ColorFunction -> ColorData["ThermometerColors"]]
Attachments: