使用R网格包的行
我正在使用R和cygwin,并试图绘制一些基本图形。以下是Paul Murrell的一篇论文中的一个简单示例:使用R网格包的行,r,graphics,R,Graphics,我正在使用R和cygwin,并试图绘制一些基本图形。以下是Paul Murrell的一篇论文中的一个简单示例: library(grid) x <- rnorm(50) y <- x + rnorm(50, 1, 2) rx <- range(x) dx <- diff(rx) ry <- range(y) dy <- diff(ry) max <- max(rx, ry) min <- min(rx, ry) r <- c(min(rx,
library(grid)
x <- rnorm(50)
y <- x + rnorm(50, 1, 2)
rx <- range(x)
dx <- diff(rx)
ry <- range(y)
dy <- diff(ry)
max <- max(rx, ry)
min <- min(rx, ry)
r <- c(min(rx, ry), max(rx, ry))
d <- diff(r)
scale <- r + c(-1, 1) * d * 0.05
extscale <- c(min(scale), max(scale) + diff(scale) * 1/3)
lay <- grid.layout(2, 2,
widths = unit(c(3, 1), "inches"),
heights = unit(c(1, 3), "inches"))
vp1 <- viewport(w = unit(4, "inches"), h = unit(4, "inches"),
layout = lay, xscale = extscale, yscale = extscale)
grid.newpage()
pushViewport(vp1)
grid.rect()
grid.xaxis()
grid.text("Test", y = unit(-3, "lines"))
grid.yaxis()
grid.text("Retest", x = unit(-3, "lines"), rot = 90)
vp2 <- viewport(layout.pos.row = 2, layout.pos.col = 1,
xscale = scale, yscale = scale)
pushViewport(vp2)
grid.lines()
grid.points(x, y, gp = gpar(col = "blue"))
到处都是排队的人。我原以为这些线会把这些点按顺序连接起来。我写的一些代码也有类似的问题,但是这些代码中的线条很好,但点却没有
非常感谢您的帮助。谢谢。出于某种原因,
网格点()
和网格线()
有不同的“默认单位”。(这些单位分别是--“本机”
和“npc”
,在向函数传递无任何关联单位的数字向量时使用。)
快速解决方案是显式设置grid.lines()
的默认单位,以匹配grid.points()
使用的单位:
grid.lines(x, y, gp = gpar(col = "red"))
args(grid.lines)
# function (x = unit(c(0, 1), "npc"), y = unit(c(0, 1), "npc"),
# default.units = "npc", arrow = NULL, name = NULL, gp = gpar(),
# draw = TRUE, vp = NULL)
args(grid.points)
# function (x = stats::runif(10), y = stats::runif(10), pch = 1,
# size = unit(1, "char"), default.units = "native", name = NULL,
# gp = gpar(), draw = TRUE, vp = NULL)
grid.lines(x, y, gp = gpar(col = "red"), default.units = "native")