是否将标题和轴标签添加到河图？

Question

我正在尝试使用riverplot包制作一个Sankey图，并且想知道是否可以将标题和轴标签添加到图中。为了简单起见，我将使用包中的一个样例河图：

nodes <- c( LETTERS[1:3] )
edges <- list( A= list( C= 10 ), B= list( C= 10 ) )
r <- makeRiver( nodes, edges, node_xpos= c( 1,1,2 ),
                node_labels= c( A= "Node A", B= "Node B", C= "Node C" ),
                node_styles= list( A= list( col= "yellow" )) )
plot( r , srt = 0)

​

​

我尝试过使用labs()，得到以下错误消息：‘二元运算符的非数值参数’(这并不意外)，但由于包本身似乎没有标题或轴标签的参数，我有点困惑。任何帮助都是非常感谢的！

Answer 1

首先尝试使用标签创建一个空图，然后riverplot::riverplot有一个参数add。将其设置为True，以便在空的初始图上进行绘制。您可以根据您认为适合基本设施的情况自定义初始绘图。

# empty plot
plot(0, 
     type = "n",
     xlab = "x-axis", 
     ylab = "y-axis", 
     frame.plot = F,
     xaxt = "n",
     yaxt = "n",
     main = "TITLE")
riverplot::riverplot(r,
                     add = T) # add to empty plot

Answer 2

您需要函数title

library(riverplot)


nodes <- c( LETTERS[1:3] )
edges <- list( A= list( C= 10 ), B= list( C= 10 ) )
r <- makeRiver( nodes, edges, node_xpos= c( 1,1,2 ),
                node_labels= c( A= "Node A", B= "Node B", C= "Node C" ),
                node_styles= list( A= list( col= "yellow" )) )

plot(r, srt = 0,
     main = "My Title")

title(main = "My title",
      xlab = "My label for axis X",
      ylab = "My label for axis Y")

此代码为您提供了

​

​