我可以在Sankey绘图(networkD3::sankeyNetwork)中旋转节点标签吗？

library(networkD3)

# 创建一个简单的Sankey图数据
links <- data.frame(
  source = c("A", "A", "B", "B"),
  target = c("X", "Y", "X", "Y"),
  value = c(10, 20, 15, 25)
)

# 创建一个简单的节点标签
nodes <- data.frame(
  name = c("A", "B", "X", "Y")
)

# 使用sankeyNetwork函数绘制Sankey图
sankeyNetwork(
  Links = links,
  Nodes = nodes,
  Source = "source",
  Target = "target",
  Value = "value",
  NodeWidth = 30, # 增加节点宽度
  iterations = 20, # 增加迭代次数
  fontSize = 12, # 设置标签字体大小
  nodeLabel = nodes$name, # 设置节点标签
  sinksRight = FALSE # 将目标节点放置在左侧
)