R기초; 리스트 생성

R기초; 리스트 생성

 

list(0.6826, 0.9544, 0.9974)
[[1]]
[1] 0.6826

[[2]]
[1] 0.9544

[[3]]
[1] 0.9974

list(1.23, "Apple", c(2, 3, 5, 7), matrix(1:6, ncol=3), mean)
[[1]]
[1] 1.23

[[2]]
[1] "Apple"

[[3]]
[1] 2 3 5 7

[[4]]
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

[[5]]
function (x, ...) 
UseMethod("mean")
<bytecode: 0x000001f8f637fb40>
<environment: namespace:base>


# 리스트 생성하기
lst <- list()
lst
lst[[1]] <- 1.23
lst[[2]] <- "Apple"
lst[[3]] <- c(2, 3, 5, 7)
lst[[4]] <- matrix(1:6, ncol=3)
lst[[5]] <- mean
lst

[[1]]
[1] 1.23

[[2]]
[1] "Apple"

[[3]]
[1] 2 3 5 7

[[4]]
     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

[[5]]
function (x, ...) 
UseMethod("mean")
<bytecode: 0x000001f8f637fb40>
<environment: namespace:base>


# 리스트 생성하기
lst <- list(0.6826, 0.9544, 0.9974)
lst
[[1]]
[1] 0.6826

[[2]]
[1] 0.9544

[[3]]
[1] 0.9974

# 리스트 이름 부여하기
names(lst) <- c("sigma1", "sigma2", "sigma3")
lst
$sigma1
[1] 0.6826

$sigma2
[1] 0.9544

$sigma3
[1] 0.9974

# 리스트 원소 개수 출력하기
length(lst)

# 리스트 생성하기
worldcup1 <- list("Brazil", "South Africa", "Germany")
worldcup2 <- list("Korea-Japan", "France", "USA")
worldcup1
[[1]]
[1] "Brazil"

[[2]]
[1] "South Africa"

[[3]]
[1] "Germany"

c(worldcup1, worldcup2)
a <- list(1, 2, 3, 4, 5, 6, 7)
a

# 리스트 해체하기 uisng unlist()
unlist(a)
[1] 1 2 3 4 5 6 7

mean(unlist(a))
[1] 4

mean(unlist(a))
[1] 4

min(unlist(a))
[1] 1