R语言:grid.locator()函数中文帮助文档(中英文对照)

loveR

grid.locator(grid)
grid.locator()所属R语言包：grid

                                         Capture a Mouse Click
                                         捕获鼠标点击

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Allows the user to click the mouse once within the current graphics device and returns the location of the mouse click within the current viewport, in the specified coordinate system.
允许用户一次点击鼠标，在当前的图形设备和返回位置，点击鼠标，在指定的坐标系，在当前视口中。


用法----------Usage----------


grid.locator(unit = "native")



参数----------Arguments----------

参数：unit
The coordinate system in which to return the location of the mouse click. See the unit function for valid coordinate systems.
坐标系统，在返回的鼠标点击的位置。见unit有效的坐标系统功能。


Details

详情----------Details----------

This function is modal (like the graphics package function locator) so the command line and graphics drawing is blocked until the use has clicked the mouse  in the current device.
此功能是模态（如图形软件包的功能locator），使被阻塞，直到使用点击鼠标在当前设备的命令行和图形绘制。


值----------Value----------

A unit object representing the location of the mouse click within the current viewport, in the specified coordinate system.
A股对象代表鼠标的位置单击当前视口内，在指定的坐标系。

If the user did not click mouse button 1, the function (invisibly) returns NULL.
如果用户没有点击鼠标按钮1，函数（不可见）返回NULL。


作者（S）----------Author(s)----------


Paul Murrell



参见----------See Also----------

viewport, unit, locator in package graphics, and for an application see trellis.focus and panel.identify in package lattice.
viewport，unit，locator包graphics，和应用程序包trellis.focuspanel.identify和lattice。


举例----------Examples----------


if (interactive()) {
  ## Need to write a more sophisticated unit as.character method[＃需要写一个更复杂的单位as.character方法]
  unittrim <- function(unit) {
    sub("^([0-9]+|[0-9]+[.][0-9])[0-9]*", "\\1", as.character(unit))
  }
  do.click <- function(unit) {
    click.locn <- grid.locator(unit)
    grid.segments(unit.c(click.locn$x, unit(0, "npc")),
                  unit.c(unit(0, "npc"), click.locn$y),
                  click.locn$x, click.locn$y,
                  gp=gpar(lty="dashed", col="grey"))
    grid.points(click.locn$x, click.locn$y, pch=16, size=unit(1, "mm"))
    clickx <- unittrim(click.locn$x)
    clicky <- unittrim(click.locn$y)
    grid.text(paste("(", clickx, ", ", clicky, ")", sep=""),
              click.locn$x + unit(2, "mm"), click.locn$y,
              just="left")
  }
  do.click("inches")
  pushViewport(viewport(width=0.5, height=0.5,
                         xscale=c(0, 100), yscale=c(0, 10)))
  grid.rect()
  grid.xaxis()
  grid.yaxis()
  do.click("native")
  popViewport()  
}

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。