在 ggplot2 中表示彩色多边形

Question

我正在使用 statspat 包，因为我正在研究空间模式。我想用 ggplot 和颜色而不是数字来做（因为它不太可读），下图，使用 plot.quadratest 函数生成：Polygone

我对颜色强度感兴趣的数字是每个框底部的数字。
测试对象包含以下数据： Test object
我已经查看了函数的帮助，以及函数的代码，但我仍然无法管理它。
理想情况下，我希望我的最终图形看起来像这样（也许颜色不同哈哈）：

Final object

在此先感谢您的帮助。

Answer 1

以后请提供可重现的例子。软件包 reprex 可能很有帮助。

为此使用 ggplot2 我最好的选择是转换 spatstat 反对 sf 并以这种方式进行绘图，但这可能需要一些时间。如果你愿意使用base 图形和 spatstat 你可以做这样的事情：

library(spatstat)
# Data (using a built-in dataset):
X <- unmark(chorley)
plot(X, main = "")

# Test:
test <- quadrat.test(X, nx = 4)
# Default plot:
plot(test, main = "")

# Extract the the `quadratcount` object (regions with observed counts):
counts <- attr(test, "quadratcount")
# Convert to `tess` (raw regions with no numbers)
regions <- as.tess(counts)
# Add residuals as marks to the tessellation:
marks(regions) <- test$residuals
# Plot regions with marks as colors:
plot(regions, do.col = TRUE, main = "")

在 ggplot2 中表示彩色多边形

Represent a colored polygon in ggplot2

plot

polygon

spatstat