プロット外のラベル

Question

2つのプロットにラベル "a）"と "b"を追加して、書き込むときにより効果的に区別して議論できるようにしたいと考えています。私はテキストと伝説の機能を通してこれをやろうとしましたが、私は良い結果を得ていません。理想的には、ep.var.histプロット（1番目のプロット）の左上にa）、ラベルが付いているtp.var.histプロット（2番目のプロット）の一番左上にb）実際のプロットの外側で、y軸ラベルの上に表示されます。 私のコードは、出版準備プロットを生成するためのプロセスを容易にするために設計さcowplotパッケージでの作業

par(mfrow=c(2,1), mar=c(4,4,0.9,4)) 
ep.var.hist<-hist(data.ep, breaks=5, xlim=c(0,0.011), ylim=c(0,6000), xlab=NULL, main=NULL) 
tp.var.hist<-hist(data.tp, breaks=66, xlim=c(0,0.011), ylim=c(0,6000), xlab="Variance", main=NULL) 

Answer 1

を下回っています。

library(cowplot) 
library(ggplot2) 

sepal <- ggplot(data = iris, aes(x = Species, y = Sepal.Length)) + 
    geom_bar(stat = "identity") + 
    theme(text = element_text(margin = margin(), debug = FALSE)) 

petal <- ggplot(data = iris, aes(x = Species, y = Petal.Length)) + 
    geom_bar(stat = "identity") + 
    theme(text = element_text(margin = margin(), debug = FALSE)) 

plot_grid(sepal, petal, labels = c("A", "B")) 

plot_gridとsave_plot（ggsaveの磨かれたバージョンは）私の2つの好きなcowplot関数です。より多くのオプションとカスタマイズのためのヘルプページを見ることを強くお勧めします。

あなたは本当にただgraphicsこのソリューションを試して、それを維持したい場合は、私はあなたがadj = 0を探していると思う：@rosscovaが提案のように、私は強く、長期的にggplot2を使用して検討する

par(mfrow=c(2,1), mar=c(4,4,0.9,4)) 
petal <- hist(iris$Petal.Length, main = "Petal", adj = 0) 
sepal <- hist(iris$Sepal.Length, main = "Sepal", adj = 0) 

完全な免責条項。あなたはプロットの詳細を制御するための多くの選択肢と、Rができない近代的な視覚化をたくさん持っています。 ggplot2がとても人気がある理由があります:)

Answer 2

編集：私は謝罪して、あなたが私の答えが達成できるとは思わない "プロット外"と言っていたことを知らずに先に進みました。

私はベースでこれを行う方法はわかりませんが、ggplot2にはあなたの後に達成するためのannotate機能があります。ここでは、再生を開始することができ、そこから例です（私はあなたが始める手助けをしたいかもしれないいくつかのビットを追加しました）：

library(ggplot2) 
plot <- ggplot(diamonds) + 
    geom_histogram(aes(carat), bins = 30) + 
    annotate("text", label = "label here", x = 1, y = 7500, col = "red") + 
    annotate("text", label = "and another", x = 2, y = 5500, col = "blue") 

plot <- plot + 
    xlim(0, 3) + 
    ggtitle("Main title") + 
    xlab("label x") + 
    ylab("label y") 

plot 

の周りのラベルを移動するannotate関数内xとy値を調整します。 annotateへの呼び出しを追加することで、好きなだけ追加できます。