Я использую трехсторонний график, чтобы визуализировать перекрывающиеся членства в клубах среди выбранных студентов в данном классе, но, поскольку результат выглядит довольно «длинным», мне интересно, есть ли способ повернуть этот график, чтобы поставить «Класс» сверху, более многочисленный «клубный» слой посередине, а «студенческий» слой снизу?
Ниже приведен мой код для этого. Буду очень признателен, если кто-то поделится своими мыслями по этому поводу.
require(igraph)
df <- read.csv2(text="Class;Club;Student
Class;Club 1;Student1
Class;Club 2;Student2
Class;Club 3;Student2
Class;Club 4;Student1
Class;Club 5;Student1
Class;Club 6;Student3
Class;Club 7;Student4
Class;Club 8;Student4
Class;Club 9;Student4
Class;Club 10;Student4")
mat <- as.matrix(df)
g <- graph_from_edgelist(rbind(mat[,1:2], mat[,2:3]), directed = F)
l <- layout_with_sugiyama(g, ceiling(match(V(g)$name, m)/nrow(m)))
plot(g, layout=-l$layout[,2:1])