2

我试图在图形中显示两种不同的信息。这是一个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 目前没有像这样显示两个轴的功能，对吗？什么是表示这样的数据的好方法？

4

0 回答 0