vector

miVec01 <- c(1, 2, 3, 4)

vector

miVec01[2]

## [1] 2

miVec01[2:4]

## [1] 2 3 4

miVec01[c(1, 1, 3, 2)]

## [1] 1 1 3 2

vector

miVec01[miVec01 > 2]

## [1] 3 4

miVec01[miVec01 > 2 & miVec01 < 4]

## [1] 3

miVec01[miVec01 == 1]

## [1] 1

vector

miVec01 <- c(10, 20, 30, 40, 50)
miVec02 <- c("A", "B", "C", "D", "E")
miVec02[miVec01 > 20]

## [1] "C" "D" "E"

vector

miVec02[-1]

## [1] "B" "C" "D" "E"

miVec02[-c(1, 2, 5)]

## [1] "C" "D"

vector

miVec02 <- c("A", "B", "C", "D", "E")
miVec03 <- c(TRUE, TRUE, FALSE, TRUE, FALSE)
miVec02[miVec03]

## [1] "A" "B" "D"

vector

miVec04 <- c(aaa = 10, bbb = 20, ccc = 30, ddd = 40, eee = 50)
miVec04["bbb"]

## bbb 
##  20

miVec04[c("bbb", "ccc", "bbb")]

## bbb ccc bbb 
##  20  30  20

names(miVec04)

## [1] "aaa" "bbb" "ccc" "ddd" "eee"

vector

miVec20 <- c(10, 20, 30, 40, 50, 60, 70, 80, 90)
miVec21 <- c("a", "b", "c", "d", "e", "f", "g", "h", "i")
miVec21[3] <- "zzz"
print(miVec21)

## [1] "a"   "b"   "zzz" "d"   "e"   "f"   "g"   "h"   "i"

miVec21[(miVec20 >= 50) & ((miVec20 < 80))] <- "qwerty"
print(miVec21)

## [1] "a"      "b"      "zzz"    "d"      "qwerty" "qwerty" "qwerty" "h"     
## [9] "i"

vector

names(miVec04)[2] <- "bb_bb"

list

miList01 <- list()
print(miList01)

## list()

miList02 <- list(5, "qwerty", c(4, 5, 6), c("a", "b", "c"))
print(miList02)

## [[1]]
## [1] 5
## 
## [[2]]
## [1] "qwerty"
## 
## [[3]]
## [1] 4 5 6
## 
## [[4]]
## [1] "a" "b" "c"

list

miList03 <- list(5, "qwerty", list(c(4, 5, 6), c("a", "b", "c")))
print(miList03)

## [[1]]
## [1] 5
## 
## [[2]]
## [1] "qwerty"
## 
## [[3]]
## [[3]][[1]]
## [1] 4 5 6
## 
## [[3]][[2]]
## [1] "a" "b" "c"

list

print(miList02)

## [[1]]
## [1] 5
## 
## [[2]]
## [1] "qwerty"
## 
## [[3]]
## [1] 4 5 6
## 
## [[4]]
## [1] "a" "b" "c"

miList02[[1]]

## [1] 5

list

print(miList02)

## [[1]]
## [1] 5
## 
## [[2]]
## [1] "qwerty"
## 
## [[3]]
## [1] 4 5 6
## 
## [[4]]
## [1] "a" "b" "c"

miList02[[4]][2]

## [1] "b"

list

miList04 <- list(miList02, miList03)
print(miList04)

## [[1]]
## [[1]][[1]]
## [1] 5
## 
## [[1]][[2]]
## [1] "qwerty"
## 
## [[1]][[3]]
## [1] 4 5 6
## 
## [[1]][[4]]
## [1] "a" "b" "c"
## 
## 
## [[2]]
## [[2]][[1]]
## [1] 5
## 
## [[2]][[2]]
## [1] "qwerty"
## 
## [[2]][[3]]
## [[2]][[3]][[1]]
## [1] 4 5 6
## 
## [[2]][[3]][[2]]
## [1] "a" "b" "c"

list

miList04[[2]][[3]][[1]][1]

## [1] 4

list

bddInsect <- list(
  Snonagrioides = list(
    site01 = c(12, 5, 8, 7), 
    site02 = c(5, 23, 4, 41), 
    site03 = c(12, 0, 0, 0)
  ), 
  Onubilalis = list(
    site01 = c(12, 1, 2, 3), 
    site02 = c(0, 0, 0, 1), 
    site03 = c(1, 1, 2, 3)
  )
)

list

print(bddInsect)

## $Snonagrioides
## $Snonagrioides$site01
## [1] 12  5  8  7
## 
## $Snonagrioides$site02
## [1]  5 23  4 41
## 
## $Snonagrioides$site03
## [1] 12  0  0  0
## 
## 
## $Onubilalis
## $Onubilalis$site01
## [1] 12  1  2  3
## 
## $Onubilalis$site02
## [1] 0 0 0 1
## 
## $Onubilalis$site03
## [1] 1 1 2 3

