library(ggplot2)
data(georgia)
x <- log(georgia$income)
w <- shape2mat(georgia, "W")
lisa <- lg(x, w)
hist(lisa)
ggplot(georgia) +
geom_sf(aes(fill = lisa)) +
scale_fill_gradient(high = "navy",
low = "white")
## or try: scale_fill_viridis()
Run the code above in your browser using DataLab