您可以在水平條之間放置標簽嗎？-有解無憂

我正在繪制一個水平的堆疊條形圖。我的酒吧的標簽很長。有沒有辦法可以將它們放在相應的欄上方？不然我的頁面空間沒有利用好，情節會顯示的很小。這是我的代碼和情節：

您可以在水平條之間放置標簽嗎？

我想把“Zivildienst”和“Katastrophenschutz”放在欄的上方，而不是放在欄的左邊。

data3 <- data.frame(System=rep(c('Zivildienst', 'Katastrophenschutz'), each=5),
                    Einstellung=rep(c('Sehr unwahrscheinich','Eher unwahrscheinlich','Weiss nicht','Eher wahrscheinlich','Sehr wahrscheinlich'), times=2),
                    Anzahl=c(131, 142, 283, 421, 981, 54, 140, 490, 418, 856))
level_order <- c('Zivildienst', 'Katastrophenschutz') 


# Get the levels for "Einstellung" in the required order
data3$Einstellung = factor(data3$Einstellung, levels = c('Weiss nicht','Sehr unwahrscheinich','Eher unwahrscheinlich','Eher wahrscheinlich','Sehr wahrscheinlich'))
data3 = arrange(data3, System, desc(Einstellung))

# Calculate the percentages
data3 = ddply(data3, .(System), transform, percent = Anzahl/sum(Anzahl) * 100)

# Format the labels and calculate their positions
data3 = ddply(data3, .(System), transform, pos = (cumsum(Anzahl) - 0.5 * Anzahl))
data3$label = paste0(sprintf("%.0f", data3$percent), "%")

cbPalette <- c("#999999", "#2A7AD4", "#5C96D7", "#D3A253", "#D48F1D")

# Plot
ggplot(data3, aes(x = factor(System), y = Anzahl, fill = Einstellung))  
  geom_bar(stat = "identity", width = .3)  
  geom_text(aes(y = pos, label = label), size = 4)  
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.title.y = element_blank(),
        aspect.ratio = .3)  
  scale_fill_manual(values=cbPalette) 
  coord_flip() 
  ggtitle("Werden Sie sich für die Alternative entscheiden?", subtitle = "2000 M?nner befragt")   labs(x = NULL)

uj5u.com熱心網友回復：

您需要通過洗掉軸文本并添加自定義標簽來執行此操作geom_text

ggplot(data3, aes(x = factor(System), y = Anzahl, fill = Einstellung))  
  geom_bar(stat = "identity", width = .3)  
  geom_text(aes(y = pos, label = label), size = 4)  
  geom_text(aes(y = 0, label = System, x = factor(System)), size = 5,
            hjust = 0, nudge_x = 0.3, check_overlap = TRUE)  
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.title.y = element_blank(),
        aspect.ratio = .3)  
  scale_fill_manual(values=cbPalette) 
  coord_flip() 
  ggtitle("Werden Sie sich für die Alternative entscheiden?", 
          subtitle = "2000 M?nner befragt")   
  labs(x = NULL)  
  theme(axis.text.y = element_blank(),
        axis.ticks.y = element_blank())

您可以在水平條之間放置標簽嗎？

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/488007.html

標籤：r ggplot2 条形图

上一篇：刻面，所有外部的繪圖軸

下一篇：通過閃亮的刷子選擇資料