Rで簡単にパイチャート作れるよ、っていうお話

書いたあとくだらなくなって消そうかと思ったが、消さなくてもいいかということでそのまま載せとく。

パイチャート作ってる人を見たのでRでもやってみたくなった。別にsummary関数とかでいいわけだが、ビジュアル化が大量に必要な状況があるかもしれないし…と思ったがないかw。

kaitou<-read.csv("test.csv")

for(i in 1:length(kaitou)){
  kaitou[[i]] <- as.factor(kaitou[[i]])
}

summary(kaitou)

my.pie <- function (data) {
  pie(as.numeric(table(data)/length(data)))
}

for(i in 1:length(kaitou)){
  png(paste(names(kaitou)[i],".png",sep=""))
  my.pie(kaitou[i])
  title(main=paste(names(kaitou)[i]))
  dev.off()
}

で、データフレームの列分だけ、こんなパイチャートを吐いてくれる。

クロス表も簡単。

> prop.table(table(kaitou$kaitou1,kaitou$kaitou2))
   
        1     2     4
  1 0.000 0.375 0.000
  2 0.125 0.000 0.375
  3 0.000 0.125 0.000

クロス表のビジュアル化が必要な時にはこんなの書いたりしてた。