chordNetwork - ラベルにテキストをラップする

Question

chordNetworkラベルに長いテキスト（セミコロンで区切られた）の折り返しに問題があります。

セミコロンの後に"\n"というペーストを試しましたが、機能しませんでした。私はラベルにしたい

結果：

# create a simple data frame 
d2 <- data.frame(from=LETTERS[1:5],to=c("xxxxxxxxxxxxxxxxxxxxxxxxxx;\n yyyyyyyyyyyyyyyyyy","X","X","Y","Y"),v=runif(5),stringsAsFactors = F) 
d2 
# convert data frame into a square matrix for chordNetwork data structure 
d2 <- rbind(d2, data.frame(from=d2$to,to=d2$from,v=NA)) 
d2 
str(d2) 

library(tidyr) 
library(dplyr) 
library(networkD3) 

d2 %>% spread(key = to,value = v) %>% select(-from) %>% as.matrix() ->d2 
rownames(d2) <- colnames(d2) 
d2;dim(d2) 

chordNetwork(d2, height = 500, width = 500, initialOpacity = 0.8, 
      useTicks = 0, padding = 0.1, fontSize = 9, 
      fontFamily = "sans-serif", labels = colnames(d2), labelDistance = 0) 

Answer 1

SVGのテキスト要素改行をサポートしていません。

xxxxxxxxxxxxxxxxxxxxxxxxxx; 
yyyyyyyyyyyyyyyyyy 

ここでは、コードがあります。 ...たとえば、参照

How to linebreak an svg text within javascript?

How to display multiple lines of text in SVG?