两个y轴用于相同的数据,但比例不同

时间:2018-06-26 18:00:42

标签: r ggplot2 axis

我创建了一个图形,以线性单位表示数据,但以对数y比例表示(以下代码)。

ggplot() + 
  geom_point(data=VH_lin, aes(x=VH_lin[,1], y=VH_lin[,2], colour = "green"), size=0.6) +
  scale_y_log10(breaks = c(0,0.01, 0.10, 1.00, 10), limit=c(-0.01,10)) + scale_x_continuous(breaks=c(0, 2000, 4000, 6000, 8000, 10000, 12000)) + 
  xlab("x") + ylab("y") +
  theme(panel.background = element_rect(fill = "white", colour = "grey50")) 

我想以分贝为单位添加第二个y刻度-这是对数单位。为了转换数据,我必须计算10 * log10(x),因此图上的数据分布应该相同-因为dB是对数的。 基本上,我想使用两个单位在同一地块上显示数据数据: 线性(但以对数标度表示-已在代码中显示)和dB。可能吗?下面的图片(很糟糕)提出了我的想法。

enter image description here

VH_lin数据示例:

1 0 0.012729834
2 3.133577295 0.012729834
10 14.75257582 0.013739633
36 59.10725461 0.014644137
41 69.42152155 0.0103109
466 1180.242805 0.011991354
486 1204.63381 0.008985861
520 1256.814223 0.008706877

2 个答案:

答案 0 :(得分:1)

您可以添加第二个轴,同时将数据点保持原始比例,如下所示:

ggData <- data.frame(x=rnorm(50), y=rnorm(50, mean=1000, sd=50) )
summary(ggData)

ggplot(ggData, aes(x=x, y=y) ) + 
 geom_point() + 
 scale_y_continuous(sec.axis = ~ 10*log10(.))

答案 1 :(得分:0)

如果您想以与前一个相同的比例添加第二个y轴,则可以这样实现:scale_y_log10(sec_axis = sec_axis(~.*, name="dB")