Excelにありそうな三次元の棒グラフを作る

統計

2021.07.042021.08.17

Excelで作れそうな、２水準の棒グラフを作りたいと思ったので、やってみました。

  > library(epade)

 data <- ChickWeight %>%
      dplyr::filter(Diet == "1") %>%
   dplyr::select(weight, Time, Chick) %>%
   tidyr::spread(key = Chick, value= weight)   

   B=data$Time
   A1<- data[[2]]
   A2<- data[[3]]
   A3<- data[[4]]
   A4<- data[[5]]
   A5<- data[[6]]
   A6<- data[[7]]
   A7<- data[[8]]
   A8<- data[[9]]
   A9<- data[[10]]
   A10<- data[[11]]
   A11<- data[[12]]
   A12<- data[[13]]
   A13<- data[[14]]
   A14<- data[[15]]
   A15<- data[[16]]
   A16<- data[[17]]
   A17<- data[[18]]
   A18<- data[[19]]
   A19<- data[[20]]
   A20<- data[[21]]

> ChickWeight_data<-cbind(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20)

> bar3d.ade(x=ChickWeight_data, y=B, wall=2, xw=11, zw=1,alpha=1, axes=T, bgbox=T, main = "ChickWeight")

col= で何も指定しないと、こんな感じのレインボーなグラフが出来上がります。軸の系列を追いやすいので、とりあえずデータを眺めるだけならこれもアリな気がします。軸を自分で動かしたりすることができないので、少し使い勝手が悪く感じるかもしれません。

Wall=1〜6でグラフのスタイルを選択できます。一番論文向きなのはwall=2でしょうか。

以下のサイトを参考にさせていただきました。