四則演算

3+3
## [1] 6
3-3
## [1] 0
3*3
## [1] 9
3/3
## [1] 1

データ読み込み

library(readxl)
asia <- read_excel("asia.xlsx")
head(asia)