如何將白框中的標簽名稱添加到資料框中的 ggalluvial sankey 圖上的三個軸中的每一個？（見圖）
“國家/地區”列包含多個國家/地區的觀察結果。在下面的示例中，我關注的是帶有“IE”標簽的愛爾蘭。如何使用下面的 ggplot 代碼獲取國家/地區名稱的資料框？我還將為“疫苗”和“目標組”名稱執行此任務，因此如果解決方案也可以包含這些列，我將不勝感激。謝謝
資料框代碼和 sankey 顏色 - 資料來自歐盟 ECDC
data <- read.csv("https://opendata.ecdc.europa.eu/covid19/vaccine_tracker/csv/data.csv", na.strings = "", fileEncoding = "UTF-8-BOM")
colnames(data)[2] <- "Country"
TestData <- data
Ireland <- subset(TestData, Country == "IE")
Combined <- rbind(Ireland ) #removed other countries for ease of reading
Col1 <- "slateblue2"
Col2 <- "chartreuse2"
Col3 <- "tomato2"
Col4 <- "orange2"
Col5 <- "plum3"
Col6 <- "grey43"
Col7 <- "deeppink"
alpha <- 0.2
這是 sankey 代碼 - 這是我沒有正確地將標簽應用到相關軸的地方
ggplot(Combined,
aes(weight = FirstDose, axis1 = Vaccine, axis2 = Country, axis3 = TargetGroup))
geom_alluvium(aes(fill = Vaccine, color = Vaccine),
width = 0.1, alpha = alpha, knot.pos = 0.4)
geom_stratum(width = 0.2, color = "black")
geom_label(stat = "stratum", label.strata = TRUE)
scale_x_continuous(breaks = 1:3, labels = c("Vaccine", "Country", "TargetGroup"))
scale_fill_manual(values = c(Col1, Col2, Col3, Col4, Col5, Col6, Col7))
scale_color_manual(values = c(Col1, Col2, Col3, Col4, Col5, Col6, Col7))
ggtitle("ECDC Vaccination data")
theme_minimal()
theme(
axis.text.x = element_text(size = 12, face = "bold")
)
這是影像 - 您可以看到軸框缺少標簽
uj5u.com熱心網友回復：
想通了 - 完整的代碼塊在這里。我希望這可以幫助某人
ggplot(Combined,
aes(weight = FirstDose, axis1 = Vaccine, axis2 = Country, axis3 = TargetGroup))
geom_alluvium(aes(fill = Vaccine, color = Vaccine),
width = 0.1, alpha = alpha, knot.pos = 0.4)
geom_stratum(width = 0.2, color = "black")
geom_text(stat = "stratum", aes(label = after_stat(deposit)),
color = "black")
geom_label(stat = "stratum", aes(label = after_stat(stratum)), min.y = 200)
scale_x_continuous(breaks = 1:3, labels = c("Vaccine", "Country", "TargetGroup"))
scale_fill_manual(values = c(Col1, Col2, Col3, Col4, Col5, Col6, Col7))
scale_color_manual(values = c(Col1, Col2, Col3, Col4, Col5, Col6, Col7))
ggtitle("ECDC Vaccination data")
theme_minimal()
theme(legend.position = "none", panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.text.y = element_blank(),
axis.text.x = element_text(size = 12, face = "bold")
)
通過在geom_stratum()論點之后添加這兩行（我還不完全理解它們）。標簽是我想要它們的地方。它還不漂亮。
geom_text(stat = "stratum", aes(label = after_stat(deposit)),
color = "black")
geom_label(stat = "stratum", aes(label = after_stat(stratum)), min.y = 200)
解決方案
在這篇博文http://corybrunson.github.io/ggalluvial/reference/stat_stratum.html上找到了答案
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/407017.html
標籤：
上一篇：置信區間箱線圖