我正在使用三方图来可视化给定班级中选定学生之间的重叠俱乐部成员资格，但由于输出看起来很“长”，我想知道是否有一种方法可以旋转此图以将“班级”放在首位，中间的“俱乐部”层数越多，底部的“学生”层数越多？
下面是我的代码。如果有人可以分享他们对此的想法，将不胜感激。
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])