167  数値の集計

library(tidyverse)

dat <- tibble(
  num = 1:10,
  fac2 = rep(c("a","b"), 5),
  fac3 = rep(c("A","B","C"), 4)[1:10]
)

ここでは、ベクトルを与えると、集計した数値を返してくれる関数をご紹介いたします。

まずは 「ベクトルに含まれる要素の個数」です。

dat$num %>% length()
[1] 10

これは簡単ですね。ベクトルの要素の個数が帰ってきています。

「和」

dat$num %>% sum()
[1] 55

はい。これも単純に全部足し合わせただけです

「算術平均」は

dat$num %>% mean()
[1] 5.5

で計算できます。

mean()をつかわないで計算するなら

sum(dat$num)/length(dat$num)
[1] 5.5

と書いても計算可能です。

ここまでかいてきて、毎回dat$と書くのが面倒に感じませんか?

次の動画ではよりシンプルにこれらの演算をできる書き方について解説していきます。