在ggplot中变换x，y坐标空间

Question

我知道您可以使用coord_trans() 转换绘图的坐标，甚至可以沿两个轴执行坐标转换（例如coord_trans(x = "log10", y = "log10")），但是有没有办法执行取决于坐标转换的坐标转换两个轴的值，比如剪？

我知道在将数据传递给 ggplot 之前，我可以执行线性变换，使用类似 ggforce::linear_trans() 之类的东西，如下例所示：

trans <- linear_trans(shear(1, 0))
square <- data.frame(x = c(0, 0, 1, 1), y = c(0, 1, 1, 0))
square2 <- trans$transform(square$x, square$y)
ggplot(square2, aes(x, y)) +
    geom_polygon(colour = 'black')

但是，我希望有一种方法可以编写自定义坐标系，这样就不需要事先转换数据，例如：

square <- data.frame(x = c(0, 0, 1, 1), y = c(0, 1, 1, 0))
ggplot(square, aes(x, y)) +
    geom_polygon(colour = 'black') +
    coord_shear(x=1)

Answer 1

我实现了一个自定义坐标来执行此操作。它需要一个类似ggforce::linear_trans 生产的变压器并将其应用于 ggplot。在我的 deeptime 包中查看 here。