chordNetwork - Text in Etiketten einbinden

Question

Ich habe ein Problem mit der Umhüllung eines langen Textes (getrennt durch ein Semikolon) in chordNetwork Etiketten.

Ich versuchte Paste "\n" nach Semikolon, aber nicht funktioniert.

Ergebnis, das ich in Etikett mag:

xxxxxxxxxxxxxxxxxxxxxxxxxx; 
yyyyyyyyyyyyyyyyyy 

Hier ist der Code:

# 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 Textelemente unterstützen Zeilenumbrüche nicht. siehe zum Beispiel ...

How to linebreak an svg text within javascript?

How to display multiple lines of text in SVG?