请帮助我找到一种通用方法,将文本放置在距绘图区域右侧恒定距离的位置,如下图所示。由于绘图区域在右侧较窄,不幸的是,当前位置计算将文本定位在左侧太远。请注意,文本是右对齐的。
我的最后一个想法:如果我们知道 x=1 和 x=2 之间的距离(以厘米为单位),我们就可以轻松计算出位置。不幸的是,要达到那个距离 显然并不容易。
仅供参考:我不想给这些线条贴标签。
library(ggplot2)
library(reshape)
library(gridExtra)
df = data.frame(x =(1:3),One=c(12, 8, 13),Two=c(13, 7, 11),Three=c(11, 9, 11))
df.melt = melt(df, id.vars="x")
xmax = max(df.melt$x); xmin = min(df.melt$x)
ymax = max(df.melt$value); ymin = min(df.melt$value)
dfa = data.frame(x=(xmax-xmin)*1.15+xmin, y=c(11,12,13.5), ann=c("10.1|","1.1|","Texttexttext|"))
dfa.melt = melt(dfa, id.vars=c("x","ann"))
p = ggplot() +
geom_line(data=df.melt, aes(x=x, y=value, color=variable), show_guide=F) +
geom_text(data=dfa.melt, aes(x=x, y=value, hjust = 1, label=ann), size=3) +
coord_cartesian(xlim=c(xmin,xmax), ylim=c(ymin,ymax))
p1 = p + theme(plot.margin=unit(c(1,3,0,0),"cm"), axis.text.y=element_text(size=10))
p2 = p + theme(plot.margin=unit(c(1,3,0,3),"cm"), axis.text.y=element_text(size=35))
p1c <- ggplot_gtable(ggplot_build(p1))
p1c$layout$clip[p1c$layout$name=="panel"] <- "off"
p2c <- ggplot_gtable(ggplot_build(p2))
p2c$layout$clip[p2c$layout$name=="panel"] <- "off"
grid.arrange(p1c, p2c, ncol=2)