library(dplyr)
hom <- read.csv("./hom.csv", stringsAsFactors=FALSE)
hom$rate <- round(hom$rate,3)
cuts <- 6
dat <- transform(hom, fillKey = cut(rate, breaks = cuts, dig.lab = 2))
#dat$states <- dat$name
keyNames <- levels(dat$fillKey)
fill <- setNames( RColorBrewer::brewer.pal(cuts, 'YlOrRd'), keyNames)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.