如何在diagrammeR中向图形添加文本

我想创建一个很好的图表来说明我的一些数据

我已经创建了图形，但我想向节点添加一些计算文本。我该怎么做呢

这是我的图表，但如何/在何处添加我在R中计算的字段

library(magrittr)
library(DiagrammeR)

# Create a simple NDF
nodes <-
create_nodes(nodes = c("Index", "Surveillance", "Intervention", "Lost to Follow-up"))
# Create a simple EDF
edges <-
  create_edges(from = c("Index", "Surveillance", "Index", "Surveillance","Intervention","Surveillance","Intervention"),
               to = c("Surveillance", "Intervention", "Lost to Follow-up", "Lost to Follow-up","Intervention","Surveillance","Lost to Follow-up"),
               )

graph <-
  create_graph(
    nodes_df = nodes,
    edges_df = edges,
    graph_attrs = "layout = twopi",
    node_attrs = "fontname = Helvetica",
    edge_attrs = "color = gray20"
  )

# View the graph
render_graph(graph,output = "visNetwork")

库（magrittr）
图书馆（图解机）
#创建一个简单的NDF
节点
require（visNetwork，静默=TRUE）
nb=“此处的信息”
节点
require(visNetwork, quietly = TRUE)

nb = "Information here"

nodes <- data.frame(id = 1:5, group = c(rep("A", 2), rep("B", 3)), 
                    title = paste("<p>", 1:5,"<br>",nb, sep = ""), stringsAsFactors = FALSE)
edges <- data.frame(from = c(2,5,3,3), to = c(1,2,4,2))


### USE
visNetwork(nodes, edges, width = "100%") %>% visOptions(highlightNearest = list(enabled =TRUE,algorithm="hierarchical"))