rp.line(rpanel)
rp.line()所属R语言包:rpanel
Draws a line on an rpanel image
画一条直线上的rpanel图像
译者:生物统计家园网 机器人LoveR
描述----------Description----------
This draws a line connecting the pixel locations x1, y1 to x2, y2 on the specified image. The colour and width of the line can be controlled.
绘制指定的图像上的线连接的像素位置X1,Y1,X2,Y2。的线的颜色和宽度可以被控制。
用法----------Usage----------
rp.line(panel, image, x1, y1, x2, y2, ..., color = "black", width = 2, id = 'rpline')
参数----------Arguments----------
参数:panel
the panel containing the image. This may be passed as a panelname string or the panel object itself.
面板包含图像。这可能是通过作为一个panelname的字符串或面板对象本身。
参数:image
the image on which the line should be drawn.
其上的线应绘制的图像。
参数:x1
the horizontal first position of start of the line in pixel co-ordinates.
水平的第一位置开始的行中的像素坐标。
参数:y1
the vertical first position of start of the line in pixel co-ordinates.
垂直的第一位置开始的行中的像素坐标。
参数:x2
the horizontal final position of end of the line in pixel co-ordinates.
端的行中的像素坐标的水平的最终位置。
参数:y2
the vertical final position of end of the line in pixel co-ordinates.
最终的垂直位置的端部的线在像素坐标。
参数:...
any further parameters.
任何进一步的参数。
参数:color
the colour of the line. The default is "black".
线的颜色。默认值是“黑”。
参数:width
the width of the line. The default is 2.
线的宽度。默认值是2。
参数:id
the identifier of the line created.
行标识符的创建。
Details
详细信息----------Details----------
The function action should take one argument, which should be the panel to which the line is attached.
函数action应该接受一个参数,这应该是面板线连接。
值----------Value----------
If the parameter panel is the panelname string the same string is returned. If the panel object is used the altered panel is assigned to both the calling level and panel's environment level.
如果该参数面板是panelname的的字符串相同的字符串返回。如果面板对象是用来改变的面板被分配到的层次和面板的环境。
参考文献----------References----------
rpanel: Simple interactive controls for R functions using the tcltk package. Journal of Statistical Software, 17, issue 9.
参见----------See Also----------
rp.tkrplot,rp.image
rp.tkrplot,rp.image
实例----------Examples----------
if (interactive()) {
click.capture <- function(panel,x,y) {
if (is.null(panel$x)) {
panel$x <- as.numeric(x)
panel$y <- as.numeric(y)
}
else {
rp.line(panel, gulls.image, panel$x, panel$y, as.numeric(x), as.numeric(y), width=3, id = "current")
panel$x <- as.numeric(x)
panel$y <- as.numeric(y)
}
panel
}
gulls.panel <- rp.control()
image.file <- file.path(system.file(package = "rpanel"), "images", "gulllmks.gif")
rp.image(gulls.panel, image.file, id = "gulls.image", action = click.capture)
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|