Question

我注意到ggplot2 geom_text() geom中的意外行为。如果将属性hjust和vjust指定为字符串，则R会返回强制错误，尽管这些图表似乎正常。 ggplot2-based package我正在开发这个问题。为简单起见，我创建了仍然产生错误的精简示例。

首先，我尝试使用qplot()

##qplot version
library(ggplot2)
p <- qplot(cty, hwy, 
           label = drv, 
           hjust = "right", 
           geom  = "text", 
           data  = mpg
)

print(p)

我收到了这个错误：

Warning message:
In validDetails.text(x) : NAs introduced by coercion

然后我用ggplot()尝试了它：

##ggplot version
library(ggplot2)
p <- ggplot(
          aes(x   = cty,
              y   = hwy
          ), data = mpg
)

p <- p + geom_text(
           aes(label = drv),
           hjust     = "right"
)

print(p)

并获得了相同的情节和相同的错误：

Warning message:
In validDetails.text(x) : NAs introduced by coercion

然后我尝试设置hjust和vjust：

library(ggplot2)
p <- ggplot(
          aes(x   = cty,
              y   = hwy
          ), data = mpg
)

p <- p + geom_text(
           aes(label = drv),
           hjust     = "right",
           vjust     = "top"
)

print(p)

使用字符串设置两个参数时，R返回两个强制错误：

Warning messages:
1: In validDetails.text(x) : NAs introduced by coercion
2: In validDetails.text(x) : NAs introduced by coercion

但是，当参数是数字时，R不会返回强制错误：

## Using numbers instead of strings
library(ggplot2)
p <- ggplot(
          aes(x   = cty,
              y   = hwy
          ), data = mpg
)

p <- p + geom_text(
           aes(label = drv),
           hjust     = 0,
           vjust     = 0,
           data      = mpg
)

print(p)

我不太确定为什么会这样，或者它是否重要，但我没想到。

ggplot2文件不同意

Hadley's book（第196页）说hjust和vjust 可以接受字符串参数：

字符串（或图例）的对齐定义了字符串中的位置   放置在给定位置的字符串。有两个值   用于水平和垂直对齐。值可以是：


字符串：“left”，“right”，“center”，“center”，“bottom”和“top”。

介于0和1之间的数字，给出字符串中的位置（从左下角开始）。

但是版本0.8.9中geom_text()的man文件说hjust和vjust是数字的，虽然不说他们可以仅是数字：

美学

以下美学可与geom_text一起使用。使用aes函数将美学映射到数据中的变量：geom_text（aes（x = var））


x：x位置（必填）

y：y位置（必填）

标签：文字标签（必填）

颜色：边框颜色

尺寸：尺寸

角度：角度

hjust：水平对齐，介于0和1之间

vjust：垂直对齐，介于0和1之间

alpha：transparency

Answer 1

所以，我不太了解WHAT CODE定义或消耗hjust / vjust，但是使用TextMate的“在项目中查找”（在ggplot2 / R /目录中）为hjust，我看不到任何行看起来就像它们是hjust的定义或实现一样......只是将它列为有效的aes以及它传递的位置。

这让我想去看格...

http://stat.ethz.ch/R-manual/R-patched/library/grid/html/grid.text.html

这使我想要了解更多关于如何定义grid.text的信息

R> grid.text

function (label, x = unit(0.5, "npc"), y = unit(0.5, "npc"), 
    just = "centre", hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, 
    default.units = "npc", name = NULL, gp = gpar(), draw = TRUE, 
    vp = NULL) 
{
    tg <- textGrob(label = label, x = x, y = y, just = just, 
        hjust = hjust, vjust = vjust, rot = rot, check.overlap = check.overlap, 
        default.units = default.units, name = name, gp = gp, 
        vp = vp)
    if (draw) 
        grid.draw(tg)
    invisible(tg)
}
<environment: namespace:grid>

所以，它是一个textGrob，只是，hjust和vjust只是被传递到它...关闭到textGrob

R> textGrob
function (label, x = unit(0.5, "npc"), y = unit(0.5, "npc"), 
    just = "centre", hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, 
    default.units = "npc", name = NULL, gp = gpar(), vp = NULL) 
{
    if (!is.unit(x)) 
        x <- unit(x, default.units)
    if (!is.unit(y)) 
        y <- unit(y, default.units)
    grob(label = label, x = x, y = y, just = just, hjust = hjust, 
        vjust = vjust, rot = rot, check.overlap = check.overlap, 
        name = name, gp = gp, vp = vp, cl = "text")
}
<environment: namespace:grid>

所以，这是一个grob ........... off to grob ......

R> grob
function (..., name = NULL, gp = NULL, vp = NULL, cl = NULL) 
{
    g <- list(..., name = name, gp = gp, vp = vp)
    if (!is.null(cl) && !is.character(cl)) 
        stop("Invalid 'grob' class")
    class(g) <- c(cl, "grob", "gDesc")
    validGrob(g)
}
<environment: namespace:grid>

那里没有什么帮助，所以我谷歌

