如何在spatspat的plot.tess中控制像素颜色？

Question

我正在制作一个心形内的随机点的镶嵌，我很难弄清楚如何控制图中像素的颜色。我认为当plot(tess) (在本例中)生成图像值的绘图时，我可以通过在色带中指定相同数量的颜色来控制它们，但事实并非如此。

library(spatstat)

t <- seq(from = 2*pi, to = 0.001, length.out = 1500)
x <- 16*sin(t)**3
y <- 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t) #heart equation taken from wolfram http://mathworld.wolfram.com/HeartCurve.html.
heart_win <- owin(poly = cbind(x,y)) #note - not self enclosed

#random sample of points within heart
points <- rpoint(100, win = heart_win)
tess <- dirichlet(points)
plot(tess, main = ' ')

#color for 100 values
norm_palette <- colorRampPalette(c("white","red"))
plot(tess, main = ' ', col=norm_palette(100), valuesAreColours = FALSE)

这将生成下面的图像：

​

​

是的，我就是那个直到情人节那天才给他妻子做情人节礼物的人(别批评我)！

Answer 1

您不会调用tess对象中的结果图像。只需将您的绘图调用更改为：

plot(tess$image, main="", col=colorRampPalette(c("white","red"))(tess$n), valuesAreColours=FALSE)

Answer 2

即使我不送礼物给我的妻子，我今天也不会送礼物，你可以试试这个：

 plot(tess$image,col=norm_palette(100))

​

​