DiagrammeR -将数字格式和子标签添加到节点

sg24os4d  于 2022-12-05  发布在  其他
关注(0)|答案(1)|浏览(127)

我希望向节点添加标签,主标签的字体大小为X,子标签的字体大小为X * 0.5。子标签需要具有数字格式,其中87650显示为87,650。
这在DiagrammeR中可行吗?
我的数字子标签数据来自数据框。

library(DiagrammeR)
grViz("
  digraph test {
    graph []

    node [shape = box]
    A [label = '@@1']
    B [label = 'BarFoo']

    A -> B
  }
  [1]: paste0('Main Heading \\n', sum(iris$Sepal.Length)*100)
")
4xrmg8kj

4xrmg8kj1#

我会使用***format()***先处理数字,然后再调用结果。
请运行下面的示例代码:

library(DiagrammeR)

mysum <- sum(iris$Sepal.Length)*100

input <- format(mysum, big.mark = ",")


grViz("  
  digraph test {  
    graph []  

    node [shape = box]  
    A [label = '@@1']  
    B [label = 'BarFoo']  

    A -> B  
  }  
  [1]: paste0('Main Heading \\n', input) 
")

You should be able to see a similar outcome like this

相关问题