Início / coding / Perguntas / 78941339
Accepted
Bogaso
Asked: 2024-09-03 00:14:52 +0800 CST

Plotando 2 histogramas na parte superior e inferior de um único gráfico

  • 772

Quero desenhar dois histogramas na mesma janela de plotagem, mas colocados verticalmente. Um exemplo pode ser encontrado em https://blogs.sas.com/content/graphicallyspeaking/files/2013/11/MirrorHistogramVert.png

Abaixo está meu código

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()

No entanto, estou recebendo o erro abaixo

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.

Também quero adicionar uma curva de probabilidade para Normal distributionambos os histogramas.

Qualquer sugestão sobre qual seria a abordagem correta será muito útil

1 respostas

  1. Best Answer

    Você pode fazer duas camadas separadas para os dois grupos, usando y = -after_stat(count)a segunda camada (o padrão geom_histogramé y = after_stat(count).

    Certifique-se de breaksque as duas camadas sejam iguais para que os compartimentos fiquem alinhados.

    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())

    insira a descrição da imagem aqui

    • 1

relate perguntas