R语言算术运算符 #

5 + 3
10.5 + 2.5
-5 + 10

x <- c(1, 2, 3)
y <- c(4, 5, 6)
x + y

x + 10

10 - 3
5.5 - 2.3
-10 - (-5)

x <- c(10, 20, 30)
x - 5

x <- c(10, 20, 30)
y <- c(1, 2, 3)
x - y

5 * 3
2.5 * 4
-3 * 4

x <- c(1, 2, 3)
x * 2

x <- c(1, 2, 3)
y <- c(4, 5, 6)
x * y

10 / 2
7 / 2
10 / 3

x <- c(10, 20, 30)
x / 2

x <- c(10, 20, 30)
y <- c(2, 4, 5)
x / y

10 %/% 3
7 %/% 2
-7 %/% 2

x <- c(10, 15, 20)
x %/% 3

10 %% 3
7 %% 2
-7 %% 3

x <- c(10, 15, 20)
x %% 3

x %% 2 == 0

2 ^ 3
2 ^ 10
4 ^ 0.5
9 ^ 0.5

x <- c(1, 2, 3, 4, 5)
x ^ 2
x ^ 0.5

A <- matrix(1:6, nrow = 2, ncol = 3)
B <- matrix(1:6, nrow = 3, ncol = 2)

A %*% B

A <- matrix(1:4, nrow = 2)
B <- matrix(c(1, 0, 0, 1), nrow = 2)

A %x% B

x <- c(1, 2, 3, 4, 5)

x + 10
x - 5
x * 2
x / 2
x ^ 2
x %% 3
x %/% 2

x <- c(1, 2, 3)
y <- c(10, 20, 30)

x + y
x - y
x * y
x / y

x <- c(1, 2, 3)
y <- c(10, 20)

x + y

x <- c(1, 2, 3, 4)
y <- c(10, 20)

x + y

abs(-5)
abs(c(-1, 2, -3, 4))

sqrt(16)
sqrt(c(1, 4, 9, 16))
sqrt(-1)

exp(1)
exp(0)
exp(c(0, 1, 2))

log(10)
log(100, base = 10)
log2(8)
log10(100)
log1p(0)

sin(0)
cos(0)
tan(0)

sin(pi / 2)
cos(pi)
tan(pi / 4)

asin(0.5)
acos(0.5)
atan(1)

x <- 3.7

round(x)
round(3.14159, 2)
ceiling(x)
floor(x)
trunc(x)
signif(3.14159, 3)

2 + 3 * 4
(2 + 3) * 4

2 ^ 3 ^ 2
(2 ^ 3) ^ 2

-2 ^ 2
(-2) ^ 2

2 * 3 + 4
2 + 3 * 4

1 / 0
-1 / 0
Inf + Inf
Inf - Inf
Inf * 0

0 / 0
Inf - Inf
NaN + 1
NaN * 0

NA + 1
NA * 2
NA / 3
sum(c(1, NA, 3))
sum(c(1, NA, 3), na.rm = TRUE)

weight <- 70
height <- 1.75

bmi <- weight / height ^ 2
print(round(bmi, 2))

celsius <- 25
fahrenheit <- celsius * 9 / 5 + 32
print(fahrenheit)

fahrenheit <- 77
celsius <- (fahrenheit - 32) * 5 / 9
print(round(celsius, 1))

radius <- 5
area <- pi * radius ^ 2
circumference <- 2 * pi * radius

cat("面积:", round(area, 2), "\n")
cat("周长:", round(circumference, 2), "\n")

normalize <- function(x) {
  (x - min(x)) / (max(x) - min(x))
}

data <- c(10, 20, 30, 40, 50)
normalize(data)

values <- c(100, 200, 150, 250)
total <- sum(values)
percentages <- values / total * 100

print(round(percentages, 2))