投稿者: moritanoeigo

備忘録その３ですが，その２の落穂拾い。凡例をつけて見やすくする。なので，データ例は，その２と同じ。

library(dplyr)
library(plotrix)

dat=read.csv("test2.csv") #データ読み込み

dat2 = dat %>% #datを対象とした以下の処理をして，それをdat2へ入れる
　　　gather(Section_Year,Score, -ID) %>%　#縦長のデータにする。Section_Yearという新しい変数を作り，SectionX_20xxデータを並べる。Scoreはの横に配置。IDは入れない。
　　　separate(col="Section_Year", sep="_", into=c("Section", "Year"))%>%　#Section_Yearを_を区切りに分けて，SectionとYearを別々の列とする 
　　　group_by(Section,Year) %>% #SectionとYearでグループ化する
　　　summarize(mean=mean(Score)) %>% 　#Scoreの平均を出す
　　　spread(Section, mean) #横向きデータに変更

　dat3 = select_if(dat2, is.numeric)　#数値しか入れられないので，数値以外は削除。

　radial.plot(dat3, #データ入力
　　　　　　　rp.type = "p",　 #表示方法。オプションは、r (中心から直線が出る),p (線で結ぶ),s (点のみ)
　　　　　　　start = pi/2, #グラフを始める位置。Section1を12時にする。
　　　　　　　radial.lim=c(40,60), #軸の範囲。
　　　　　　　labels=colnames(dat3), #項目名
　　　　　　　line.col=1:2, #線の色。ここでは１（黒）と２（赤）。
　　　　　　　lwd=2, #線の太さ。
　　　　　　　lty=1:2 #線の種類。ここでは1(実線)と２(点線)。
              show.grid.labels =FALSE #軸のラベル（数値）が邪魔な場合はFALSEで表示させない。

)
legend("bottomright", #表示させる位置
　　　　legend=c("2016", "2017"),　#表示させるもの 
　　　　col=1:2, #線の色（グラフ本体と合わせる）
　　　　lty=1:2  #線のスタイル（グラフ本体と合わせる）
)

備忘録その２。よくもらうデータのタイプとしては，以下のようなものもある。

library(dplyr)
library(tidyverse)
library(plotrix)

dat=read.csv("test2.csv") #データ読み込み

dat2 = dat %>% #datを対象とした以下の処理をして，それをdat2へ入れる
      gather(Section_Year,Score, -ID) %>%　#縦長のデータにする。Section_Yearという新しい変数を作り，SectionX_20xxデータを並べる。Scoreはの横に配置。IDは入れない。
      separate(col="Section_Year", sep="_", into=c("Section", "Year"))%>%　#Section_Yearを_を区切りに分けて，SectionとYearを別々の列とする 
      group_by(Section,Year) %>% #SectionとYearでグループ化する
      summarize(mean=mean(Score)) %>% 　#Scoreの平均を出す
      spread(Section, mean) #横向きデータに変更
 
dat3 = select_if(dat2, is.numeric)　#数値しか入れられないので，数値以外は削除。

radial.plot(dat3, #データ入力
　　　　　rp.type = "p",　 #表示方法。オプションは、r (中心から直線が出る),p (線で結ぶ),s (点のみ)
　　　　　start = pi/2, #グラフを始める位置。Section1を12時にする。
　　　　　radial.lim=c(40,60), #軸の範囲。
　　　　　labels=colnames(dat3), #項目名
　　　　　line.col=1:2, #線の色。ここでは１（黒）と２（赤）。
　　　　　lwd=2, #線の太さ。
　　　　　lty=1:2 #線の種類。ここでは1(実線)と２(点線)。
)

うーん、もっとスマートな整形の仕方はないものか。

Radar Chartを描く方法をいくつか試したので、備忘録的に書いておく。
今回は，plotrixを使用した。

データとしては、個人的にエクセルでもらうことの多い、以下のような形式。ファイル名は取り合えず、test.csvとしておく。

library(dplyr)
library(plotrix)

dat=read.csv("test.csv")
dat$ID=as.factor(dat$ID) #IDはfactorに変換

dat2=dat %>% summarize_if(is.numeric, funs(mean)) #dplyrのsummarizeで、numericの列だけ平均を出す。

radial.plot(dat2, #データの入力
　　　　　rp.type="p", #表示方法。オプションは、r (中心から直線が出る),p (線で結ぶ),s (点のみ)
　　　　　start = pi/2, #グラフを始める位置。Section1を12時にする。
　　　　　radial.lim = c(50,56), #軸の範囲。
　　　　　labels = colnames(dat2), #項目名
　　　　　clockwise = TRUE #時計回りに表示
)