GeoRegionValuePlot doesn't normalize the color function as expected.
I would like to make multiple maps (for different dates) and have the scale be consistent from map to map. For example, the scales on these three maps show up differently with changes to one state's value.
Row[{
countydata = <|
Entity["AdministrativeDivision", {"Georgia", "UnitedStates"}] ->
1/100, Entity[
"AdministrativeDivision", {"Florida", "UnitedStates"}] ->
30/100, Entity[
"AdministrativeDivision", {"SouthCarolina", "UnitedStates"}] ->
50/100, Entity[
"AdministrativeDivision", {"NorthCarolina", "UnitedStates"}] ->
90|>;
GeoRegionValuePlot[countydata,
PlotRange -> {0, 1., {{-88, -70}, {23, 42}}},
ColorRules -> {0. -> Transparent, 100. -> Black},
ColorFunction -> "NeonColors",
ColorFunctionScaling -> False,
GeoRangePadding -> Quantity[300, "Kilometers"],
PlotLegends ->
Placed[BarLegend[Automatic, LegendFunction -> "Frame",
LegendLabel -> "Values"], {0.85, 0.40}],
GeoLabels -> (Tooltip[#1, #2] & ), ImageSize -> 300],
countydata = <|
Entity["AdministrativeDivision", {"Georgia", "UnitedStates"}] ->
20/100, Entity[
"AdministrativeDivision", {"Florida", "UnitedStates"}] ->
30/100,
Entity["AdministrativeDivision", {"SouthCarolina",
"UnitedStates"}] -> 50/100,
Entity["AdministrativeDivision", {"NorthCarolina",
"UnitedStates"}] -> 50/100|>;
GeoRegionValuePlot[countydata,
PlotRange -> {0, 1., {{-88, -70}, {23, 42}}},
ColorRules -> {0. -> Transparent, 100. -> Black},
ColorFunction -> "NeonColors",
ColorFunctionScaling -> False,
GeoRangePadding -> Quantity[300, "Kilometers"],
PlotLegends ->
Placed[BarLegend[Automatic, LegendFunction -> "Frame",
LegendLabel -> "Values"], {0.85, 0.40}],
GeoLabels -> (Tooltip[#1, #2] & ), ImageSize -> 300],
countydata = <|
Entity["AdministrativeDivision", {"Georgia", "UnitedStates"}] ->
30/100, Entity[
"AdministrativeDivision", {"Florida", "UnitedStates"}] ->
30/100, Entity[
"AdministrativeDivision", {"SouthCarolina", "UnitedStates"}] ->
50/100, Entity[
"AdministrativeDivision", {"NorthCarolina", "UnitedStates"}] ->
50/100|>;
GeoRegionValuePlot[countydata,
PlotRange -> {0, 1., {{-88, -70}, {23, 42}}},
ColorRules -> {0. -> Transparent, 100. -> Black},
ColorFunction -> "NeonColors",
ColorFunctionScaling -> False,
GeoRangePadding -> Quantity[300, "Kilometers"],
PlotLegends ->
Placed[BarLegend[Automatic, LegendFunction -> "Frame",
LegendLabel -> "Values"], {0.85, 0.40}],
GeoLabels -> (Tooltip[#1, #2] & ), ImageSize -> 300]}]
I've tried changing GeoFunctionScaling to no effect.
SAWilkus@gmail.com
Attachments: