基本的な算術演算子 -その2-

ceilling, floor, round, trunc, signif

小数点切り上げ、小数点切り下げ、四捨五入¹、整数化、指定桁数で丸める。

# sample data
x <- mtcars[mtcars["mpg"] >= 30.0,]
x

##                 mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Fiat 128       32.4   4 78.7  66 4.08 2.200 19.47  1  1    4    1
## Honda Civic    30.4   4 75.7  52 4.93 1.615 18.52  1  1    4    2
## Toyota Corolla 33.9   4 71.1  65 4.22 1.835 19.90  1  1    4    1
## Lotus Europa   30.4   4 95.1 113 3.77 1.513 16.90  1  1    5    2

# 小数点切り上げ
ceiling(x$qsec)

## [1] 20 19 20 17

# 小数点切り下げ
floor(x$qsec)

## [1] 19 18 19 16

# 四捨五入
round(x$qsec)

## [1] 19 19 20 17

# 整数化
trunc(x$qsec)

## [1] 19 18 19 16

# 指定桁数で丸める
signif(x$qsec, 2)

## [1] 19 19 20 17

exp, log, log10, log2, sqrt

指数関数、自然対数、常用対数、底が２の対数、平方根

exp(1)

## [1] 2.718282

log(2)

## [1] 0.6931472

log10(2)

## [1] 0.30103

log2(2)

## [1] 1

sqrt(c(9,16,25))

## [1] 3 4 5

max, min, prod, sum

最大、最小、相乗、総和

# sample data
x <- mtcars[mtcars["mpg"] >= 30.0,]
x

##                 mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Fiat 128       32.4   4 78.7  66 4.08 2.200 19.47  1  1    4    1
## Honda Civic    30.4   4 75.7  52 4.93 1.615 18.52  1  1    4    2
## Toyota Corolla 33.9   4 71.1  65 4.22 1.835 19.90  1  1    4    1
## Lotus Europa   30.4   4 95.1 113 3.77 1.513 16.90  1  1    5    2

max(x$gear)

## [1] 5

min(x$gear)

## [1] 4

prod(x$gear)

## [1] 320

sum(x$gear)

## [1] 17

cummax, cummin, cumprod, cumsum

数列の部分最大、最小、積、和

# sample data
x <- mtcars[mtcars["mpg"] >= 30.0,]
x

##                 mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Fiat 128       32.4   4 78.7  66 4.08 2.200 19.47  1  1    4    1
## Honda Civic    30.4   4 75.7  52 4.93 1.615 18.52  1  1    4    2
## Toyota Corolla 33.9   4 71.1  65 4.22 1.835 19.90  1  1    4    1
## Lotus Europa   30.4   4 95.1 113 3.77 1.513 16.90  1  1    5    2

cummax(x$carb)

## [1] 1 2 2 2

cummin(x$carb)

## [1] 1 1 1 1

cumprod(x$carb)

## [1] 1 2 2 4

cumsum(x$carb)

## [1] 1 3 4 6

diff(x$carb)

## [1]  1 -1  1