r - 在 stat_density 图中使用 facet_zoom

Question

我想使用 facet_zoom 但由于某种原因，缩放区域结果为空。

我使用的两个数据集只是从修改的多项式分布生成的 1.000.000 个数字的数字向量。在放大的区域中，我想显示一个小尖峰。

prova <-readRDS("probcond1.rds")
prova1 <-readRDS("probpoly.rds")
dfGamma <-data.frame(prova)

ggplot(dfGamma, aes(x=prova)) + stat_density(aes(y=..count..), color="black", fill="blue", alpha=0.3)

g <- ggplot(dfGamma, aes(x=prova)) +
  stat_density(aes(y=..count..), color="black", fill="blue", alpha=0.3) +
  scale_x_continuous(breaks=c(0,1,2,3,4,5,10,30,100,300,1000,4000,5000), trans="log1p", expand=c(0,0)) +
  theme_bw()

g+expand_limits(x = c(1, 6000)) +facet_zoom(xlim = c(4000,5000))

我对R真的很陌生。为我的无知感到抱歉

Answer 1