1

所以设置是这样的：

dat <- data.frame(a = c("longnameonthelefthandside"), b = c(sample(10))) 
p <- ggplot(dat, aes(b,a)) + geom_point() + xlab("label")

我可以通过将unit对象传递给来调整 x 轴标签hjust：

p + opts(axis.title.x=theme_text(size=12,hjust=unit(0.3,"npc")))

但是有一些关于添加单元对象（可能，根据 ?unit）我没有掌握：

u1 <- unit(0.5,"npc")
u2 <- unit(0.25,"npc")
p + opts(axis.title.x=theme_text(size=12,hjust=u1+u2))

产生以下错误：

Error in grid.Call("L_textBounds", as.graphicsAnnot(x$label), x$x, x$y,  : 
Polygon edge not found
In addition: Warning message:
In validDetails.text(x) : NAs introduced by coercion

作为进一步的背景，我试图通过 Baptiste 拼凑一个有点神秘的解决方法here

4

2 回答 2

2

Probably unit for hjust is implicitly converted to numeric on the way to drawing. So, try this:

grid.lines(c(0.5, 0.5))
grid.text("orzorzorz", y=0.4, hjust=unit(0.25, "npc"))
grid.text("orzorzorz", y=0.5, hjust=unit(0.25, "mm"))
grid.text("orzorzorz", y=0.6, hjust=unit(0.25, "cm"))
grid.text("orzorzorz", y=0.7, hjust=0.25)

and why the u1+u2 induces the error is that:

> c(u1+u2)
$fname
[1] "+"

$arg1
[1] 0.5npc

$arg2
[1] 0.25npc

definitely this cannot be converted into numeric.

so, convertUnit is a workaround, but simply, hjust = c(u1)+c(u2) is sufficient.

于 2011-06-23T16:27:09.323 回答
2

Baptiste 的代码包括对convertUnit. 一旦你把它放回你的代码，它会产生一个情节：

p + opts(
  axis.title.x=theme_text(size=12,hjust=convertUnit(u1+u2, "npc", value=TRUE))
)
于 2011-06-23T16:21:42.010 回答