使用 grid 和 gtable 拆解 ggplot

Question

我正在努力根据 ggplot 对象构建 dual-axis 情节。在 baptiste 的建议下，我将问题分解为更小的部分。目前的问题是：

如何从 grobs 中删除所有数据，同时保留轴、轴标签、轴刻度线和网格线？ 通过 'data' 我的意思是与 geom_line() 和 geom_points().

想要这样做的原因是在构建 dual-axis 图的过程中，我运行遇到以下问题：一个 grob 的网格线会覆盖其他的。去掉数据线和点，就不会覆盖了。

让我说清楚：我确实有解决方法，包括向 aes() 添加线型并设置 scale_linetype_manual(values = c("solid", "blank") 或，或者，发送数据 'off the grid'，但我想 post-process 一个绘图对象，该对象对于手头的目的来说还 'groomed' 太多。

下面是一些代码和数字。

# 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)
p <- ggplot(data = df, aes(x = Year, y = value, group = variable, colour = variable, shape = variable)) + 
geom_line(size = 2) + 
geom_point(size = 4) +
theme(panel.grid.major = element_line(size = 1, colour = "darkgreen"), 
      panel.grid.minor = element_line(size = 1, colour = "darkgreen", linetype = "dotted"))

# Manipulate grobs with gtable
library(gtable)
g <- ggplot_gtable(ggplot_build(p))
## Here remove the geom_line() and geom_point()
## g <- stripdata(g)  # pseudo-code!
grid.newpage()
grid.draw(g)

在下面的情节中，我希望线条消失！

编辑： 按照 baptiste 的建议，我尝试删除数据层。然而，正如 BondedDust 在评论部分指出的那样，这会破坏 ggplot 对象：

# Remove the two layers of data
p$layers[[1]] <- NULL
p$layers[[1]] <- NULL
g <- ggplot_gtable(ggplot_build(p))
## Error: No layers in plot

从 ggplot 对象中删除数据会破坏它。我在应用程序中使用的一种解决方法是 'send the data off the grid'，例如将每个单元格乘以 -999999 并用 + scale_y_continuous(limits = c(1, 10)) 切断显示，但如果可行的话，我想避免这种丑陋的黑客攻击。我希望如果我用 NA 或 NULL 替换每个数据点，相关的 gtable 不会被破坏，所以这就是为什么我正在寻找一种方法来从 g 对象而不是 p 对象中删除数据。

在操纵 grobs 之后（而不是直接破解 ggplot 对象），grid.draw(g) 的结果将是：

仅供参考，第二个图是通过以下解决方法获得的。

p <- ggplot(data = within(df, value <- -999999), aes(x = Year, y = value, group = variable, colour = variable, shape = variable)) + 
geom_line() + 
geom_point() +
theme(panel.grid.major = element_line(size = 1, colour = "darkgreen"), 
      panel.grid.minor = element_line(size = 1, colour = "darkgreen", linetype = "dotted")) +
scale_y_continuous(limits = c(1, 10))

Answer 1

一个更自然的策略是使用不可见的 geom_blank 层，这样 ggplot2 仍然训练比例等来构建绘图但不显示数据。但是，由于您想要处理已经格式化的图，您可能必须从图 gTree 中手动删除那些 grob。这是一个尝试，

library(gtable)
g <- ggplotGrob(p)

stripdata <- function(g){
  keep <- grepl("border|grill", 
                names(g[["grobs"]][[4]][["children"]]))
  g[["grobs"]][[4]][["children"]][!keep] <- NULL
  g
}

grid.newpage()
grid.draw(stripdata(g))

使用 grid 和 gtable 拆解 ggplot

dismantling a ggplot with grid and gtable

r

ggplot2

gtable

r-grid