R ngang Stacked ggvis Barplot

Question

Sử dụng tập dữ liệu nhỏ này:

df <- structure(list(colour = structure(c(1L, 2L, 1L, 2L), .Label = c("Black", 
"White"), class = "factor"), variable = c("A", "A", "B", "B"), 
    value = c(1, 2, 0.74, 0.85)), row.names = c(NA, -4L), .Names = c("colour", 
"variable", "value"), class = "data.frame") 

tôi có thể dễ dàng tạo ra một barplot xếp chồng lên nhau dọc với ggvis

library(ggvis) 
df %>% 
    ggvis(x=~variable, y=~value, fill=~colour) %>% 
    group_by(colour) %>% 
    layer_bars() 

Nhưng tôi không thể tìm ra cách để có một thanh ngang xếp chồng lên nhau. Tôi nghĩ rằng tôi bằng cách nào đó phải sử dụng layer_rects nhưng tốt nhất tôi có thể nhận được cho đến nay chỉ là một nhóm được vẽ.

df %>% 
    ggvis(x =~value, y=~variable, fill =~ colour) %>% 
    group_by(colour) %>% 
    layer_rects(x2 = 0, height = band()) 

Answer 1

Đó là bởi vì layer_bars() ngăn xếp tự động, layer_rects() không. Bạn cần phải rõ ràng về các ngăn xếp bằng cách sử dụng compute_stack().

df %>% 
    ggvis(y = ~variable, fill = ~colour) %>% 
    compute_stack(stack_var = ~value, group_var = ~variable) %>% 
    layer_rects(x = ~stack_lwr_, x2 = ~stack_upr_, height = band()) 

Mà cho:

---

Lưu ý: Nhìn vào mã này, bạn có thể tự hỏi nơi stack_lwr_ và stack_upr_ đối số đến từ. Hãy xem qua số source code để xem cách hoạt động của thiết bị hoạt động dưới mui xe