tags: `rBasicLearning`

1. テンプレート

ミーンは赤・メジアンは青・モードは黄色で表してます

RVgraph <- function(a){
  h1 <- hist(a,
       breaks = max(a)-1)
  segments(mean(a), 0, mean(a), max(h1$counts), col = "red", lwd = 2)
  segments(median(a), 0, median(a), max(h1$counts), col = "blue", lwd = 2)
  segments(which.max(h1$counts), 0, which.max(h1$counts), max(h1$counts), col = "yellow", lwd = 2)
}

2. 具体例

使うデータ

data <- c(1, 1, 1, 1, 2, 3, 4, 5, 16, 20)

出力

RVgraph(data)