ggplot 中具有对数刻度的等坐标和方形纵横比

我试图生成一组具有对数轴和两个轴上相同坐标以及正方形纵横比的图。让我们考虑以下假设数据：

set.seed(1)
x <- rnorm(30, 50, 20)
y <- x + 20 + rnorm(30, 0, 10)

通过使用下面的代码，我获得了一个矩形图：

p <- qplot(x, y) + 
  scale_x_continuous(trans = "log2") + 
  scale_y_continuous(trans = "log2") + 
  coord_equal()

现在，如果我尝试使用以下命令将纵横比强制为 1:1theme()函数，它打破了平等坐标系：

p + theme(aspect.ratio = 1)

有没有一种方法可以同时获得相等的缩放比例和方形纵横比，而不意味着手动更改每个图形的限制？ 我需要将相同的代码应用于具有不同值和不同限制的整个数据系列。

默认情况下，ggplot2将根据您的数据进行扩展。但大多数scale_xxx函数提供了一个limits您可以微调的参数。使用你上面的例子

p <- qplot(x, y) + 
  scale_x_continuous(trans = "log2", limits=c(8,128)) + 
  scale_y_continuous(trans = "log2", limits=c(8,128)) + 
  coord_equal()
p + theme( aspect.ratio=1 )

您也不需要提供theme如果你用过coord_fixed()代替coord_equal().

p <- qplot(x, y) + 
  scale_x_continuous(trans = "log2", limits=c(8,128)) + 
  scale_y_continuous(trans = "log2", limits=c(8,128)) + 
  coord_fixed( ratio=1 )
p

EDIT #1

没看到你们其中一个随机x点小于8。修改代码

p <- qplot(x, y) + 
  scale_x_continuous(trans = "log2", limits=c(4,128)) + 
  scale_y_continuous(trans = "log2", limits=c(4,128)) + 
  coord_fixed( ratio=1)
p

EDIT #2（根据问题中的额外改写）

如果您希望根据您的数据缩放范围，只需使用range()基本 R 中的函数。因此使用上述变量...

xy.limits <- range( c(x,y) )

p <- qplot(x, y) + 
  scale_x_continuous(trans = "log2", limits=xy.limits) + 
  scale_y_continuous(trans = "log2", limits=xy.limits) + 
  coord_fixed( ratio=1)
p

现在，如果您希望限制为 2 的干净倍数，那么您将必须根据计算值进行一些数据操作xy.limits，它是长度为 2 的数值向量。