4

以下に示すように、プロット領域の右側から一定の距離にテキストを配置するための普遍的な方法を見つけるのを手伝ってください。プロット領域は右側で狭くなっているため、残念ながら、現在の配置計算ではテキストが左側に配置されすぎています。テキストが右揃えになっていることに注意してください。

私の最後のアイデア：たとえば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)
4

1 に答える 1

3

すべてに名前が付けられているため、 グリッド関数を使用してプロットの任意のコンポーネントにアクセスできます。

問題は、ggplot2がプロットを描画するときに多くのビューポートとグロブを作成することです。したがって、このプロットに変更を加えるのは簡単ではありません。また、プロットを新しく実行するたびに、グロブとビューポートの名前が変わることにも気づきました。そこで、いくつかの基準でビューポートを取得しようとしました（ここでは深さ= 4）

#Get the viewports: 
scene.vps <- grid.ls(viewports=T,grobs=F)
scene.flat <- as.data.frame(do.call('cbind',scene.vps))
vps <- subset(scene.flat ,vpDepth == '4')$name[1:2]
vps <- as.character(vps)


# modify the plot by grid.text
depth <- downViewport(vps[1])
grid.text("1.1|",x=unit(1, "npc") - unit(1, "mm"),
                 y=unit(1, "npc") - unit(20, "mm"),
                 just=c("right", "top"))

grid.text("10.1|",x=unit(1, "npc") - unit(1, "mm"),
                  y=unit(1, "npc") - unit(60, "mm"),
                  just=c("right", "top"))

grid.text("Texttexttext|",x=unit(1, "npc") - unit(10, "mm"),
                          y=unit(1, "npc") -unit(2,'mm'),
          just=c("right", "top"))

upViewport(depth)  # come back to the root viewport

depth <- downViewport(vps[2])

grid.text(...

ここに画像の説明を入力してください

于 2012-12-15T06:13:23.023 に答える