ggplotでオブジェクトを操作することを学んでいますgtable。[これは私が尋ねた関連する質問です: grid と gtable を使用して ggplot を解体する]
現在の問題は次のとおりです。
- ある gtable からさまざまな軸要素を取得し、既存の要素の代わりに別の gtable に配置する方法は? 特に、垂直グリッド線 (および対応する目盛り) を置き換えます。
いくつかのコードと図の下。
# Data
df <- structure(list(Year = c(1950, 2013, 1950, 2013), Country = structure(c(1L,
1L, 2L, 2L), .Label = c("France", "United States"), class = "factor"),
Category = c("Hourly minimum wage", "Hourly minimum wage",
"Hourly minimum wage", "Hourly minimum wage"), value = c(2.14,
9.43, 3.84, 7.25), variable = c("France (2013 euros)",
"France (2013 euros)", "United States (2013 dollars)", "United States (2013 dollars)"
), Unit = c("2013 euros", "2013 euros", "2013 dollars", "2013 dollars"
)), .Names = c("Year", "Country", "Category", "value", "variable",
"Unit"), row.names = c(NA, 4L), class = "data.frame")
# Plot data with ggplot
library(ggplot2)
p1 <- ggplot(data = df, aes(x = Year, y = value, group = variable, colour = variable, shape = variable)) +
geom_line(size = 2, show_guide = FALSE) +
geom_point(size = 4, show_guide = FALSE) +
theme(panel.grid.major.x = element_line(size = 1, colour = "darkgreen"),
panel.grid.minor.x = element_line(size = 1, colour = "darkgreen", linetype = "dotted")) +
theme(text = element_text(size = 20, colour = "darkgreen")) +
theme(axis.text = element_text(size = 20, colour = "darkgreen"))
ここにp1があります：
p2 <- ggplot(data = df, aes(x = Year, y = value, group = variable, colour = variable, shape = variable)) +
geom_line(size = 2, show_guide = FALSE) +
geom_point(size = 4, show_guide = FALSE) +
theme(panel.grid.major.x = element_line(size = 1, colour = "darkred"),
panel.grid.minor.x = element_line(size = 1, colour = "darkred", linetype = "dotted")) +
theme(text = element_text(size = 20, colour = "darkred")) +
theme(axis.text = element_text(size = 20, colour = "darkred"))
ここにp2があります：
# replace the bottom axis of p1 with that of p2
library(gtable)
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))
# function to remove selected elements from gtables, keeping widths
gtable_grob_remove <- function (g, what = "guide-box") {
require(gtable)
matches <- c(grepl(pattern = what, g$layout$name))
g$layout <- g$layout[!matches, , drop = FALSE]
g$grobs <- g$grobs[!matches]
return(g)
}
# replace "axis-b"
g <- g1
pos <- c(subset(g$layout, name == "axis-b", se = t:r))
g <- gtable_grob_remove(g, what = "axis-b")
g <- gtable_add_grob(g, g2$grobs[[which(g2$layout$name == "axis-b")]],
pos$t, pos$l, pos$b, pos$r, , name = "axis-b")
# replace "xlab"
pos <- c(subset(g$layout, name == "xlab", se = t:r))
g <- gtable_grob_remove(g, what = "xlab")
g <- gtable_add_grob(g, g2$grobs[[which(g2$layout$name == "xlab")]],
pos$t, pos$l, pos$b, pos$r, , name = "xlab")
grid.newpage()
grid.draw(g)
以下は、いくつかの p2 要素を含む p1 です。
g1 は緑、g2 は赤です。赤の下軸ラベルと垂直グリッド線を緑のものに置き換えたいと思います。
軸ラベルと軸タイトルの識別には成功しましたが、まだ垂直グリッド線 (および軸の目盛りと軸の水平線も!) を探しています。それらは の中にあると思いpanelますが、それらにアクセスして変更する方法は?
以前のコメントで、baptiste はnames(ggplotGrob(p2)[["grobs"]][[4]][["children"]])さまざまな要素を識別する方法として提案しました。これは以下を返します:
names(ggplotGrob(p2)[["grobs"]][[4]][["children"]])
[1] "grill.gTree.843" "GRID.polyline.828"
[3] "geom_point.points.830" "panel.border.zeroGrob.831"
しかし、ここからの取り方がわかりません。また、追加された番号 (.843 など) はセッションごとに変わるため、これらの番号をハードコーディングしない方法を見つけたいと思います。提案をありがとう！