我正在try 创建一个Sankey图,但也要指定从上到下报告左侧 node 的顺序.要指定顺序,我必须更改列,将其列为factor
.然而,当我这样做时,它会改变 colored颜色 的比例,使其更受限制,scale_fill_viridis
的 colored颜色 不那么明显.它几乎就像go 掉了最极端的 colored颜色 .有没有人能帮我恢复所有的 colored颜色 ,同时还能保持左侧 node 的秩序.
我的样本数据框如下所示
df2 = structure(list(x = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L,
1L, 2L), levels = c("Method_Group", "Discipline"), class = "factor"),
node = c("Both + Baited", "Conservation Measures", "Both + Baited",
"Other Drivers", "Both + Baited", "Behavioural Ecology",
"No Receiver + Animal-borne", "Behavioural Ecology", "Receiver + Mobile",
"Reproductive Ecology", "Receiver + Mobile", "Other Drivers",
"Receiver + Mobile", "Behavioural Ecology", "Receiver + Mobile",
"Behavioural Ecology", "Receiver + Mobile", "Methodological",
"No Receiver + Animal-borne", "Behavioural Ecology", "No Receiver + Animal-borne",
"Methodological", "Receiver + Stationary", "Other Drivers",
"Receiver + Stationary", "Resource-Use Management", "Receiver + Stationary",
"Reproductive Ecology", "No Receiver + Animal-borne", "Methodological",
"No Receiver + Animal-borne", "Reproductive Ecology", "No Receiver + Animal-borne",
"Behavioural Ecology", "Receiver + Stationary", "Behavioural Ecology",
"Receiver + Stationary", "Fisheries Management", "Receiver + Stationary",
"Methodological", "Receiver + Stationary", "Behavioural Ecology",
"Receiver + Stationary", "Fisheries Management", "Both + Baited",
"Behavioural Ecology", "Both + Baited", "Methodological",
"Both + Baited", "Conservation Measures", "No Receiver + Stationary",
"Behavioural Ecology", "No Receiver + Stationary", "Other Drivers",
"Receiver + Stationary", "Methodological", "Receiver + Stationary",
"Reproductive Ecology", "Receiver + Stationary", "Resource-Use Management",
"Receiver + Mobile", "Fisheries Management", "Receiver + Stationary",
"Behavioural Ecology", "Receiver + Stationary", "Resource-Use Management",
"Receiver + Stationary", "Behavioural Ecology", "Receiver + Stationary",
"Resource-Use Management", "Receiver + Stationary", "Reproductive Ecology",
"Receiver + Baited", "Methodological", "Receiver + Baited",
"Reproductive Ecology", "Receiver + Baited", "Conservation Measures",
"Receiver + Stationary", "Methodological", "Receiver + Stationary",
"Behavioural Ecology", "Receiver + Stationary", "Behavioural Ecology",
"Receiver + Stationary", "Conservation Measures", "Receiver + Stationary",
"Reproductive Ecology", "Receiver + Stationary", "Behavioural Ecology",
"Receiver + Stationary", "Reproductive Ecology", "Receiver + Stationary",
"Methodological", "Receiver + Stationary", "Other Drivers",
"No Receiver + Animal-borne", "Behavioural Ecology", "No Receiver + Animal-borne",
"Methodological", "No Receiver + Stationary", "Other Drivers",
"No Receiver + Stationary", "Fisheries Management", "No Receiver + Stationary",
"Behavioural Ecology", "No Receiver + Stationary", "Behavioural Ecology",
"Receiver + Mobile + Stationary", "Behavioural Ecology",
"Receiver + Mobile + Stationary", "Conservation Measures",
"Receiver + Baited", "Conservation Measures", "Receiver + Baited",
"Behavioural Ecology", "No Receiver + Animal-borne", "Methodological",
"Both + Mobile", "Reproductive Ecology", "Both + Mobile",
"Behavioural Ecology", "Both + Mobile", "Methodological",
"Receiver + Stationary", "Reproductive Ecology", "Receiver + Stationary",
"Methodological", "Receiver + Mobile", "Fisheries Management",
"Receiver + Mobile", "Methodological", "No Receiver + Mobile",
"Behavioural Ecology", "No Receiver + Mobile", "Methodological",
"No Receiver + Animal-borne", "Other Drivers", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Conservation Measures",
"Receiver + Stationary", "Other Drivers", "Receiver + Stationary",
"Behavioural Ecology", "Receiver + Stationary", "Methodological",
"No Receiver + Animal-borne", "Behavioural Ecology", "No Receiver + Animal-borne",
"Methodological", "No Receiver + Animal-borne", "Conservation Measures",
"Both + Animal-borne", "Behavioural Ecology", "Both + Animal-borne",
"Methodological", "Both + Animal-borne", "Reproductive Ecology",
"Both + Animal-borne", "Behavioural Ecology", "Both + Animal-borne",
"Methodological", "Receiver + Stationary", "Reproductive Ecology",
"Receiver + Stationary", "Behavioural Ecology", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Methodological",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Other Drivers", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne + Mobile", "Behavioural Ecology",
"Both + Stationary", "Behavioural Ecology", "Both + Stationary",
"Methodological", "Receiver + Stationary", "Fisheries Management",
"Receiver + Stationary", "Other Drivers", "Receiver + Stationary",
"Methodological", "Receiver + Stationary", "Conservation Measures",
"Receiver + Stationary", "Behavioural Ecology", "Receiver + Stationary",
"Methodological", "Receiver + Stationary", "Fisheries Management",
"Receiver + Stationary", "Methodological", "Receiver + Stationary",
"Methodological", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Other Drivers", "Both + Stationary", "Behavioural Ecology",
"Both + Stationary", "Fisheries Management", "Both + Stationary",
"Other Drivers", "Receiver + Animal-borne", "Behavioural Ecology",
"Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Behavioural Ecology", "Receiver + Stationary", "Resource-Use Management",
"Receiver + Stationary", "Methodological", "Receiver + Stationary",
"Reproductive Ecology", "Receiver + Baited", "Behavioural Ecology",
"Receiver + Baited", "Conservation Measures", "Receiver + Baited",
"Fisheries Management", "Receiver + Baited", "Other Drivers",
"No Receiver + Mobile", "Behavioural Ecology", "No Receiver + Mobile",
"Methodological", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Other Drivers", "No Receiver + Animal-borne", "Methodological",
"Receiver + Stationary", "Behavioural Ecology", "Both + Stationary",
"Behavioural Ecology", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Other Drivers", "No Receiver + Animal-borne", "Methodological",
"Both + Animal-borne", "Behavioural Ecology", "Both + Animal-borne",
"Methodological", "Receiver + Mobile", "Methodological",
"No Receiver + Animal-borne", "Reproductive Ecology", "No Receiver + Animal-borne",
"Methodological", "Receiver + Stationary", "Resource-Use Management",
"Receiver + Stationary", "Behavioural Ecology", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Conservation Measures",
"No Receiver + Animal-borne", "Reproductive Ecology", "Receiver + Stationary",
"Behavioural Ecology", "Receiver + Stationary", "Fisheries Management",
"Receiver + Stationary", "Behavioural Ecology", "No Receiver + Animal-borne",
"Methodological", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Stationary", "Other Drivers", "No Receiver + Stationary",
"Methodological", "No Receiver + Animal-borne", "Reproductive Ecology",
"No Receiver + Animal-borne", "Methodological", "Both + Stationary",
"Behavioural Ecology", "Both + Stationary", "Methodological",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Other Drivers",
"No Receiver + Stationary", "Methodological", "No Receiver + Stationary",
"Behavioural Ecology", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Methodological", "No Receiver + Animal-borne",
"Behavioural Ecology", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Behavioural Ecology", "No Receiver + Animal-borne",
"Methodological", "No Receiver + Animal-borne", "Other Drivers",
"Receiver + Baited", "Behavioural Ecology", "Receiver + Baited",
"Conservation Measures", "Receiver + Baited", "Other Drivers",
"Receiver + Stationary", "Behavioural Ecology", "Receiver + Stationary",
"Methodological", "Receiver + Stationary", "Fisheries Management",
"Receiver + Stationary", "Other Drivers", "No Receiver + Animal-borne",
"Reproductive Ecology", "No Receiver + Animal-borne", "Behavioural Ecology",
"No Receiver + Animal-borne", "Other Drivers", "Receiver + Mobile",
"Behavioural Ecology", "Receiver + Mobile", "Conservation Measures",
"Receiver + Stationary", "Behavioural Ecology", "Receiver + Stationary",
"Fisheries Management", "Receiver + Stationary", "Methodological",
"Receiver + Stationary", "Other Drivers"), next_x = structure(c(2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA,
2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L, NA, 2L,
NA), levels = c("Method_Group", "Discipline"), class = "factor"),
next_node = c("Conservation Measures", NA, "Other Drivers",
NA, "Behavioural Ecology", NA, "Behavioural Ecology", NA,
"Reproductive Ecology", NA, "Other Drivers", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Methodological", NA, "Other Drivers", NA, "Resource-Use Management",
NA, "Reproductive Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Behavioural Ecology", NA, "Behavioural Ecology", NA,
"Fisheries Management", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Fisheries Management", NA, "Behavioural Ecology", NA,
"Methodological", NA, "Conservation Measures", NA, "Behavioural Ecology",
NA, "Other Drivers", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Resource-Use Management", NA, "Fisheries Management",
NA, "Behavioural Ecology", NA, "Resource-Use Management",
NA, "Behavioural Ecology", NA, "Resource-Use Management",
NA, "Reproductive Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Conservation Measures", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Conservation Measures", NA,
"Reproductive Ecology", NA, "Behavioural Ecology", NA, "Reproductive Ecology",
NA, "Methodological", NA, "Other Drivers", NA, "Behavioural Ecology",
NA, "Methodological", NA, "Other Drivers", NA, "Fisheries Management",
NA, "Behavioural Ecology", NA, "Behavioural Ecology", NA,
"Behavioural Ecology", NA, "Conservation Measures", NA, "Conservation Measures",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Methodological", NA, "Fisheries Management", NA, "Methodological",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Other Drivers",
NA, "Behavioural Ecology", NA, "Conservation Measures", NA,
"Other Drivers", NA, "Behavioural Ecology", NA, "Methodological",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Conservation Measures",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Behavioural Ecology", NA, "Behavioural Ecology", NA,
"Methodological", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Other Drivers",
NA, "Behavioural Ecology", NA, "Behavioural Ecology", NA,
"Behavioural Ecology", NA, "Methodological", NA, "Fisheries Management",
NA, "Other Drivers", NA, "Methodological", NA, "Conservation Measures",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Fisheries Management",
NA, "Methodological", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Methodological", NA, "Other Drivers", NA, "Behavioural Ecology",
NA, "Fisheries Management", NA, "Other Drivers", NA, "Behavioural Ecology",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Resource-Use Management",
NA, "Methodological", NA, "Reproductive Ecology", NA, "Behavioural Ecology",
NA, "Conservation Measures", NA, "Fisheries Management",
NA, "Other Drivers", NA, "Behavioural Ecology", NA, "Methodological",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Other Drivers",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Other Drivers",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Methodological",
NA, "Methodological", NA, "Reproductive Ecology", NA, "Methodological",
NA, "Resource-Use Management", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Conservation Measures", NA,
"Reproductive Ecology", NA, "Behavioural Ecology", NA, "Fisheries Management",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Behavioural Ecology",
NA, "Other Drivers", NA, "Methodological", NA, "Reproductive Ecology",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Methodological",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Other Drivers",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Behavioural Ecology",
NA, "Methodological", NA, "Behavioural Ecology", NA, "Behavioural Ecology",
NA, "Behavioural Ecology", NA, "Methodological", NA, "Other Drivers",
NA, "Behavioural Ecology", NA, "Conservation Measures", NA,
"Other Drivers", NA, "Behavioural Ecology", NA, "Methodological",
NA, "Fisheries Management", NA, "Other Drivers", NA, "Reproductive Ecology",
NA, "Behavioural Ecology", NA, "Other Drivers", NA, "Behavioural Ecology",
NA, "Conservation Measures", NA, "Behavioural Ecology", NA,
"Fisheries Management", NA, "Methodological", NA, "Other Drivers",
NA)), row.names = c(NA, -362L), groups = structure(list(.rows = structure(list(
1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L,
15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L,
27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L,
39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L,
51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L,
63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L,
75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L,
87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L,
99L, 100L, 101L, 102L, 103L, 104L, 105L, 106L, 107L, 108L,
109L, 110L, 111L, 112L, 113L, 114L, 115L, 116L, 117L, 118L,
119L, 120L, 121L, 122L, 123L, 124L, 125L, 126L, 127L, 128L,
129L, 130L, 131L, 132L, 133L, 134L, 135L, 136L, 137L, 138L,
139L, 140L, 141L, 142L, 143L, 144L, 145L, 146L, 147L, 148L,
149L, 150L, 151L, 152L, 153L, 154L, 155L, 156L, 157L, 158L,
159L, 160L, 161L, 162L, 163L, 164L, 165L, 166L, 167L, 168L,
169L, 170L, 171L, 172L, 173L, 174L, 175L, 176L, 177L, 178L,
179L, 180L, 181L, 182L, 183L, 184L, 185L, 186L, 187L, 188L,
189L, 190L, 191L, 192L, 193L, 194L, 195L, 196L, 197L, 198L,
199L, 200L, 201L, 202L, 203L, 204L, 205L, 206L, 207L, 208L,
209L, 210L, 211L, 212L, 213L, 214L, 215L, 216L, 217L, 218L,
219L, 220L, 221L, 222L, 223L, 224L, 225L, 226L, 227L, 228L,
229L, 230L, 231L, 232L, 233L, 234L, 235L, 236L, 237L, 238L,
239L, 240L, 241L, 242L, 243L, 244L, 245L, 246L, 247L, 248L,
249L, 250L, 251L, 252L, 253L, 254L, 255L, 256L, 257L, 258L,
259L, 260L, 261L, 262L, 263L, 264L, 265L, 266L, 267L, 268L,
269L, 270L, 271L, 272L, 273L, 274L, 275L, 276L, 277L, 278L,
279L, 280L, 281L, 282L, 283L, 284L, 285L, 286L, 287L, 288L,
289L, 290L, 291L, 292L, 293L, 294L, 295L, 296L, 297L, 298L,
299L, 300L, 301L, 302L, 303L, 304L, 305L, 306L, 307L, 308L,
309L, 310L, 311L, 312L, 313L, 314L, 315L, 316L, 317L, 318L,
319L, 320L, 321L, 322L, 323L, 324L, 325L, 326L, 327L, 328L,
329L, 330L, 331L, 332L, 333L, 334L, 335L, 336L, 337L, 338L,
339L, 340L, 341L, 342L, 343L, 344L, 345L, 346L, 347L, 348L,
349L, 350L, 351L, 352L, 353L, 354L, 355L, 356L, 357L, 358L,
359L, 360L, 361L, 362L), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), row.names = c(NA, -362L), class = c("tbl_df",
"tbl", "data.frame")), class = c("rowwise_df", "tbl_df", "tbl",
"data.frame"))
这是我用来重新排序的代码,这样左边的 node 就会按特定顺序排列
df2$node <- factor(
df2$node,
levels =
c("Receiver + Mobile + Stationary", "Both + Mobile",
"Receiver + Animal-borne", "No Receiver + Animal-borne + Mobile",
"Both + Baited","No Receiver + Mobile", "Both + Animal-borne","Both + Stationary",
"Receiver + Baited", "No Receiver + Stationary", "Receiver + Mobile",
"Receiver + Stationary", "No Receiver + Animal-borne",
"Reproductive Ecology","Other Drivers","Methodological","Resource-Use Management",
"Fisheries Management","Conservation Measures","Behavioural Ecology")
)
这是我用来绘制图表的代码
remotes::install_github("davidsjoberg/ggsankey")
library(ggsankey)
library("tokenizers")
library(dplyr)
library(tidyr)
library(viridisLite)
library(viridis)
library(ggplot2)
width <- .4
p <- ggplot(df2, aes(x = x, next_x = next_x, node = node, next_node = next_node, fill = factor(node), label = node)) +
geom_sankey(flow.alpha = 1, node.color = "black", show.legend = FALSE, width = width) +
theme_void() +
theme(
plot.margin = unit(rep(5.5, 4), "pt")
) +
#I have tried to play around with this code to change scale but to no avail
scale_fill_viridis_d(begin = 1.0, end = 0)
# Get the data from the flows layer
dat <- layer_data(last_plot(), 1) |>
filter(x == 2 - width / 2) |>
distinct(fill, flow_end_ymax, .keep_all = TRUE)
p = p +
geom_rect(data = dat, aes(
xmin = x, xmax = x + width,
ymin = flow_end_ymin, ymax = flow_end_ymax,
fill = label
), inherit.aes = FALSE) +
geom_sankey_label(size = 5, color = "black", fill = "white") +
guides(fill = "none")
p
But I want the colours to have the full range from the yellow to dark blue like this picture
有什么 idea 吗?