Цвета не слишком сильно отличаются от других в листовке в блестящей

Question

У меня есть данные, и я хочу разместить всю информацию на листовке, и я сделал это. Однако, когда я добавляю цвета на листовки, я обнаружил, что распределение цветов довольно экстремальное. Предположим, я хочу изменить цвет с зеленого на красный, однако маркер на карте будет показывать только этический зеленый или красный (без промежуточного цвета). Возможно, причина в том, что разница значений слишком велика.

https://github.com/YibeiNiu/marker-color/blob/master/1.png У меня нет 10 репутации, поэтому я не могу публиковать изображения. Это ссылка на изображение. Это значение по умолчанию, а цвет и радиус зависят от значения маркера. https://github.com/YibeiNiu/marker-color/blob/master/2.png Это то, что я сделал до сих пор, трудно увидеть небольшое значение маркеров (так как они слишком маленькие и зеленого цвета.) Разница в значениях составляет 1-100000. https://github.com/YibeiNiu/marker-color/blob/master/3.png Это еще один, который я сделал с небольшим набором данных тем же методом. И разница значений невелика (около 0,08-0,27)

mapData = reactive({
    mapDataframe = newLocationData %>%
      group_by(Year.ending.December,Postcode,`Suburb/Town.Name`,longitude,latitude) %>%
      summarise(Incidents.Recorded = sum(Incidents.Recorded)) %>%
      as.data.frame() %>%
      subset(.[,"Year.ending.December"] %in% input$selectYear_hm)

    long = mapDataframe$longitude
    n = grep("NULL",long)
    All = c(n)
    mapDataframe = mapDataframe[-All,]

    mapDataframe = within(mapDataframe, colorpad <- sqrt(sqrt(Incidents.Recorded))/50) #Try to reduce the difference between min and max.
  })

output$map = renderLeaflet({ # create leaflet map
    ra = input$selectRadius_hm
    col1 <- colorFactor(palette = c("green","red"), mapData()$`colorpad`)

    map1 = leaflet(data = mapData()) %>% addTiles() %>%
        addCircleMarkers(
          ~as.numeric(longitude), 
          ~as.numeric(latitude), 
          popup = ~as.character(`Suburb/Town.Name`),
          label = ~paste(`Suburb/Town.Name`,"Crime 
    Number=",round(`Incidents.Recorded`,0),"Times"),
          stroke = FALSE,
          fillOpacity = 0.8,
          radius = (~mapData()$`Incidents.Recorded` * ra),
          layerId = ~mapData()$`Suburb/Town.Name`,
          color = ~col1(colorpad)
        )

Любой может сделать мой маркер более разборчивым.