Error in colorBin : could not find function "colorBin" (Leaflet)

[galuhchynintya]

Selamat pagi tim algoritma,
Saya sedang membuat interactive map menggunakan package leaflet. Tapi terdapat error saat create a color palette with handmade bins, dengan error : Error in colorBin(palette = "Greens", domain = my_sf_merged$Total.Sales, :
could not find function "colorBin". Mohon bantuannya untuk mengecek bagian mana yang masih kurang tepat sehingga terjadi error, terima kasih

Berikut detail syntax nya,
MAPS: STATE of US

# Geospatial data available at the json format
#dari web https://github.com/PublicaMundi/MappingAPI/blob/master/data/geojson/us-states.json klik raw untuk mendapatkan link raw data
US_json <- tempfile(fileext = ".json")

download.file(
  "https://raw.githubusercontent.com/PublicaMundi/MappingAPI/master/data/geojson/us-states.json",
  US_json
)
library(sf)
my_sf <- read_sf(US_json)
my_sf

Data frame

sales_state <- 
sales%>% 
  #filter(Region %in% "West") %>%
  group_by(State) %>% 
  summarise(Total.Sales = sum(Total.Sales)) %>% 
  arrange(-Total.Sales) %>% 
  mutate(label = glue("State: {State}
                      Total Sales: {comma(Total.Sales)}"))

Merge geospatial and numeric data

my_sf_merged <- sales_state %>%
  left_join(my_sf, by = c("State" = "name"))
my_sf_merged

Create a color palette with handmade bins.

mybins <- c(0, 1000000, 10000000, 30000000, 65000000)
mypalette <- colorBin(palette = "Greens", domain = my_sf_merged$Total.Sales, na.color = "transparent", bins = mybins)

Tooltip & Map

# Prepare the text for tooltips:
mytext <- paste(
  "State: ", my_sf_merged$State, "<br/>",
  "Total Sales:", {comma(my_sf_merged$Total.Sales)} ,"<br/>",
  sep = ""
) %>%
  lapply(htmltools::HTML)
# Final Map
#Data perlu dirubah ke bentuk sf lagi supaya R bisa membaca data geometry nya
my_sf_merged <- sf::st_as_sf(my_sf_merged)

m <- leaflet(my_sf_merged) %>%
  addTiles() %>%
  setView(lat = 50, lng = -100, zoom = 2.5) %>%
  addPolygons(
    fillColor = ~ mypalette(my_sf_merged$Total.Sales),
    stroke = TRUE,
    fillOpacity = 0.9,
    color = "white",
    weight = 0.3,
    label = mytext,
    labelOptions = labelOptions(
      style = list("font-weight" = "normal", padding = "3px 8px"),
      textsize = "13px",
      direction = "auto")  ) %>%
  addLegend(pal = mypalette, values = ~my_sf_merged$Total.Sales, opacity = 0.9,
    title = "Total Sales", position = "bottomleft")
m

[Yusraf002]

Dear @galuhchynintya

Terimakasih telah mengajukan pertanyaanya pada forum ini, mengenai error yang ibu alami disini kemungkinan karena belum diaktifkannya library leaflet. Ibu bisa coba aktifkan terlebih dahulu dengan menggunakna fungsi library(leaflet) sebelum pembuatan mypalette.

Bisa dicoba terlebih dahulu, Apabila jawaban ini membantu boleh mark as answer ya bu.

Best regards
Team Algoritma

[galuhchynintya]

Eh iya betul mas yusraf. Terima kasih atas koreksinya.