旋轉方位，分組條形圖

Question

**修訂BELOW

我已經創建了一個情節，我真的需要它的水平，但coord_flip()離開底部，而不必在左側嵌套組的方面。

數據：

srvc_data <- structure(list(dept = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 1L, 1L, 1L, 1L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c("Distribution Centre Services", 
"IT", "Marketing", "Merchandise & Inventory", "Operations and Communication" 
), class = "factor"), label = c("test5", "test7", "test3", "test10", 
"test4", "test6", "test2", "test1", "test11", "test12", "test9", 
"test8", "test18", "test19", "test15", "test17", "test13", "test16", 
"test20", "test14", "test22", "test21", "test25", "test23", "test24", 
"test27", "test26", "test28", "test29", "test31", "test33", "test30", 
"test32", "test38", "test36", "test37", "test43", "test34", "test35", 
"test40", "test39", "test42", "test41", "test5", "test7", "test3", 
"test10", "test4", "test6", "test2", "test1", "test11", "test12", 
"test9", "test8", "test18", "test19", "test15", "test17", "test13", 
"test16", "test20", "test14", "test22", "test21", "test25", "test23", 
"test24", "test27", "test26", "test28", "test29", "test31", "test33", 
"test30", "test32", "test38", "test36", "test37", "test43", "test34", 
"test35", "test40", "test39", "test42", "test41"), Gap = c(-0.07, 
-0.13, -0.15, -0.16, -0.16, -0.21, -0.22, -0.24, -0.24, -0.25, 
-0.3, -0.3, -0.18, -0.19, -0.24, -0.29, -0.3, -0.34, -0.36, -0.41, 
-0.46, -0.63, -0.16, -0.18, -0.21, -0.22, -0.27, -0.29, -0.31, 
-0.31, -0.35, -0.39, -0.42, -0.15, -0.15, -0.2, -0.21, -0.22, 
-0.27, -0.29, -0.29, -0.31, -0.36, -0.07, -0.13, -0.15, -0.16, 
-0.16, -0.21, -0.22, -0.24, -0.24, -0.25, -0.3, -0.3, -0.18, 
-0.19, -0.24, -0.29, -0.3, -0.34, -0.36, -0.41, -0.46, -0.63, 
-0.16, -0.18, -0.21, -0.22, -0.27, -0.29, -0.31, -0.31, -0.35, 
-0.39, -0.42, -0.15, -0.15, -0.2, -0.21, -0.22, -0.27, -0.29, 
-0.29, -0.31, -0.36), impeff = structure(c(1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L), .Label = c("Importance", "Effectiveness"), class = "factor"), 
    score = c(0.87, 0.79, 0.78, 0.82, 0.81, 0.81, 0.92, 0.92, 
    0.78, 0.81, 0.86, 0.91, 0.79, 0.79, 0.87, 0.93, 0.9, 0.9, 
    0.82, 0.95, 0.91, 0.95, 0.77, 0.79, 0.82, 0.8, 0.83, 0.9, 
    0.91, 0.94, 0.89, 0.94, 0.91, 0.82, 0.74, 0.78, 0.81, 0.83, 
    0.85, 0.82, 0.81, 0.8, 0.83, 0.8, 0.66, 0.63, 0.66, 0.65, 
    0.6, 0.7, 0.68, 0.54, 0.56, 0.56, 0.61, 0.61, 0.6, 0.63, 
    0.64, 0.6, 0.56, 0.46, 0.54, 0.45, 0.32, 0.61, 0.61, 0.61, 
    0.58, 0.56, 0.61, 0.6, 0.63, 0.54, 0.55, 0.49, 0.67, 0.59, 
    0.58, 0.6, 0.61, 0.58, 0.53, 0.52, 0.49, 0.47)), row.names = c(NA, 
-86L), .Names = c("dept", "label", "Gap", "impeff", "score"), class = "data.frame") 

，代碼：

ggplot(data = srvc_data, aes(x = label, y = score)) + 
    geom_bar(aes(fill = impeff),stat = "identity", position = "dodge",width = 1) + 
    facet_grid(~dept, switch = "x", scales = "free", space = "free") + 

    #coord_flip()+ 

情節（不翻轉）看起來像下面，我需要水平的，最左邊的小類別。 coord_flip()如何工作？爲什麼它不會翻轉/移動小麪條？請忽略擠塞的格式！

**更新 所以感謝@neilfws通過切換數據的順序，我有固定的情節。

ggplot(data = srvc_data, aes(x = label, y = score)) + 
    geom_bar(aes(fill = impeff),stat = "identity", position = "dodge",width = 1) + 
    facet_grid(dept~., switch = "y", scales = "free_y", space = "free") + 
    coord_flip() 

現在我有正確定向的情節，但有大量的未使用空間爲所有在每個方面未使用的標籤。在facet_grid呼叫中，設置scales = "free"不起作用，drop = T也不起作用。有任何想法嗎？請參閱以下圖片以供參考。

Answer 1

如果coord_flip，還需要扭轉刻面關係（〜），將其放置在一邊，和switch，以將其放置在y軸。這會讓你接近你想要的嗎？

ggplot(srvc_data, aes(label, score)) + 
    geom_bar(aes(fill = impeff), stat = "identity", position = "dodge", width = 1) + 
    facet_grid(dept ~ ., switch = "y", scales = "free", space = "free") + coord_flip()