1.成績データ読み込み
(x <- as.numeric(read.table("../RSource/data/成績データ.txt")))

2.ヒストグラム作成

h <- hist(x,breaks = seq(15,95,10),include.lowest = TRUE,right = FALSE,
col = "cyan",main="成績ヒストグラム",xlab="成績",ylab="人数")

3.列編集

n <- length(h$mids)
(A <- h$breaks[0:n])
(B <- h$breaks[1:n+1])
(C <- h$mids)
(D <- h$counts)
(E <- h$density*10)
(F <- E*100)

4.データフレーム作成

(DF <- data.frame(A,B,C,D,E,F))
Screenshot01


5.列名(日本語)セット
colnames(DF)<- c("以上","未満","階級値","度数","相対度数","百分率")
print(DF)

6.合計行
(S <- apply(DF, 2, sum))

7.元のデータフレームに合計行をいれる.
(DF <- rbind(DF,S))
Screenshot01

8.百分率編集

DF$百分率 <- sprintf("%.0f%%",DF$百分率)

9.
DF$以上[9] <- ""
DF$未満[9] <- ""
DF$階級値 <- "合計"
Screenshot01


なんとか準備完了!