我想有一個條形圖在每個面板中顯示多級 x 軸（YEAR*Quarters）：
Years <- c("2016","2016","2016","2016",
"2017","2017","2017","2017", "2016","2016","2016","2016",
"2017","2017","2017","2017")
Quarters <- c("1","2","3","4",
"1","2","3","4", "1","2","3","4",
"1","2","3","4")
panel<- c("A","A","A","A",
"A","A","A","A", "B","B","B","B",
"B","B","B","B")
Series1 <- c("100","200","300","400","500","600","700","800", "400","200","300","600","500","300","700","800")
我已經嘗試如下但我在同一個 x 行 Quarters 和 Years
ggplot(aes(x=interaction(Quarters, Years), y=Series))
geom_bar(stat="identity",
position=position_dodge()) facet_wrap(~panel, scales = "free")
uj5u.com熱心網友回復：
這看起來像是嵌套構面的一個很好的用例。首先將所有變數放入資料框中（您的代碼在當前格式下不可重現）
df <- structure(list(Years = c("2016", "2016", "2016", "2016", "2017",
"2017", "2017", "2017", "2016", "2016", "2016", "2016", "2017",
"2017", "2017", "2017"), Quarters = c("1", "2", "3", "4", "1",
"2", "3", "4", "1", "2", "3", "4", "1", "2", "3", "4"), panel = c("A",
"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B",
"B", "B"), Series1 = c("100", "200", "300", "400", "500", "600",
"700", "800", "400", "200", "300", "600", "500", "300", "700",
"800")), class = "data.frame", row.names = c(NA, -16L))
現在繪圖的代碼是：
library(ggh4x)
ggplot(df, aes(Quarters, Series1))
geom_col()
facet_nested(.~ panel Years)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/491410.html