我试图在图形中显示两种不同的信息。这是一个MWE，然后我会解释：
library(ggplot2)
p = 1:10/10-.05
X = matrix(0,nrow=100,ncol=10)
for( i in 1:10 ) X[,i] = rbinom(100,1,p[i])
d = data.frame(X)
coef = runif(10,min=1,max=2)
d$Y = X %*% coef + rnorm(100)
plot( Y ~ X1, data=d )
fit = glm( Y ~ ., data=d )
coeff.df = data.frame( summary(fit)$coeff )
coeff.df$Count = c(NA,apply(d, 2, sum)[-11] )
coeff.df$Name = row.names(coeff.df)
coeff.df$Count.Scaled =
coeff.df$Count/max(coeff.df$Count,na.rm=T)*max(coeff.df$Estimate)
ggplot( coeff.df, aes(x=Name) ) + geom_point(aes(y=Estimate)) +
geom_bar(aes(weight=Count.Scaled),alpha=.3)
所以，我想在情节中传达两件事：模型中的系数以及体积或比例的另一个衡量标准。现在我的问题：我想要两个轴，这样我就可以解释系数和音量（在这种情况下，我不得不破解音量数据，以便它们可以完全按比例缩放数据）。
我听说ggplot目前没有像这样显示两个轴的功能，这是正确的吗？什么是表示这样的数据的好方法？