次の方法でタイタニック データをカウントするためのテーブルまたは xtabs 関数はありますか。
のような「クラス」への分離は必要ありません
df<-data.frame(Titanic)
tapply(df$Freq,list(df$Sex,df$Age,df$Survived),sum)
ただし、出力は次のようになります。
1 board_Crew board_Crew_Male 862
2 board_Crew board_Crew_Female 23
3 board_Crew_Male board_Crew_Male_Child 0
4 board_Crew_Female board_Crew_Female_Child 0
5 board_Crew_Male board_Crew_Male_Adult 862
6 board_Crew_Female board_Crew_Female_Adult 23
7 board_Crew_Male_Child board_Crew_Male_Child_No 0
8 board_Crew_Female_Child board_Crew_Female_Child_No 0
9 board_Crew_Male_Adult board_Crew_Male_Adult_No 670
10 board_Crew_Female_Adult board_Crew_Female_Adult_No 3
11 board_Crew_Male_Child board_Crew_Male_Child_Yes 0
12 board_Crew_Female_Child board_Crew_Female_Child_Yes 0
13 board_Crew_Male_Adult board_Crew_Male_Adult_Yes 192
14 board_Crew_Female_Adult board_Crew_Female_Adult_Yes 20
この最後のデータでグラフを作成できるからです
g <- graph.data.frame(new_output, directed=TRUE)
plot(g,layout=layout.reingold.tilford(g,root=1),edge.arrow.size=0.5)
