Rを使用したサンキー/沖積の視覚化の美化
私は現在、RでAlluvialパッケージを使用して視覚化を作成しています。
これが私のデータセットです：
https://app.box.com/s/6qju42u0cg1cmrnhyhyzmjtp59wnsn3q
これが私のコードです：
alluvial(fb_ad_3d[,2:3], freq=fb_ad_3d$freq,
col = ifelse( fb_ad_3d$Response == "Yes", "skyblue1",
"darkorchid1" ),xw = 0.2,alpha = 0.6,
gap.width=0.2,cex = 1.1, cex.axis = 1.5)
これが視覚化です：
私が本当に嫌いなことが2つあります。
フローコネクタの端にあるジグザグパターン
左側の特定のカテゴリ（農業、イベント、電子機器、電気通信）は圧縮されているため、対象外です。
この視覚化を改善して美しくする方法はありますか？
ggalluvialパッケージを試してみました。結果ははるかに優れています。
コードは次のとおりです。
A_col <- "firebrick3"
B_col <- "darkorange"
C_col <- "deepskyblue3"
alpha <- 0.7
ggplot(fb_ad_3d,
aes(weight = freq, axis1 = Category, axis2 = Response)) +
geom_alluvium(aes(fill = Response, color = Response),
width = 1/12, alpha = alpha, knot.pos = 0.4) +
geom_stratum(width = 1/6, color = "grey") +
geom_label(stat = "stratum", label.strata = TRUE) +
scale_x_continuous(breaks = 1:2, labels = c("Category", "Response")) +
scale_fill_manual(values = c(A_col, B_col, C_col)) +
scale_color_manual(values = c(A_col, B_col, C_col)) +
ggtitle("Relevance of Facebook Custom List Advertising") +
theme_minimal() +
theme(
axis.text.x = element_text(size = 12, face = "bold")
)
これが視覚化です：
