在 R 中使用 ggplot2 进行对数缩放

Question

我正在尝试使用 ggplot2 创建图表。有几个非常小的值和一些较大的值要显示。我想使用对数缩放以适当的方式显示所有这些。这就是我所做的：

plotPointsPre <- ggplot(data = solverEntries, aes(x = val, y = instance, 
                                                  color = solver, group = solver))

...

finalPlot <- plotPointsPre + coord_trans(x = 'log10') + geom_point() +
xlab("costs") + ylab("instance")

这是结果：

和没有coord_trans(x = 'log10')一样。

但是，如果我将它与 y 轴一起使用：

如何实现x轴的对数缩放？此外，它与 x 轴无关，如果我切换 x 和 y 的值，则它在 x 轴上起作用，而不再在 y 轴上起作用。所以显示的值似乎有一些问题。有人知道如何解决这个问题吗？

编辑 - 这是 solverEntries 中包含的已用数据：

solverEntries <- data.frame(instance = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 20, 20, 20, 20),
                 solver = c(4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1),
                 time = c(1, 24, 13, 6, 1, 41, 15, 5, 1, 26, 16, 5, 1, 39, 7, 4, 1, 28, 11, 3, 1, 31, 12, 3, 1, 38, 20, 3, 1, 37, 10, 4, 1, 25, 11, 3, 1, 32, 18, 4, 1, 27, 21, 3, 1, 23, 22, 3, 1, 30, 17, 2, 1, 36, 8, 3, 1, 37, 19, 4, 1, 40, 21, 3, 1, 29, 11, 4, 1, 33, 10, 3, 1, 34, 9, 3, 1, 35, 14, 3),
                 val = c(6553.48, 6565.6, 6565.6, 6577.72, 6568.04, 7117.14, 6578.98, 6609.28, 6559.54, 6561.98, 6561.98, 6592.28, 6547.42, 7537.64, 6549.86, 6555.92, 6546.24, 6557.18, 6557.18, 6589.92, 6586.22, 6588.66, 6588.66, 6631.08, 6547.42, 7172.86, 6569.3, 6582.6, 6547.42, 6583.78, 6547.42, 6575.28, 6555.92, 6565.68, 6565.68, 6575.36, 6551.04, 6551.04, 6551.04, 6563.16, 6549.86, 6549.86, 6549.86, 6555.92, 6544.98, 6549.86, 6549.86, 6561.98, 6558.36, 6563.24, 6563.24, 6578.98, 6566.86, 7080.78, 6570.48, 6572.92, 6565.6, 7073.46, 6580.16, 6612.9, 6557.18, 7351.04, 6562.06, 6593.54, 6547.42, 6552.3, 6552.3, 6558.36, 6553.48, 6576.54, 6576.54, 6612.9, 6555.92, 6560.8, 6560.8, 6570.48, 6566.86, 6617.78, 6572.92, 6578.98))

Answer 1

这是您要找的吗？

x_data <- seq(from=1,to=50)
y_data <- 2*x_data+rnorm(n=50,mean=0,sd=5)

#non log y
ggplot()+
  aes(x=x_data,y=y_data)+
  geom_point()

#log y scale
ggplot()+
  aes(x=x_data,y=y_data)+
  geom_point()+
  scale_y_log10()

#log x scale
ggplot()+
  aes(x=x_data,y=y_data)+
  geom_point()+
  scale_x_log10()

Answer 2

您当前形式的数据不是日志分布的 -- 大多数 val 大约 6500，大约高出 10%。如果您想扩展数据，您可以使用 scales::trans_new() 进行自定义转换，或者这里有一个更简单的版本，它只减去基线值以使对数转换有用。减去 6500 后，小值将映射到 50 左右，大值将映射到 1000 左右，这是更适合对数刻度的范围。然后我们对中断应用相同的转换，以便标签出现在正确的位置。（即标签 6550 映射到映射到 6550 - 6500 = 50 的数据）

如果您想让基本值更易于区分，但代价是扭曲值之间的基本比例，则此方法会有所帮助。您可以通过选择有用的休息时间并用缩放统计数据标记它们来帮助解决这个问题，例如

7000 +7% over min

my_breaks <- c(6550, 6600, 6750, 7000, 7500)
baseline = 6500

library(ggplot2)
ggplot(data = solverEntries, 
       aes(x = val - baseline, y = instance, 
           color = solver, group = solver)) +
  geom_point() +
  scale_x_log10(breaks = my_breaks - baseline,
                labels = my_breaks, name = "val")

在 R 中使用 ggplot2 进行对数缩放

Logarithmic scaling with ggplot2 in R

scaling

r

ggplot2