ggplot2プロットに基づいて極座標に第2キャプションを追加

Question

ggplot2を使用して円グラフを再作成するように求められましたが、プロットに2番目のキャプションを追加することが困難です。私はプロットの左下にキャプションが必要ですと右下。

1またはキャプションの配置のためhjustオプション（0左整列のために、1右揃え用）を使用して、他の得ることができます私の現在のアプローチ：

library(ggplot2) 
dat <- data.frame(variable = c("V1", "V2", "V3"), 
        value = c(.80,.50,.63)) 
p1 <- ggplot(dat, 
      aes(x = 1, y = value, fill = variable)) + 
    geom_bar(stat = "identity") + 
    coord_polar(theta = "y") + 
    theme(legend.position = 'none', 
     plot.caption = element_text(hjust = 1)) + 
    labs(caption = "RIGHT CAPTION") 

print(p1) 

これは、生産を：

私はannotate()を使用するいくつかのアプローチを見てきましたが、私はそれらをcoord_polar()と動作させるように見えません。

プロットの左側に2番目のキャプションを表示する方法を知っている人はいますか（水平に正しいキャプションに揃えられていますか）たぶん、左のキャプションだけを持つ空白のレイヤーをオーバーレイすることは可能ですか？

Answer 1

gridパッケージを使用すると、左側のキャプションを含むテキストgrobを追加することができます。

library(ggplot2) 
library(grid) 
dat <- data.frame(variable=c("V1", "V2", "V3"), value=c(.80,.50,.63)) 

p1 <- ggplot(dat, aes(x = 1, y = value, fill = variable)) + 
    geom_bar(stat = "identity") + 
    coord_polar(theta = "y") + 
    theme(legend.position='none', plot.caption=element_text(hjust=1)) + 
    labs(caption="RIGHT CAPTION") 

# Generate a ggplot2 plot grob 
p2 <- ggplotGrob(p1) 
# Find the grob tree containing the right caption (as child) 
k <- which(p2$layout$name=="caption") 
# Copy the "right caption" text grob in grbTxt 
grbTxt <- p2$grobs[[k]]$children[[1]] 

# Modify content and position of the text grob 
grbTxt$label <- "LEFT CAPTION" 
grbTxt$name <- "GRID.text.left" 
grbTxt$x <- unit(0,"npc") 
grbTxt$hjust <- 0 
grbTxt$gp$col <- "red" 

# Add grbTxt (left caption) to the title grob containing the right caption 
p2$grobs[[k]] <- addGrob(p2$grobs[[k]],grbTxt) 
grid.draw(p2)