用GGPLOT绘制负面直方图

Question

我从同一数据框架中绘制两个系列。其中一个具有负值。

p_change <- ggplot(dx, aes(fill=Group)) +
  geom_histogram(aes(x=posvalues), binwidth=1) +
  geom_histogram(aes(x=negvalues), binwidth=1) +
  xlim(0, 15) +
  ylim(-25, 25) +
  xlab('Number of tokens') +
  theme(
    legend.position = "right",
    text=element_text(size = 19)
  )
p_change

我希望将第二个直方图绘制在负y轴上。

Answer 1

您可以尝试这个。 IMO更有意义地将负值绘制在Xaxis上。

library(tidyverse)

# some data in the long format (recommended format for ggplot)
data <- mtcars %>% 
  mutate(negdisp=-disp) %>% 
  select(contains("disp")) %>% 
  pivot_longer(everything()) 

data
# A tibble: 64 x 2
   name    value
   <chr>   <dbl>
 1 disp      160
 2 negdisp  -160
 3 disp      160
 4 negdisp  -160

  data %>% 
  ggplot(aes(value, fill = name)) + 
   geom_histogram() 

类的东西来完成使用Yaxis的解决方案

data %>% 
  ggplot(aes(x = abs(value), fill = name)) + 
  stat_bin(aes(y=ifelse(fill == "negdisp", -..count.., ..count..))) 

可以使用