用 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..)))