无法指定图例放置

Question

我正在根据光栅文件绘制地图。我希望我的图例默认位于情节本身内部而不是外部。我正在使用此代码：

library(raster)
library(rgdal)
library(classInt)

NDII = raster("G:\Sheyenne\image_differencing\NDII\differenced.tif")
value.vector = round(values(NDII),2)
breaks.qt = classIntervals(value.vector, n = 3, style = "quantile", intervalClosure = "right")
breaks.qt = breaks.qt$brks
breaks.qt[2] = 0
xlim = c(616768.4, 646426)
ylim = c(5130933, 5159682)
print (plot(NDII, main="NDII", breaks=breaks.qt, col = rainbow(3), axes=F, xlim=xlim, ylim=ylim))
legend("topright")

但是这个returns:

Answer 1

这是一个可重现的例子

二进制数据示例

r <- raster(nrows = 50, ncols = 50)
set.seed(123)
id <- sample(1:2500, 100, replace = FALSE)
r[id] <- 1
plot(r)

现在使用 legend = FALSE 并在

之后添加图例

plot(r, legend = FALSE, col = rev(terrain.colors(2)))
legend("topright", legend = c("Absence", "Presence"), fill = rev(terrain.colors(2)))

连续数据示例

r <- raster(nrows=10, ncols=10)
r <- setValues(r, 1:ncell(r))


plot(r, legend = FALSE, col = rev(terrain.colors(5)))
legend("topright", fill = rev(terrain.colors(5)),  legend = c("0", "20", "40", "60", "80", "100"))

无法指定图例放置

Unable to specify legend placement

r

raster

二进制数据示例

连续数据示例