2

假设我创建了一个情节：

df <- data.frame(A = 1:100, B = jitter(1:100, 25), C = c('One', 'Two'))

p <- ggplot(df, aes(A, B, colour = C)) + 
  geom_point() + 
  scale_colour_manual(values = c('red', 'green'))

这些颜色（红色和绿色）存储在p哪里？

我可以在这里看到函数中使用的函数调色板：

p$scales$scales[[1]]$palette

这个函数的内容是：

function (n) 
{
  if (n > length(values)) {
    stop("Insufficient values in manual scale. ", n, " needed but only ", 
      length(values), " provided.", call. = FALSE)
  }
  values
}

我认为颜色必须存储在values那里，但我不知道它们实际在哪里p。

Ps 我看过这个问题：如何从 ggplot 对象中提取填充颜色？. 但是对于我正在尝试做的事情，我无法构建情节。我需要在它建成之前得到颜色。

如果有某种递归搜索p字符“红色”或“绿色”的方法可能有助于找到这些值。

编辑：我最终想要做什么。

我正在尝试在绘制图之前对其进行编辑。这个想法是给定一些情节p，你可以做这样的事情：

apply_theme(p)

...并且配色方案应用于整个绘图（包括比例、渐变等）。这是为了避免必须执行以下操作：

p + some_theme + scales_colour_manual(values = plot_theme)

我试图减少用户的工作量，以便他们可以将主题应用于整个情节，而不必担心他们是否正在为渐变、离散比例或其他内容着色。

构建情节是部分解决方案。但我希望能够应用主题并且以后仍然能够编辑情节。

我已经能够进行编辑p，以便追溯地将任何颜色应用于几何。但我就是找不到如何用刻度颜色来做到这一点。我知道颜色一定在某个地方！

4

1 回答 1

3

进展不大，但我已经排除了它可能隐藏的几个地方。

您可以看到p包含的所有字符向量

Filter(is.character, unlist(p))
# $labels.x
# [1] "A"

# $labels.y
# [1] "B"

# $labels.colour
# [1] "C"

所以它不是直接存储的。

通过设置options(error = recover)然后仅通过提供一种颜色来强制错误，我们可以检查调用堆栈。

(p <- ggplot(df, aes(A, B, colour = C)) + 
  geom_point() + 
  scale_colour_manual(values = 'red')
)

 1: print(list(data = list(A = 1:100, B = c(4.32692646654323, 3.46481398493052, 0.4989527114667, 
...
13: scale$palette(n)

进入 frame 13: scale$palette(n)，我们可以看到该变量values确实存储了颜色信息。

Browse[1]> values
[1] "red"

我们可以搜索调用堆栈中的每一帧，但奇怪的事情正在发生——它似乎不在任何地方。

Browse[1]> sapply(
  sys.frames(), 
  function(envir) 
  {
    exists("values", envir, inherits = FALSE)
  }
)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[16] FALSE FALSE

（有关sys.status()调用堆栈的完整详细信息，请参阅。）

Scales我怀疑参考类正在使用一些奇怪的评估技术。

于 2013-01-08T15:37:37.717 回答