下面的代碼使用geom_link產生了一個基本圖。我想知道我如何通過ex_data$x_diff變數或者通過xend和x點之間的差異來排列路徑/段？我想讓那些在xend和x之間有最大正差的段出現在圖的頂部，反之則是xend和x之間的負差。
謝謝你。
library(tidyverse)
library(ggforce)
ex_data <- data.frame()
id = letters[1。 16],
x = c（9. 17, 11.81, 0. 95, 5.61, 2.52, 1. 78, 1.44, 2.40, 5. 14, 8.25, 6. 65, 4.44,
2.71, 2.35, 2. 20, 6.76）,
xend = c(3.87， 10。 75, 6.82, 10.11, 3. 67, 4.28, 4.99, 2. 69, 7.01, 4. 90, 8.64,
1.48, 0.20, 0. 32, 2.16, 4. 55）,
color = c("#97233f"/span>。 "#241773"/span>。 "#0b162a", "#fb4f14", "#002244", "#002244","#203731", "#000000"。 "#002244"/span>。 "#008e97", "#4f2683", "#203731", "#203731",
"#004953", "#000000"。 "#002244", "#aa0000"）
)
ex_data$x_diff <- Ex_data$xend - ex_data$x
ggplot(ex_data)
geom_link(aes(x = x, xend = xend, y = id, yend = id, 顏色 = color,
alpha = stat(index))， show. legend = FALSE, size = 5。 n = 500）
scale_colour_identity（）
uj5u.com熱心網友回復：
實作你所期望的結果的一個選擇是，根據x_diff對你的id變數重新排序：
library（tidyverse）
library(ggforce)
ex_data$x_diff <- Ex_data$xend - ex_data$x
ex_data$id < -重新排序(ex_data$id,/span>ex_data$x_diff)
ggplot(ex_data)
geom_link(aes(x = x, xend = xend。 y = id, yend = id, 顏色 = color,
alpha = stat(index))， show. legend = FALSE, size = 5。 n = 500）
scale_colour_identity（）
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/306860.html
標籤：
上一篇：有條件的行在R中匯總