R grid hjust vjust

在重写Google的搜索自动更正后，我找到了

http://rwiki.sciviews.org/doku.php?id=tips:graphics-grid:hvjust

回顾哈德利的书，我注意到p.196参考文献实际上并没有提出正确的意见。只是为了辩解。

阅读

的文档

R> ?textGrob

我明白了

just     The justification of the text relative to its (x, y) location. If there are two values, the first value specifies horizontal justification and the second value specifies vertical justification. Possible string values are: "left", "right", "centre", "center", "bottom", and "top". For numeric values, 0 means left alignment and 1 means right alignment.
hjust    A numeric vector specifying horizontal justification. If specified, overrides the just setting.
vjust    A numeric vector specifying vertical justification. If specified, overrides the just setting.

所以，这是我的想法。

just参数可以是字符串或数字
hjust和vjust只是数字，只能覆盖
如果您尝试为它们使用字符串，它可能“有效”，但会发出警告

所以，让我们看一下grid.text演示代码，特别是draw.text函数，它们只使用它们，并且似乎成功地使用字符串值：

grid.newpage()
x <- stats::runif(20)
y <- stats::runif(20)
rot <- stats::runif(20, 0, 360)
grid.text("SOMETHING NICE AND BIG", x=x, y=y, rot=rot,
          gp=gpar(fontsize=20, col="grey"))
grid.text("SOMETHING NICE AND BIG", x=x, y=y, rot=rot,
          gp=gpar(fontsize=20), check=TRUE)
grid.newpage()

draw.text <- function(just, i, j) {
  grid.text("ABCD", x=x[j], y=y[i], just=just)
  grid.text(deparse(substitute(just)), x=x[j], y=y[i] + unit(2, "lines"),
            gp=gpar(col="grey", fontsize=8))
}

x <- unit(1:4/5, "npc")
y <- unit(1:4/5, "npc")
grid.grill(h=y, v=x, gp=gpar(col="grey"))
draw.text(c("bottom"), 1, 1)
draw.text(c("left", "bottom"), 2, 1)
draw.text(c("right", "bottom"), 3, 1)
draw.text(c("centre", "bottom"), 4, 1)
draw.text(c("centre"), 1, 2)
draw.text(c("left", "centre"), 2, 2)
draw.text(c("right", "centre"), 3, 2)
draw.text(c("centre", "centre"), 4, 2)
draw.text(c("top"), 1, 3)
draw.text(c("left", "top"), 2, 3)
draw.text(c("right", "top"), 3, 3)
draw.text(c("centre", "top"), 4, 3)
draw.text(c(), 1, 4)
draw.text(c("left"), 2, 4)
draw.text(c("right"), 3, 4)
draw.text(c("centre"), 4, 4)

现在注意一下，如果我改变draw.text以使用hjust和vjust AS STRINGS

grid.newpage()
x <- stats::runif(20)
y <- stats::runif(20)
rot <- stats::runif(20, 0, 360)
grid.text("SOMETHING NICE AND BIG", x=x, y=y, rot=rot,
          gp=gpar(fontsize=20, col="grey"))
grid.text("SOMETHING NICE AND BIG", x=x, y=y, rot=rot,
          gp=gpar(fontsize=20), check=TRUE)
grid.newpage()

draw.text <- function(just, i, j) {
  grid.text("ABCD", x=x[j], y=y[i], hjust=just[1], vjust=just[2])
  grid.text(deparse(substitute(just)), x=x[j], y=y[i] + unit(2, "lines"),
            gp=gpar(col="grey", fontsize=8))
}  

x <- unit(1:4/5, "npc")
y <- unit(1:4/5, "npc")
grid.grill(h=y, v=x, gp=gpar(col="grey"))
draw.text(c("bottom"), 1, 1)
draw.text(c("left", "bottom"), 2, 1)
draw.text(c("right", "bottom"), 3, 1)
draw.text(c("centre", "bottom"), 4, 1)
draw.text(c("centre"), 1, 2)
draw.text(c("left", "centre"), 2, 2)
draw.text(c("right", "centre"), 3, 2)
draw.text(c("centre", "centre"), 4, 2)
draw.text(c("top"), 1, 3)
draw.text(c("left", "top"), 2, 3)
draw.text(c("right", "top"), 3, 3)
draw.text(c("centre", "top"), 4, 3)
draw.text(c(), 1, 4)
draw.text(c("left"), 2, 4)
draw.text(c("right"), 3, 4)
draw.text(c("centre"), 4, 4)

长话短说：我认为当你使用hjust或vjust作为字符串时，你违反了文档（它的值应该是数字0＆lt; = x＆lt; = 1），如果你想使用它字符串，你必须使用just参数....

Answer 2

hjust和vjust应为数字，请查看手册（?geom_text）：

hjust'：水平对齐，介于0和1之间
'vjust'：垂直对齐，介于0和1之间

当hjust和vjust是字符串时，为什么geom_text（）会抛出强制错误？

ggplot2文件不同意

2 个答案: