2

我正在尝试使用一些线段来注释绘图。x 轴最好通过对数转换显示。我正在使用ggplot2which 处理转换，这也意味着我不应该转换到我的线段的位置。但是当我应用转换时，线段会消失（嗯 - 由于转换，它们不再“适合”到绘图窗口中）。关于如何让他们“跟随”转型的任何建议？

最小的例子：

library(ggplot2)
## Base plot:
B <- ggplot(data = data.frame(X = 10^(1:10), Y = 1:10),
            aes(x = X, y = Y)) + geom_point()
## Generate segments: 
S1 <- geom_segment(x = 1000, xend = 1000,
                   y = 3, yend = 5)
S2 <- geom_segment(x = 20, xend = 2.5e9,
                   y = 8, yend = 7)
## Generate transformation:
T <- scale_x_continuous(trans = "log")

比较以下内容：

B               # Basic plot
B + T           # Basic plot, transformed
B + S1 + S2     # Basic, untransformed, with segments
B + S1 + S2 + T # Should be transformed with segments: segments missing

我知道我可以只转换段的位置，但我真的更愿意找到一个更ggplot2风格的解决方案！

破解解决方案：

S3 <- geom_segment(x = log(1000), xend = log(1000),
                   y = 3, yend = 5)
S4 <- geom_segment(x = log(20), xend = log(2.5e9),
                   y = 8, yend = 7)
B + S1 + S2
B + S3 + S4 + T #Fine, but not elegant.

谢谢！

4

1 回答 1

1

不确定我展示的情节是否是您所期望的。但如果是，下面的解释是有效的。

在ggplot2上执行转换aesthetics。并且在绘图之前首先转换数据（或进行任何拟合，例如：geom_smooth 等。在转换后的数据上完成）。

因此，如果您希望日志转换反映在您的段上，则必须将其环绕aes为：

S1 <- geom_segment(aes(x=1000, xend=1000, y=3, yend=5))
S2 <- geom_segment(aes(x=20, xend=2.5e9, y=8, yend=7))

顺便说一句，您的转换应该是log10，而不是 log：

T <- scale_x_continuous(trans = "log10")

现在，如果你绘制B + S1 + S2 + T：

ggplot2_aes

更进一步：使用以下方法将您B+S1+S2+T的S1和S2修改的与我的进行比较：

ggplot_build(B+S1+S2)$data # and 
ggplot_build(B+S1+S2+T)$data

看到美学得到相应的转变。

于 2013-02-20T16:49:02.323 回答