我想将样本大小值与绘图上的点相关联。我可以geom_text用来将数字定位在点附近，但这很混乱。将它们沿着地块的外部边缘对齐会更清洁。
例如，我有：
df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))
ggplot(df,aes(x=x,y=y,label=n))+geom_point()+geom_text(size=8,hjust=-0.5)
产生此图：
我更喜欢这样的东西：
我知道我可以创建第二个图并使用grid.arrange（la la post），但是确定textGrobs的间距与y轴对齐将很繁琐。有没有更简单的方法可以做到这一点？谢谢！
devtools：call: if (!version_match) { error: argument is of length zero。
Answers:
您无需绘制第二个图。您可以使用annotation_custom将grob放置在绘图区域内或外的任何位置。齿轮的定位是根据数据坐标进行的。假设“ 5”，“ 10”，“ 15”与“ cat1”，“ cat2”，“ cat3”对齐，则考虑了textGrobs的垂直位置-三个textGrobs的y坐标由三个数据点的y坐标。默认情况下，ggplot2剪辑会切换到绘图区域，但是可以覆盖剪辑。需要扩大相关的余量，以便为grob腾出空间。以下内容（使用ggplot2 0.9.2）给出了类似于第二个图的图：
library (ggplot2)
library(grid)
df=data.frame(y=c("cat1","cat2","cat3"),x=c(12,10,14),n=c(5,15,20))
p <- ggplot(df, aes(x,y)) + geom_point() + # Base plot
theme(plot.margin = unit(c(1,3,1,1), "lines")) # Make room for the grob
for (i in 1:length(df$n)) {
p <- p + annotation_custom(
grob = textGrob(label = df$n[i], hjust = 0, gp = gpar(cex = 1.5)),
ymin = df$y[i], # Vertical position of the textGrob
ymax = df$y[i],
xmin = 14.3, # Note: The grobs are positioned outside the plot area
xmax = 14.3)
}
# Code to override clipping
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.draw(gt)
p = p + geom_text(aes(label = n, x = Inf, y = y), hjust = -1)。然后关闭剪辑。虽然对齐可能会略有偏离。
xlim.range <- ggplot_build(plot)$panel$ranges[[1]]$x.range。然后，我将其用作x位置：x = xlim.range[1] - diff(xlim.range)/10 它起作用了！
ggplot2 3.0.0现在很简单，因为现在可以通过使用clip = 'off'坐标函数（例如coord_cartesian(clip = 'off')或）中的参数在绘图中禁用裁剪coord_fixed(clip = 'off')。这是下面的例子。
# Generate data
df <- data.frame(y=c("cat1","cat2","cat3"),
x=c(12,10,14),
n=c(5,15,20))
# Create the plot
ggplot(df,aes(x=x,y=y,label=n)) +
geom_point()+
geom_text(x = 14.25, # Set the position of the text to always be at '14.25'
hjust = 0,
size = 8) +
coord_cartesian(xlim = c(10, 14), # This focuses the x-axis on the range of interest
clip = 'off') + # This keeps the labels from disappearing
theme(plot.margin = unit(c(1,3,1,1), "lines")) # This widens the right margin
ylim相反的位置或xlim
clip = off也可以称为@ coord_flip（并且我也假定为coord_ x）。coord_cartesian(clip = 'off')对我来说，添加不是解决方案coord_flip。
coord_polar
Simplier解决方案基于 grid
require(grid)
df = data.frame(y = c("cat1", "cat2", "cat3"), x = c(12, 10, 14), n = c(5, 15, 20))
p <- ggplot(df, aes(x, y)) + geom_point() + # Base plot
theme(plot.margin = unit(c(1, 3, 1, 1), "lines"))
p
grid.text("20", x = unit(0.91, "npc"), y = unit(0.80, "npc"))
grid.text("15", x = unit(0.91, "npc"), y = unit(0.56, "npc"))
grid.text("5", x = unit(0.91, "npc"), y = unit(0.31, "npc"))