Question

我希望缩放y轴：

通过log10，我用过：

scale_y_log10（breaks = trans_breaks（“log10”，function（x）10 ^ x））
更多标记：

scale_y_continuous（场所= pretty_breaks（10））

但是从错误消息中，只能有一个比例。有没有办法同时拥有这两个尺度？

Answer 1

如果我理解你的问题，你希望在对数刻度上有一个y轴，其中的刻度不仅仅是1,10,100等。这是一个可重复的例子，描述了你的尝试：

library(ggplot2)
library(scales)
dat <- data.frame(X=1:3, Y=c(2,50,10000))
ggplot(data=dat, aes(x=X, y=Y)) + geom_point() + 
  scale_y_log10(breaks=trans_breaks("log10",function(x) 10^x)) +
  scale_y_continuous(breaks=pretty_breaks(10))

## Error: Scale for 'y' is already present. Adding another scale for 'y', which will replace the existing scale.

好的，这个错误说我们只允许拨打scale_y_something。由于您需要对数比例，让我们保持scale_y_log10。我们从这里开始的方法取决于你想要达到的目标 - 即使它们不是很好的圆形数字，它是否可以简单地沿轴线间隔更均匀的刻度？如果是这样，您可以pretty()为n选择一个高于正常值的值（?trans_breaks承诺将传递给pretty），让ggplot(data=dat, aes(x=X, y=Y)) + geom_point() + scale_y_log10(breaks=trans_breaks("log10", function(x) 10^x, n=20))添加其他中断：

dat$Y

灵活，也许，但很难看。您可以通过将结果应用于数据来探索trans_breaks正在做什么（本例中为n）。请注意，trans_breaks("log10", function(x) 10^x, n=2 )(dat$Y) [1] 1 100 10000 trans_breaks("log10", function(x) 10^x, n=10)(dat$Y) [1] 1.000 3.162 10.000 31.623 100.000 316.228 1000.000 3162.278 10000.000的值被视为建议而不是命令：

ggplot(data=dat, aes(x=X, y=Y)) + geom_point() + 
  scale_y_log10(breaks=c(1,3,10,30,100,300,1000,3000,10000))

或者你可能更喜欢1,3,10,30,100等形式的刻度？如果是这样的话：

ggplot(data=dat, aes(x=X, y=Y)) + geom_point() + 
  scale_y_log10(breaks=trans_breaks("log10", function(x) 10^x, n=20), 
                labels=trans_format("log10", math_format(10^.x)))

我的猜测是这些直接规格是你最好的选择。但是如果您还需要灵活处理任意y范围，请从https://stackoverflow.com/a/14258838/3203184获取提示并添加标签参数：

{{1}}

R ggplot，两个鳞片在一起

1 个答案: