I'm trying to specify rules for my plot, but they seem to be ignored by Mathematica:

GeoRegionValuePlot[{
  Entity["AdministrativeDivision", {"Arkansas", "UnitedStates"}] -> 1,
  Entity["AdministrativeDivision", {"California", "UnitedStates"}] -> 0,
  Entity["AdministrativeDivision", {"Connecticut", "UnitedStates"}] -> 2,  
  Entity["AdministrativeDivision", {"Illinois", "UnitedStates"}] -> 3,
  Entity["AdministrativeDivision", {"Maryland", "UnitedStates"}] -> 3,
  Entity["AdministrativeDivision", {"Massachusetts", "UnitedStates"}] -> 3,
  Entity["AdministrativeDivision", {"Montana", "UnitedStates"}] -> 0,
  Entity["AdministrativeDivision", {"NewYork", "UnitedStates"}] -> 0,
  Entity["AdministrativeDivision", {"NewJersey", "UnitedStates"}] -> 1,
  Entity["AdministrativeDivision", {"Ohio", "UnitedStates"}] -> 1,
  Entity["AdministrativeDivision", {"RhodeIsland", "UnitedStates"}] -> 2,
  Entity["AdministrativeDivision", {"Texas", "UnitedStates"}] -> 0,
  Entity["AdministrativeDivision", {"WestVirginia",  "UnitedStates"}] -> 0
  }, ColorRules -> {0 -> White, 1 -> Yellow, 2 -> Orange, 3 -> Red}]

gives the same output as if I had omitted the ColorRules options.

I also tried using a ColorFunction instead (defined using piecewise function), but still Mathematica does not gives the output that I want.

Any guidelines will be appreciated.