R - Riverplot包使用 - Sankey图

Question

我尝试在1月份之前使用riverplot package绘制一个sankey图表。但是我的案例非常复杂，而且我没有办法修复我的图表，所以我发布了这些问题，希望这有助于找到我的问题的答案或改进包的方法。

我的图表如下。正如您所看到的，我在第一张图片中的图表中，节点的状态彼此重叠，不可读。是否可以在图表的一侧显示节点名称，每个节点名称将在它所代表的通道​​旁边。这些想法显示在下面的第二张图片中，其中我们有多个车道，然后状态应该在旁边以解释什么是车道平均值。

非常感谢！

我的案例难以生成样本但我重复使用riverplot包中包含的January样本进行了一些修改。这是

library(riverplot)
temp <- function () {
ret <- list(nodes = 
                data.frame(ID = LETTERS[1:8], x = c(1,2, 2, 3, 3, 4, 5, 1), 
                           labels = c(NA, NA, "Node C Node C Node C", rep(NA, 4), "Node H Node H Node H"), 
                           stringsAsFactors = FALSE), 
            styles = list(A = list(col = "#00990099",
                                   lty = 0, textcol = "white"), 
                          H = list(col = "#FF000099", textcol = "white"), 
                          B = list(col = "#00006699", textcol = "white"),                                                                                                                                                                           F = list(col = "yellow"), D = list(col = "#00FF0099")))
ret$edges <- data.frame(N1 = c("A", "A", "A", "H", "H", "H", 
                               "B", "B", "C", "C", "C"), N2 = 
                            c("B", "C", "D", "D", "F", "G", "D", "F", "D", "E", "F"), 
                        Value = c(10, 20, 5, 10, 10, 20, 5, 10, 20, 15, 10), stringsAsFactors = F)
rownames(ret$nodes) <- ret$nodes$ID
class(ret) <- c(class(ret), "riverplot")
return(ret)
} 
x <- temp(x) 
plot(x)

Answer 1

srt的{​​{1}}参数加上较短的标签是答案吗？

riverplot