我想在繪制分類變數的堆積條形圖中包含一個“總計”條。我的問題的簡化示例如下所示：
我有 3 個城市（倫敦、柏林、維也納）和 2 種型別的游客。我可以使用下面的代碼繪制每個城市不止一次（重復）與只來一次（一次）的游客的份額。
現在，我想在同一張圖表中添加一個分享重復/一次的欄（不是按城市）。不幸的是，我找不到有關如何執行此操作的任何提示。
我會非常感謝提示如何添加這個“總欄”，因為我經常需要它。非常感謝您！
df <- data.frame("City"=c("Vienna","Vienna","London","London","Berlin", "London", "Berlin","Berlin","Vienna","Vienna","Vienna", "Vienna", "Berlin","Vienna","Vienna","Vienna"),"Type"=c("repeat","once","repeat","once","repeat","once", "repeat","once","repeat","once","repeat","repeat","repeat","repeat","repeat","once"))
df %>%
ggplot(aes(x=City, fill=Type), reorder(Type))
geom_bar(position="fill", alpha=0.75)
scale_fill_brewer(palette = "Paired")
coord_flip()
′′′
uj5u.com熱心網友回復：
您可以通過添加第二個geom_bar映射常量（例如字串Total）x并通過以下方式設定類別順序來實作您想要的結果scale_x_discrete：
library(ggplot2)
ggplot(df, aes(x=City, fill=Type), reorder(Type))
geom_bar(position="fill", alpha=0.75)
geom_bar(aes(x = "Total"), position="fill", alpha=0.75)
scale_fill_brewer(palette = "Paired")
scale_x_discrete(limits = c("Total", unique(df$City)))
coord_flip()
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/445315.html