サイズと色が異なるggplot2字幕を追加するにはどうすればよいですか?


88

降水量のバープロットを改善するためにggplot2を使用しています。

これが私が達成したいことの再現可能な例です:

library(ggplot2)
library(gridExtra)
secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])
m <- ggplot(melt.d, aes(x=x, y=y)) +
  geom_bar(fill="darkblue") + 
  labs(x="Weather    stations", y="Accumulated Rainfall [mm]") +
  opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1),
       title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"),
       plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5))
z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option
z

ggplot2でhjustとvjustで推測番号を使用しないようにする方法がわかりませんか?字幕を付けるためのより良い方法はありますか(\ nだけでなく、テキストの色とサイズが異なる字幕を使用します)?

PDFファイルを作成するには、ggsaveで使用できる必要があります。

関連する2つの質問があります。

Rのプロット領域の外側に脚注の引用を追加しますか?

Rで字幕を追加してggplotプロットのフォントサイズを変更するにはどうすればよいですか?

助けてくれてありがとう。


vjust = -33は、Linuxで動作しました。私は潜水艦がプロットの下に行くことを意図していることを知っています、しかしそれは私が望むものを手に入れる唯一の方法でした。
migue 2012

何らかの理由で、これにより私のプロットが非常に小さくなり、グラフの下に巨大なスペースが作成されます
zazu 2016

2
@hrbrmstrの答えは、今日行く方法のようです
andschar 2017

回答:


102

最新のggplot2ビルド(つまり、2.1.0.9000以降)には、組み込み機能として字幕とプロットの下のキャプションがあります。それはあなたがこれを行うことができることを意味します:

library(ggplot2) # 2.1.0.9000+ 

secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])

m <-  ggplot(melt.d, aes(x=x, y=y))
m <- m + geom_bar(fill="darkblue", stat="identity")
m <- m + labs(x="Weather    stations", 
              y="Accumulated Rainfall [mm]",
              title="Rainfall",
              subtitle="Location")
m <- m + theme(axis.text.x=element_text(angle=-45, hjust=0, vjust=1)) 
m <- m + theme(plot.title=element_text(size=25, hjust=0.5, face="bold", colour="maroon", vjust=-1))
m <- m + theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black"))
m

(function(el、elname)のエラー: "plot.subtitle"は有効なテーマ要素名ではありません。
Luísde Sousa

1
回答をお読みください:「最新のggplot2ビルド(つまり、2.1.0.9000以降)」
hrbrmstr 2017年

75

この回答は無視してください ggplot2バージョン2.2.0にはタイトルとサブタイトルの機能があります。以下の@hrbrmstrの回答を参照してください。


ネストされたatop関数を内部で使用できますexpressionして、さまざまなサイズを取得。

EDIT ggplot2 0.9.3のための更新されたコード

m <-  ggplot(melt.d, aes(x=x, y=y)) + 
     geom_bar(fill="darkblue", stat = "identity") + 
     labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
     ggtitle(expression(atop("Rainfall", atop(italic("Location"), "")))) +
     theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1), 
     #plot.margin = unit(c(1.5, 1, 1, 1), "cm"), 
     plot.title = element_text(size = 25, face = "bold", colour = "black", vjust = -1))

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


10
こんにちは、これは素晴らしい解決策です。私はそれを使いたいのですが、代わりにatop(italic("Location")私はオブジェクトを持ちたいです:atop(italic(my_string_vector)。私はそれを試しましたが、字幕は(my_string_vector)に評価されました。この式に文字列値を使用させ、提供されたテキストを文字通りに処理しないようにするにはどうすればよいですか?
コンラッド

1
bquote代わりに使用する必要のある変数の使用に問題がある場合はexpressionここを
toto_tico 2016

3
@Konradオブジェクトを使用するには、「main.title」というオブジェクトに保存されているメインタイトルと「sub.title」というオブジェクトに保存されているサブタイトルを次のように置き換えexpressionbquoteラップします.()ggtitle(bquote(atop(.(main.title), atop(italic(.(sub.title)), "")))) クレジットはDidzisに送られますここElfertsの答え:stackoverflow.com/questions/19957536/...
coip

10

表示されませんoptsggplot 2 0.9.1の非推奨ともはや機能しています。これは、今日の最新バージョンで機能しました+ ggtitle(expression(atop("Top line", atop(italic("2nd line"), ""))))


これはファイナルなしでも機能, ""します-その部分は何のためですか?
naught101 2014

私を殴る。どこかで見た例をコピーしたかもしれません。
Aren Cambre 2014

おそらく上記の@SandyMusprattの答えから:P-私atop()は今それを理解しています、バーのない分数のようなものです。したがって、2番目atop()を最初の中に入れると、テキストが比例して小さくなるサブ分数が得られます。これ""はサブフラクションの下部です。ただし、これは不要のようです。おそらくatop()、2番目のパラメータにデフォルトの空の文字列などがあります。
naught101 2014

@SandyMusprattの回答は、私の回答と同様のコードを反映するように回答を投稿したに変更されようです。:-)
Aren Cambre 2015年

9

gtableにgrobsを追加して、そのように派手なタイトルを作成するのはそれほど難しくありません。

library(ggplot2)
library(grid)
library(gridExtra)
library(magrittr)
library(gtable)

p <- ggplot() + 
  theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))

