我有這個資料：
不是你所希望的。
首先，我希望填充由axis1著色。所以 s2_vervoermiddel_werkstudie_voor 應該決定顏色，但是當我嘗試這樣做時出現錯誤（而不是“黑色”，我輸入 s2_vervoermiddel_werkstudie_voor）
(Error: Continuous value supplied to discrete scale)
其次，我如何更改標簽以使我們看起來不落后十年？
三、如何更改排序？
structure(list(s2_vervoermiddel_werkstudie_voor = c("Auto (bestuurder)",
"Auto (bestuurder)", "Auto (bestuurder)", "Auto (bestuurder)",
"Auto (bestuurder)", "Auto (bestuurder)", "Auto (bestuurder)",
"Auto (bestuurder)", "Auto (bestuurder)", "Auto (bestuurder)",
"Auto (passagier)", "Auto (passagier)", "Auto (passagier)", "Auto (passagier)",
"Auto (passagier)", "Auto (passagier)", "Auto (passagier)", "Auto (passagier)",
"Trein", "Trein", "Trein", "Trein", "Trein", "Trein", "Trein",
"Trein", "Trein", "Trein", "Bus/Tran/Metro", "Bus/Tran/Metro",
"Bus/Tran/Metro", "Bus/Tran/Metro", "Bus/Tran/Metro", "Bus/Tran/Metro",
"Bus/Tran/Metro", "Bus/Tran/Metro", "Fiets", "Fiets", "Fiets",
"Fiets", "Fiets", "Fiets", "Fiets", "Fiets", "Fiets", "Fiets",
"E-bike/speed pedelec", "E-bike/speed pedelec", "E-bike/speed pedelec",
"E-bike/speed pedelec", "Scooter/brommer/motor", "Scooter/brommer/motor",
"Scooter/brommer/motor", "Scooter/brommer/motor", "Scooter/brommer/motor",
"Lopen", "Lopen", "Lopen", "Lopen", "Lopen", "Lopen", "Lopen",
"NVA", "NVA", "NVA", "NVA", "NVA", NA, NA, NA, NA, NA, NA, NA,
NA), s2_vervoermiddel_werkstudie_na = c("Auto (bestuurder)",
"Auto (passagier)", "Trein", "Bus/Tran/Metro", "Fiets", "E-bike/speed pedelec",
"Scooter/brommer/motor", "Lopen", "NVA", NA, "Auto (bestuurder)",
"Auto (passagier)", "Trein", "Bus/Tran/Metro", "Fiets", "Lopen",
"NVA", NA, "Auto (bestuurder)", "Auto (passagier)", "Trein",
"Bus/Tran/Metro", "Fiets", "E-bike/speed pedelec", "Scooter/brommer/motor",
"Lopen", "NVA", NA, "Auto (bestuurder)", "Auto (passagier)",
"Trein", "Bus/Tran/Metro", "Fiets", "E-bike/speed pedelec", "NVA",
NA, "Auto (bestuurder)", "Auto (passagier)", "Trein", "Bus/Tran/Metro",
"Fiets", "E-bike/speed pedelec", "Scooter/brommer/motor", "Lopen",
"NVA", NA, "Auto (bestuurder)", "Fiets", "E-bike/speed pedelec",
NA, "Auto (bestuurder)", "Fiets", "E-bike/speed pedelec", "Scooter/brommer/motor",
NA, "Auto (bestuurder)", "Trein", "Bus/Tran/Metro", "Fiets",
"Lopen", "NVA", NA, "Auto (bestuurder)", "Auto (passagier)",
"Fiets", "NVA", NA, "Auto (bestuurder)", "Trein", "Bus/Tran/Metro",
"Fiets", "E-bike/speed pedelec", "Lopen", "NVA", NA), Freq = c(441,
2, 11, 1, 21, 12, 3, 3, 3, 46, 4, 9, 1, 1, 2, 1, 1, 1, 25, 3,
156, 1, 22, 4, 2, 2, 6, 18, 10, 1, 7, 49, 17, 3, 2, 10, 30, 1,
28, 10, 348, 11, 4, 4, 6, 39, 2, 2, 53, 11, 4, 1, 1, 13, 2, 2,
5, 2, 8, 26, 1, 4, 1, 1, 1, 22, 1, 11, 4, 2, 15, 2, 1, 2, 379
)), row.names = c(NA, -75L), class = c("tbl_df", "tbl", "data.frame"
))
類：
tibble [75 x 3] (S3: tbl_df/tbl/data.frame)
$ s2_vervoermiddel_werkstudie_voor: chr [1:75] "Auto (bestuurder)" "Auto (bestuurder)" "Auto (bestuurder)" "Auto (bestuurder)" ...
$ s2_vervoermiddel_werkstudie_na : chr [1:75] "Auto (bestuurder)" "Auto (passagier)" "Trein" "Bus/Tran/Metro" ...
$ Freq : num [1:75] 441 2 11 1 21 12 3 3 3 46 ...
uj5u.com熱心網友回復：
例子：
ggplot(data = modechoice %>%
## remove NAs
filter(!is.na(s2_vervoermiddel_werkstudie_voor) &
!is.na(s2_vervoermiddel_werkstudie_na)),
aes(y = Freq, axis1 = s2_vervoermiddel_werkstudie_voor, axis2 = s2_vervoermiddel_werkstudie_na))
geom_alluvium(width = 1/12,
## link alluvium colors to variable:
aes(fill = s2_vervoermiddel_werkstudie_voor)
)
geom_stratum(width = 1/12,
## change black stratum color here:
fill = "red",
color = "grey")
## change geom_label to geom_text for leaner appearance:
geom_text(stat = "stratum",
aes(label = after_stat(stratum)),
## rotate labels if desired:
angle = 0,
## left- and right-adjust labels
hjust = c(rep(c(0,1),each = 9))
)
scale_x_discrete(limits = c("Before", "After"), expand = c(.05, .05))
scale_fill_brewer(type = "qual", palette = "Set1",
## skip color legend:
guide = 'none'
)
ggtitle("Mode choice before corona and expected after")
fct_reorder按頻率的累計和訂購。匆忙中，抱歉沒有撰寫代碼。
uj5u.com熱心網友回復：
您需要根據第一個軸變數指定填充顏色。鑒于標簽的大小和某些節點的有限空間，標簽將很難放置，但這樣的事情可能對您有用：
library(ggplot2)
library(ggalluvial)
ggplot(data = modechoice,
aes(y = Freq, axis1 = s2_vervoermiddel_werkstudie_voor,
axis2 = s2_vervoermiddel_werkstudie_na))
geom_alluvium(aes(fill = s2_vervoermiddel_werkstudie_voor),
width = 1/12)
geom_stratum(width = 1/12, fill = "black", color = "grey")
geom_text(x = 0.95, stat = "stratum",
aes(label = s2_vervoermiddel_werkstudie_voor),
color = 'black', hjust = 1)
geom_text(x = 2.05, stat = "stratum",
aes(label = s2_vervoermiddel_werkstudie_na),
color = 'black', hjust = 0)
scale_x_discrete(limits = c("Before", "After"), expand = c(.2, .2))
ggtitle("Mode choice before corona and expected after")
theme_void()
theme(legend.position = 'none')
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/452354.html
上一篇：Rggplot只顯示一個條形圖
下一篇：R預測建議