【发布时间】:2013-08-19 18:22:19
【问题描述】:
是否可以构建类似于下图的树?主要是那棵树应该表达机组成员的数量是如何分成几类的。
df<-data.frame(Titanic)
df_Crew <- df[df$Class=="Crew",]
L <- lapply(1:4, function(i) aggregate(df_Crew$Freq, by=df_Crew[1:i], sum))
L2 <- lapply(L, function(d) data.frame(group=do.call(paste, c(as.list(d[names(d)!="x"]), sep="_")), freq=d$x))
L3<-data.frame()
for(i in 1:3){
d<-cbind(from=rbind(L2[[i]],L2[[i]])$group,L2[[i+1]])
L3<-rbind(L3,d)
}
library(igraph)
g <- graph.data.frame(L3, directed=TRUE)
plot(g,layout=layout.reingold.tilford(g,root=1),edge.arrow.size=0.5)
【问题讨论】:
-
请停止删除和重新发布相同的问题。我只能假设您这样做是为了删除评论历史记录和/或将您的问题排在队列顶部。也不适合使用本网站。
-
1) 不,这不是同一个问题。 2)我只删除帖子,因为更正和cmets破坏了我的问题,所以他们有答案的人,在你的“更正”之后不能再阅读它了。 3)读过这个问题的人会认为我之前的帖子中有答案。
-
如果您不同意修改,您可以回滚对您的帖子所做的修改。但是,不要卷入编辑战;如果出现内容争议,您可以标记您的帖子以引起版主注意。删除和重新发布不是一个好主意。
标签: r