ggplot叠置条

Question

奇怪的顺序，我试图创建一个发散堆积条形图像here，和我遇到了类似的问题，这SO question。我的方法稍有不同，但我通过一个数据集管理它，而不是两个，而且我的颜色与我的数据无关。

Reprex如下：

library(tidyverse) 
library(RColorBrewer) 
x <- tribble(
    ~response, ~count, 
    0,   -27, 
    1,   -9, 
    2,   -41, 
    3,   -43, 
    4,   -58, 
    5,  -120, 
    5,   120, 
    6,   233, 
    7,   379, 
    8,   388, 
    9,   145, 
    10,   61 
) %>% 
    mutate(response = factor(response)) 

ggplot(x, aes(x = 1, y = count, fill = response)) + 
    geom_col() + 
    scale_fill_brewer(palette = "RdBu") + 
    coord_flip() 

这给了我这样一个形象：

的问题是与层叠的数据在零的右侧的顺序做他们堆叠似乎按降序排列。关于如何解决此问题的任何想法，将不胜感激（预期订货会是0-10，不0-5,10-5）

Answer 1

一个艰难的一个！我玩的顺序，看起来,和geom_col不喜欢它，当你结合正常和负值的常见相同的顺序。所以，我分你的数据在数据帧的正值和负值内，产生的颜色为每个响应的价值和使用的两个geoms为正值和负值分别：

library(tidyverse) 
library(RColorBrewer) 
x <- tribble(
    ~response, ~count, 
    0,   -27, 
    1,   -9, 
    2,   -41, 
    3,   -43, 
    4,   -58, 
    5,  -120, 
    5,   120, 
    6,   233, 
    7,   379, 
    8,   388, 
    9,   145, 
    10,   61 
) %>% 
    # Get absolute values and add dummy to distuingish positive and negative values 
    mutate(subzero = count < 0, 
     count = abs(count)) 

# Generate variable with colors from ColorBrewer for every response level (ugly but works) 
colors <- brewer.pal(length(unique(x$response)),"RdBu") 
x$colors <- NA 
for (i in 1:nrow(x)){ 
    x$colors[i] <- colors[x$response[i]+1] 
} 


ggplot() + 
    geom_bar(data = x[x$subzero==T,], aes(x = "", y = -count, fill = reorder(colors, response)), position="stack", stat="identity") + 
    geom_bar(data = x[x$subzero==F,], aes(x = "", y = count, fill = reorder(colors, -response)), position="stack", stat="identity") + 
    geom_hline(yintercept = 0, color =c("black")) + 
    scale_fill_identity("Response", labels = unique(x$response), breaks=unique(x$colors), guide="legend") + 
    coord_flip() + 
    labs(y="",x="") + 
    theme(legend.position = "bottom", legend.direction = "horizontal") + 
    scale_y_continuous(breaks=seq(-1400,1400,200), limits=c(-1400,1400)) 

UPD：由Y型规模的平衡，因此看起来更清晰

Answer 2

虽然并不直观（对我来说），使用：

ggplot(x, aes(x = 1, y = order(count), fill = response)) + 
    geom_col() + 
    scale_fill_brewer(palette = "RdBu",direction=1) + 
    coord_flip() 

它考虑到基于响应排序（而不是为了（响应））

Answer 3

您可以使用position_stack(reverse=TRUE)：

ggplot(x, aes(x = 1, y = count, fill = response)) + 
    geom_col(position = position_stack(reverse=TRUE)) + 
    scale_fill_brewer(palette = "RdBu") + 
    coord_flip()