主页 / coding / 问题 / 78941339
Accepted
Bogaso
Asked: 2024-09-03 00:14:52 +0800 CST

在单个图的顶部和底部绘制 2 个直方图

  • 772

我想在同一个绘图窗口上绘制两个直方图，但垂直放置。可以在https://blogs.sas.com/content/graphicallyspeaking/files/2013/11/MirrorHistogramVert.png找到一个这样的示例

下面是我的代码

library(ggplot2)
set.seed(1)
dat = rbind(data.frame('val' = rnorm(100), 'met' = 'Metric1'), data.frame('val' = rt(100, 2), 'met' = 'Metric12'))

ggplot(dat, aes(x = val, y = met, color = met)) + geom_histogram()

但是我遇到了以下错误

Error in `geom_histogram()`:
! Problem while computing stat.
ℹ Error occurred in the 1st layer.
Caused by error in `setup_params()`:
! `stat_bin()` must only have an x or y aesthetic.
Run `rlang::last_trace()` to see where the error occurred.

我还想为Normal distribution两个直方图添加概率曲线。

任何建议什么可能是正确的方法都将非常有帮助

1 个回答

  1. Best Answer

    您可以为这两个组创建两个单独的层，y = -after_stat(count)在第二层中使用（默认值为geom_histogram）y = after_stat(count)。

    确保breaks两层相同，以便箱子排列整齐。

    ggplot(dat, aes(x = val, fill = met)) + 
  geom_histogram(data    = dat[dat$met == 'Metric1',], 
                 breaks  = seq(-40, 10, 0.5),
                 colour  = "black",
                 alpha   = 0.3) +
  geom_histogram(data    = dat[dat$met == 'Metric12', ],
                 breaks  = seq(-40, 10, 0.5),
                 mapping = aes(y = -after_stat(count)),
                 colour  = "black",
                 alpha   = 0.3) +
  scale_fill_manual(values = c('blue3', 'red3')) +
  coord_cartesian(xlim = c(-10, 10)) +
  labs(y = 'count') +
  theme_bw(20) +
  theme(panel.border = element_blank())

    在此处输入图片描述

    • 1

相关问题