R Legend.only=T时的图例属性（光栅包）

仅打印图例时（光栅对象的图例-彩色条）：

---

如何控制图例轴标签大小、记号长度和其他图例属性？我知道我可以在最后一次调用

plot（）

之前调用

par（…）

，但是有更干净的方法吗？

您可以将

axis.args

和

legend.args

作为参数传递给

fields

包中的纯图例函数调用

例如，要指定记号位置和标签，并减小记号标签的大小，应执行以下操作。它还将接受诸如

legend.width

和

legend.shrink

之类的参数

require(raster)
data(volcano)
r <- raster(volcano)
plot(r, col=topo.colors(100), legend=FALSE, axes=FALSE)
r.range <- c(minValue(r), maxValue(r))
plot(r, legend.only=TRUE, col=topo.colors(100),
     legend.width=1, legend.shrink=0.75,
     axis.args=list(at=seq(r.range[1], r.range[2], 25),
                    labels=seq(r.range[1], r.range[2], 25), 
                    cex.axis=0.6),
     legend.args=list(text='Elevation (m)', side=4, font=2, line=2.5, cex=0.8))

require（光栅）
数据（火山）
r当“legend.only=TRUE”时，也可以使用“smallplot”参数。从绘图区域的左下角开始的小工程smallplot=c（从左侧开始的最小百分比，从左侧开始的最大百分比，从底部开始的最小百分比，从底部开始的最大百分比）

#加载数据和绘图
需要（光栅）；数据（火山）；r谢谢，那正是我想要的，但找不到。谢谢，终于！！R有时是如此反直觉。。。为什么普通绘图部件不工作…酷！有没有办法编辑图例中文本的颜色？
require(raster)
data(volcano)
r <- raster(volcano)
plot(r, col=topo.colors(100), legend=FALSE, axes=FALSE)
r.range <- c(minValue(r), maxValue(r))
plot(r, legend.only=TRUE, col=topo.colors(100),
     legend.width=1, legend.shrink=0.75,
     axis.args=list(at=seq(r.range[1], r.range[2], 25),
                    labels=seq(r.range[1], r.range[2], 25), 
                    cex.axis=0.6),
     legend.args=list(text='Elevation (m)', side=4, font=2, line=2.5, cex=0.8))

# load data & plot
require(raster); data(volcano); r <- raster(volcano)
plot(r, col=topo.colors(100), legend=FALSE, axes=FALSE)
r.range <- c(minValue(r), maxValue(r))

plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
    smallplot=c(0,.09, .3,.75)); par(mar = par("mar"))

plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
    smallplot=c(0.3,0.5, 0.2,0.7)); par(mar = par("mar"))

plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
    smallplot=c(0.85,0.9, 0.7,0.9)); par(mar = par("mar"))

plot(r, legend.only=TRUE, col=topo.colors(100), legend.width=1, legend.shrink=0.75,
    smallplot=c(0.7,0.90, 0.05,0.2)); par(mar = par("mar"))