当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


R grid 将网格添加到绘图中


R语言 grid 位于 graphics 包(package)。

说明

gridnxny 矩形网格添加到现有绘图中。

用法

grid(nx = NULL, ny = nx, col = "lightgray", lty = "dotted",
     lwd = par("lwd"), equilogs = TRUE)

参数

nx , ny

x 和 y 方向上网格的单元数。当 NULL 时,默认情况下,网格与相应默认轴上的刻度线对齐(即由 axTicks 计算的刻度线)。当 NA 时,相应方向不绘制网格线。

col

字符或(整数)数字;网格线的颜色。

lty

字符或(整数)数字;网格线的线型。

lwd

给出网格线宽度的非负数字。

equilogs

逻辑,仅当日志坐标和与轴刻度线的对齐处于活动状态时使用。在这种情况下设置equilogs = FALSE会给出非等距刻度对齐的网格线。

注意

如果需要更精细的调整,请直接使用abline(h = ., v = .)

例子

plot(1:3)
grid(NA, 5, lwd = 2) # grid only in y-direction

## maybe change the desired number of tick marks:  par(lab = c(mx, my, 7))
op <- par(mfcol = 1:2)
with(iris,
     {
     plot(Sepal.Length, Sepal.Width, col = as.integer(Species),
          xlim = c(4, 8), ylim = c(2, 4.5), panel.first = grid(),
          main = "with(iris,  plot(...., panel.first = grid(), ..) )")
     plot(Sepal.Length, Sepal.Width, col = as.integer(Species),
          panel.first = grid(3, lty = 1, lwd = 2),
          main = "... panel.first = grid(3, lty = 1, lwd = 2), ..")
     }
    )
par(op)

plot(1:64)
gr <- grid() # now *invisibly* returns the grid "at" locations
str(gr)
stopifnot(length(gr) == 2, identical(gr[[1]], gr[[2]]),
          gr[["atx"]] == 10*(0:6))

## In log-scale plots :
plot(8:270, log="xy") ; grid() # at (1, 10, 100); if preferring "all" grid lines:
plot(8:270, log="xy") ; grid(equilogs = FALSE) -> grll
stopifnot(identical(grll, list(atx = c(1, 2, 5, 10, 20, 50, 100, 200),
                               aty = c(         10, 20, 50, 100, 200))))

参考

Murrell, P. (2005) R Graphics. Chapman & Hall/CRC Press.

也可以看看

plotablinelinespoints

相关用法


注:本文由纯净天空筛选整理自R-devel大神的英文原创作品 Add Grid to a Plot。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。