class(1)
## [1] "numeric"
#加減乘除
12+10
## [1] 22
12-10
## [1] 2
12*10
## [1] 120
12/10
## [1] 1.2
#餘數
12%%10
## [1] 2
#次方
12^3
## [1] 1728
class("a")
## [1] "character"
class(TRUE)
## [1] "logical"
# = 或 <- 都可以,但通常以 <- 為主
a<-2
a
## [1] 2
help(class)
## starting httpd help server ... done
?class
# 大於 >,小於 <,等於 ==,大於等於 >=,小於等於 <=
2>1
## [1] TRUE
a<-2
b<-1
a<b
## [1] FALSE
a1<-c(1,1,2,3,4)
a1
## [1] 1 1 2 3 4
a2<-c("a","b","c")
a2
## [1] "a" "b" "c"
#只能存在一種資料型態
a3<-c("a","b",1)
a3
## [1] "a" "b" "1"
a1[4]
## [1] 3
a1[7]
## [1] NA
a1[7]<-10
a1
## [1] 1 1 2 3 4 NA 10
# :
a4<-c(1:10)
a4
## [1] 1 2 3 4 5 6 7 8 9 10
# seq
a5<-seq(from=1,to=20,by=2)
a5
## [1] 1 3 5 7 9 11 13 15 17 19
# rep
a6<-rep(x = c(1,2,3),time=3)
a6
## [1] 1 2 3 1 2 3 1 2 3
a6<-rep(x = c(1,2,3),each=3)
a6
## [1] 1 1 1 2 2 2 3 3 3
a4+a5
## [1] 2 5 8 11 14 17 20 23 26 29
a1<-c(1:5)
a4/a1
## [1] 1.000000 1.000000 1.000000 1.000000 1.000000 6.000000 3.500000
## [8] 2.666667 2.250000 2.000000
l1<-list(students=c(1,2,3),hight=c(4,5,6))
l1
## $students
## [1] 1 2 3
##
## $hight
## [1] 4 5 6
l1$students
## [1] 1 2 3
l1[[1]][2]
## [1] 2
matrix(data = c(1,2,3,4,5,6),nrow = 2,ncol = 3)
## [,1] [,2] [,3]
## [1,] 1 3 5
## [2,] 2 4 6
matrix(data = c(1,2,3,4,5,6),nrow = 2,ncol = 3,byrow = T)
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 4 5 6
matrix(nrow = 2,ncol = 3,data = 1)
## [,1] [,2] [,3]
## [1,] 1 1 1
## [2,] 1 1 1
m1<-matrix(data = c(1,2,3,4,5,6),nrow = 2,ncol = 3)
m1[2,3]
## [1] 6
df1<-data.frame(student=c("a","b","c"),
gender=c("F","M","F"),
hight=c(160,178,155),
stringsAsFactors = F)
df1
## student gender hight
## 1 a F 160
## 2 b M 178
## 3 c F 155
df1$weight<-c(50,70,52)
df1
## student gender hight weight
## 1 a F 160 50
## 2 b M 178 70
## 3 c F 155 52