各ブロックの色に #FFCC00 などの 16 進数コードが与えられる ggmap でボロノイ分割をプロットしようとしています。これまでに思いついたコードは次のとおりです。
library(ggmap)
library(ggforce)
b <- get_map(c(2.09174, 50.52550, 7.36819, 53.68320),
maptype = "toner",
source = "stamen",
zoom = 8)
lon <- c(3.76779, 5.31313, 3.48031, 3.90727, 4.15682)
lat <- c(51.2219, 52.0808, 50.7684, 51.2684, 50.9502)
hex_col <- c("#5A586E", "#47967F", "#4EB22E", "#9E82C5", "#ADCFAD")
to_plot <- data.frame(lon, lat, hex_col)
ggmap(b, base_layer = ggplot(data = to_plot,
aes(x = lon,
y = lat))) +
geom_voronoi_tile(aes(fill = hex_col)) +
scale_fill_identity() +
geom_voronoi_segment()
ただし、fill = hex_colパラメーターを追加すると、エラー警告が表示されます。
Warning message:
Computation failed in `stat_voronoi_tile()`:
There is at most one point, data or dummy, inside
the given rectangular window. Thus there are
insufficiently many points to triangulate/tessellate.
パラメータを追加する前にマップがエラーなしで表示されるため、修正方法については不明です。したがって、私の質問: カスタムの色分けされたボロノイ テッセレーションを ggmap に追加するにはどうすればよいですか?
前もって感謝します！