lg <- list(textGrob("Rainfall", x=0, hjust=0, 
                    gp = gpar(fontsize=24, fontfamily="Skia", face=2, col="turquoise4")),
               textGrob("location", x=0, hjust=0, 
                        gp = gpar(fontsize=14, fontfamily="Zapfino", fontface=3, col="violetred1")),
           pointsGrob(pch=21, gp=gpar(col=NA, cex=0.5,fill="steelblue")))

margin <- unit(0.2, "line")
tg <- arrangeGrob(grobs=lg, layout_matrix=matrix(c(1,2,3,3), ncol=2),
                  widths = unit.c(grobWidth(lg[[1]]), unit(1,"null")),
                  heights = do.call(unit.c, lapply(lg[c(1,2)], grobHeight)) + margin)

grid.newpage()
ggplotGrob(p) %>%
  gtable_add_rows(sum(tg$heights), 0) %>%
  gtable_add_grob(grobs=tg, t = 1, l = 4)  %>%
  grid.draw()

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


8

このバージョンはgtable関数を使用します。タイトルに2行のテキストを含めることができます。各行のテキスト、サイズ、色、およびフォントフェースは、互いに独立して設定できます。ただし、この関数は単一のプロットパネルのみでプロットを変更します。

マイナー編集:ggplot2v2.0.0への更新

# The original plot
library(ggplot2)

secu <- seq(1, 16, by = 2)
melt.d <- data.frame(y = secu, x = LETTERS[1:8])

m <- ggplot(melt.d, aes(x = x, y = y)) + 
     geom_bar(fill="darkblue", stat = "identity") + 
     labs(x = "Weather    stations", y = "Accumulated Rainfall [mm]") + 
     theme(axis.text.x = element_text(angle = -45, hjust = 0, vjust = 1))


# The function to set text, size, colour, and face
plot.title = function(plot = NULL, text.1 = NULL, text.2 = NULL, 
   size.1 = 12,  size.2 = 12,
   col.1 = "black", col.2 = "black", 
   face.1 = "plain",  face.2 = "plain") {

library(gtable)
library(grid)

gt = ggplotGrob(plot)

text.grob1 = textGrob(text.1, y = unit(.45, "npc"), 
   gp = gpar(fontsize = size.1, col = col.1, fontface = face.1))
text.grob2 = textGrob(text.2,  y = unit(.65, "npc"), 
   gp = gpar(fontsize = size.2, col = col.2, fontface = face.2))

text = matrix(list(text.grob1, text.grob2), nrow = 2)
text = gtable_matrix(name = "title", grobs = text, 
   widths = unit(1, "null"), 
   heights = unit.c(unit(1.1, "grobheight", text.grob1) + unit(0.5, "lines"), unit(1.1,  "grobheight", text.grob2) + unit(0.5, "lines")))

gt = gtable_add_grob(gt, text, t = 2, l = 4)
gt$heights[2] = sum(text$heights)

class(gt) =  c("Title", class(gt))

gt
}

# A print method for the plot
print.Title <- function(x) {
   grid.newpage()   
   grid.draw(x)
}


# Try it out - modify the original plot
p = plot.title(m, "Rainfall", "Location", 
   size.1 = 20, size.2 = 15, 
   col.1 = "red", col.2 = "blue", 
   face.2 = "italic")

p

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


3

プロットをgrid.arrangeでラップして、カスタムのグリッドベースのタイトルを渡すことができます。

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

library(ggplot2)
library(gridExtra)

p <- ggplot() + 
  theme(plot.margin = unit(c(0.5, 1, 1, 1), "cm"))

tg <- grobTree(textGrob("Rainfall", y=1, vjust=1, gp = gpar(fontsize=25, face=2, col="black")),
               textGrob("location", y=0, vjust=0, gp = gpar(fontsize=12, face=3, col="grey50")),
               cl="titlegrob")
heightDetails.titlegrob <- function(x) do.call(sum,lapply(x$children, grobHeight))

grid.arrange(p, top = tg)

ggplotの現在のバージョンでは、optsとtheme_textの代わりにthemeとelement_textをそれぞれ使用しています。また、ggplotGrobアプローチは、gridExtra(gridExtra_0.8.1)およびggplot2(ggplot2_0.9.3.1)の現在のバージョンでは失敗するようです
russellpierce 2013年

2

Sandyのコードでは、「Rainfall」の太字のタイトルが生成されないことに気付いたかもしれません。これを太字にする命令は、theme()関数ではなくatop()関数内で実行する必要があります。

ggplot(melt.d, aes(x=x, y=y)) + 
 geom_bar(fill="darkblue", stat = "identity") + 
 labs(x="Weather    stations", y="Accumulated Rainfall [mm]") + 
 ggtitle(expression(atop(bold("Rainfall"), atop(italic("Location"), "")))) +
 theme(axis.text.x = element_text(angle=-45, hjust=0, vjust=1),
 plot.title = element_text(size = 25, colour = "black", vjust = -1))

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

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.