Диаграмма R Санки с использованием графика реки - Вертикальные метки

Я использую пакет riverplot в R. Я могу построить диаграмму Санки. Я бы хотел добавить вертикальную метку (желательно внизу). Я нашел один пример, который, похоже, делает это: http://www.statsmapsnpix.com/2016/08/research-with-qgis-r-and-speaking-to.html (я имею в виду рисунок 20, вверху - ярлыки типа 2004 и 2015 - это то, что я пытаюсь понять, как создать).

Как мне самому это сделать?

Вот MWE, взятый непосредственно из документации пакета по адресу https://cran.r-project.org/web/packages/riverplot/riverplot.pdf

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 )

Здесь я хотел бы иметь метку под Node A и Node B под названием Left и другую метку под Node C под названием Right.


r label sankey-diagram riverplot
person bill999    schedule 15.06.2017    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Вот один из способов сделать это:

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" )) )
(coords <- plot(r))
#          A   B   C
# x        1   1   2
# top    -22 -10 -20
# center -17  -5 -10
# bottom -12   0   0
text(
  x = range(coords["x",]),
  y = min(coords["top",]),
  labels = c("left", "right"),
  pos = 1, offset = 0, font = 2
)

введите здесь описание изображения

person lukeA    schedule 15.06.2017