list

bddInsect[[1]][[2]]

## [1]  5 23  4 41

bddInsect$Snonagrioides$site02

## [1]  5 23  4 41

bddInsect[['Snonagrioides']][['site02']]

## [1]  5 23  4 41

list

names(bddInsect)

## [1] "Snonagrioides" "Onubilalis"

names(bddInsect[[1]])

## [1] "site01" "site02" "site03"

list

bddInsect[[1]][[2]]

## [1]  5 23  4 41

is.list(bddInsect[[1]][[2]])

## [1] FALSE

bddInsect[[1]][2]

## $site02
## [1]  5 23  4 41

is.list(bddInsect[[1]][2])

## [1] TRUE

list

bddInsect[[1]][c(1, 2)]

## $site01
## [1] 12  5  8  7
## 
## $site02
## [1]  5 23  4 41

bddInsect[['Snonagrioides']][c("site01", "site02")]

## $site01
## [1] 12  5  8  7
## 
## $site02
## [1]  5 23  4 41

list

bddInsect[['Snonagrioides']][['site02']] <- c(2, 4, 6, 8)
print(bddInsect)

## $Snonagrioides
## $Snonagrioides$site01
## [1] 12  5  8  7
## 
## $Snonagrioides$site02
## [1] 2 4 6 8
## 
## $Snonagrioides$site03
## [1] 12  0  0  0
## 
## 
## $Onubilalis
## $Onubilalis$site01
## [1] 12  1  2  3
## 
## $Onubilalis$site02
## [1] 0 0 0 1
## 
## $Onubilalis$site03
## [1] 1 1 2 3

list

miList05 <- list("a", c("b", "c"), "d")
print(miList05)

## [[1]]
## [1] "a"
## 
## [[2]]
## [1] "b" "c"
## 
## [[3]]
## [1] "d"

unlist(miList05)

## [1] "a" "b" "c" "d"

data.frame

miDf01 <- data.frame(
  numbers = c(1, 2, 3, 4), 
  logicals = c(TRUE, TRUE, FALSE, TRUE), 
  characters = c("a", "b", "c", "d")
)
print(miDf01)

##   numbers logicals characters
## 1       1     TRUE          a
## 2       2     TRUE          b
## 3       3    FALSE          c
## 4       4     TRUE          d

data.frame

numbers <- c(1, 2, 3, 4)
logicals <- c(TRUE, TRUE, FALSE, TRUE)
characters <- c("a", "b", "c", "d")
miDf01 <- data.frame(numbers, logicals, characters)
print(miDf01)

##   numbers logicals characters
## 1       1     TRUE          a
## 2       2     TRUE          b
## 3       3    FALSE          c
## 4       4     TRUE          d

data.frame

str(miDf01)

## 'data.frame':    4 obs. of  3 variables:
##  $ numbers   : num  1 2 3 4
##  $ logicals  : logi  TRUE TRUE FALSE TRUE
##  $ characters: Factor w/ 4 levels "a","b","c","d": 1 2 3 4

data.frame

miDf01 <- data.frame(
  numbers = c(1, 2, 3, 4), 
  logicals = c(TRUE, TRUE, FALSE, TRUE), 
  characters = c("a", "b", "c", "d"),
  stringsAsFactors = FALSE
)

data.frame

str(miDf01)

## 'data.frame':    4 obs. of  3 variables:
##  $ numbers   : num  1 2 3 4
##  $ logicals  : logi  TRUE TRUE FALSE TRUE
##  $ characters: chr  "a" "b" "c" "d"

data.frame

miDf01 <- data.frame(
  numbers = c(1, 2, 3, 4), 
  logicals = c(TRUE, TRUE, FALSE, TRUE), 
  characters = c("a", "b", "c", "d")
)
miDf01$characters <- as.character(miDf01$characters)

data.frame

TOUJOURS vérifier ces données avec str()

data.frame

miDf01$numbers # vector

## [1] 1 2 3 4

miDf01[[1]] # vector

## [1] 1 2 3 4

miDf01[["numbers"]] # vector

## [1] 1 2 3 4

data.frame

miDf01[1] # list

##   numbers
## 1       1
## 2       2
## 3       3
## 4       4

miDf01["numbers"] # list

##   numbers
## 1       1
## 2       2
## 3       3
## 4       4

data.frame

myRow <- 2
myCol <- 1
miDf01[myRow, myCol]

## [1] 2

data.frame

miDf01[myRow, ]

##   numbers logicals characters
## 2       2     TRUE          b

miDf01[, myCol]

## [1] 1 2 3 4

miDf01[, "numbers"]

## [1] 1 2 3 4

data.frame

miDf01[, c(1, 2)]

##   numbers logicals
## 1       1     TRUE
## 2       2     TRUE
## 3       3    FALSE
## 4       4     TRUE

miDf01[c(2, 1), ]

##   numbers logicals characters
## 2       2     TRUE          b
## 1       1     TRUE          a

data.frame

miDf01[miDf01$numbers > 2, ]

##   numbers logicals characters
## 3       3    FALSE          c
## 4       4     TRUE          d

miDf01[(miDf01$logicals == TRUE) & (miDf01$numbers < 2), ]

##   numbers logicals characters
## 1       1     TRUE          a

data.frame

miDf01$newVar <- c(4, 5, 6, 7)
print(miDf01)

##   numbers logicals characters newVar
## 1       1     TRUE          a      4
## 2       2     TRUE          b      5
## 3       3    FALSE          c      6
## 4       4     TRUE          d      7

data.frame

miDf01$numbers <- miDf01$numbers + 100
print(miDf01)

##   numbers logicals characters newVar
## 1     101     TRUE          a      4
## 2     102     TRUE          b      5
## 3     103    FALSE          c      6
## 4     104     TRUE          d      7

data.frame

colnames(miDf01)

## [1] "numbers"    "logicals"   "characters" "newVar"

rownames(miDf01)

## [1] "1" "2" "3" "4"

data.frame

miDf01 <- rbind(miDf01, 
  nouvelleLigne = data.frame(
    numbers = 5, 
    logicals = TRUE, 
    characters = "e", 
    newVar = 8))

data.frame

rownames(miDf01)

## [1] "1"             "2"             "3"             "4"            
## [5] "nouvelleLigne"

rownames(miDf01) <- c("R1", "R2", "R3", "R4", "R5")

data.frame

print(miDf01)

##    numbers logicals characters newVar
## R1     101     TRUE          a      4
## R2     102     TRUE          b      5
## R3     103    FALSE          c      6
## R4     104     TRUE          d      7
## R5       5     TRUE          e      8

matrix

vecForMatrix <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
miMat <- matrix(vecForMatrix, nrow = 3, ncol = 4)
print(miMat)

##      [,1] [,2] [,3] [,4]
## [1,]    1    4    7   10
## [2,]    2    5    8   11
## [3,]    3    6    9   12

matrix

vecForMatrix <- 1:12
miMat <- matrix(vecForMatrix, nrow = 3)
print(miMat)

##      [,1] [,2] [,3] [,4]
## [1,]    1    4    7   10
## [2,]    2    5    8   11
## [3,]    3    6    9   12

matrix

miMat <- matrix(
  vecForMatrix, 
  nrow = 3, 
  byrow = TRUE)
print(miMat)

##      [,1] [,2] [,3] [,4]
## [1,]    1    2    3    4
## [2,]    5    6    7    8
## [3,]    9   10   11   12

matrix

miMat <- matrix(
  vecForMatrix, 
  nrow = 3, 
  byrow = TRUE, 
  dimnames = list(
    c("r1", "r2", "r3"), 
    c("c1", "c2", "c3", "c4"))
)
print(miMat)

##    c1 c2 c3 c4
## r1  1  2  3  4
## r2  5  6  7  8
## r3  9 10 11 12

matrix

miMat[c(1, 2), c(2, 3)]

##    c2 c3
## r1  2  3
## r2  6  7

miMat[10]

## [1] 4

array

miMat01 <- matrix(1:12, ncol = 3)
dim(miMat01)

## [1] 4 3

array

miVecArr <- 1:24
miArray <- array(miVecArr, dim = c(3, 4, 2))
print(miArray)

## , , 1
## 
##      [,1] [,2] [,3] [,4]
## [1,]    1    4    7   10
## [2,]    2    5    8   11
## [3,]    3    6    9   12
## 
## , , 2
## 
##      [,1] [,2] [,3] [,4]
## [1,]   13   16   19   22
## [2,]   14   17   20   23
## [3,]   15   18   21   24

array

miArray02 <- array(1:24, 
  dim = c(3, 4, 2), 
  dimnames = list(
    c("r1", "r2", "r3"), 
    c("c1", "c2", "c3", "c4"), 
    c("matrix1", "matrix2")
  )
)
print(miArray02)

## , , matrix1
## 
##    c1 c2 c3 c4
## r1  1  4  7 10
## r2  2  5  8 11
## r3  3  6  9 12
## 
## , , matrix2
## 
##    c1 c2 c3 c4
## r1 13 16 19 22
## r2 14 17 20 23
## r3 15 18 21 24

array

i <- 2
j <- 1
k <- 1
miArray02[i, j, k]

## [1] 2

miArray02[, j, k]

## r1 r2 r3 
##  1  2  3

array

miArray02[i, , k]

## c1 c2 c3 c4 
##  2  5  8 11

miArray02[i, j, ]

## matrix1 matrix2 
##       2      14