R - 列表
列表是 R 对象,其中包含不同类型的元素,例如 − 数字、字符串、矢量和其中的另一个列表。列表还可以包含矩阵或函数作为其元素。List 是使用 list() 函数创建的。
创建列表
以下是创建包含字符串、数字、矢量和逻辑值的列表的示例。
# 创建一个包含字符串、数字、
矢量和逻辑的列表值 list_data <- list("Red", "Green", c(21,32,11), TRUE, 51.23, 119.1) print(list_data)
当我们执行上述代码时,它会产生以下结果——
[[1]]
[1] "Red"
[[2]]
[1] "Green"
[[3]]
[1] 21 32 11
[[4]]
[1] TRUE
[[5]]
[1] 51.23
[[6]]
[1] 119.1
[1] "Red"
[[2]]
[1] "Green"
[[3]]
[1] 21 32 11
[[4]]
[1] TRUE
[[5]]
[1] 51.23
[[6]]
[1] 119.1
命名列表元素
可以为 list 元素指定名称,并且可以使用这些名称访问它们。
# 创建一个包含
矢量、矩阵和列表的列表。 list_data <- list(c("Jan","Feb","Mar"), matrix(c(3,9,5,1,-2,8), nrow = 2), list("green",12.3)) # 为列表中的元素命名。 names(list_data) <- c("1st Quarter", "A_Matrix", "A Inner list") # 显示列表。 print(list_data)
当我们执行上述代码时,它会产生以下结果——
$`1st_Quarter`
[1] "Jan" "Feb" "Mar"
$A_Matrix
[,1] [,2] [,3]
[1,] 3 5 -2
[2,] 9 1 8
$A_Inner_list
$A_Inner_list[[1]]
[1] "green"
$A_Inner_list[[2]]
[1] 12.3
[1] "Jan" "Feb" "Mar"
$A_Matrix
[,1] [,2] [,3]
[1,] 3 5 -2
[2,] 9 1 8
$A_Inner_list
$A_Inner_list[[1]]
[1] "green"
$A_Inner_list[[2]]
[1] 12.3
访问列表元素
列表的元素可以通过列表中元素的索引来访问。对于命名列表,也可以使用名称访问它。
我们继续使用上面示例中的列表 -
# 创建一个包含
矢量、矩阵和列表的列表。 list_data <- list(c("Jan","Feb","Mar"), matrix(c(3,9,5,1,-2,8), nrow = 2), list("green",12.3)) # 为列表中的元素命名。 names(list_data) <- c("1st Quarter", "A_Matrix", "A Inner list") # 访问列表的第一个元素。 print(list_data[1]) # 访问第三个元素。由于它也是一个列表,因此它的所有元素都将被打印出来。 print(list_data[3]) # 使用元素的名称访问列表元素。 print(list_data$A_Matrix)
当我们执行上述代码时,它会产生以下结果——
$`1st_Quarter`
[1] "Jan" "Feb" "Mar"
$A_Inner_list
$A_Inner_list[[1]]
[1] "green"
$A_Inner_list[[2]]
[1] 12.3
[,1] [,2] [,3]
[1,] 3 5 -2
[2,] 9 1 8
[1] "Jan" "Feb" "Mar"
$A_Inner_list
$A_Inner_list[[1]]
[1] "green"
$A_Inner_list[[2]]
[1] 12.3
[,1] [,2] [,3]
[1,] 3 5 -2
[2,] 9 1 8
操作列表元素
我们可以添加、删除和更新列表元素,如下所示。我们只能在列表的末尾添加和删除元素。但是我们可以更新任何元素。
# 创建一个包含
矢量、矩阵和列表的列表。 list_data <- list(c("Jan","Feb","Mar"), matrix(c(3,9,5,1,-2,8), nrow = 2), list("green",12.3)) # 为列表中的元素命名。 names(list_data) <- c("1st Quarter", "A_Matrix", "A Inner list") # 在列表末尾添加元素。 list_data[4] <- "New element" print(list_data[4]) # 删除最后一个元素。 list_data[4] <- NULL # 打印第四个元素。 print(list_data[4]) # 更新第三个元素。 list_data[3] <- "updated element" print(list_data[3])
当我们执行上述代码时,它会产生以下结果——
[[1]]
[1] "New element"
$<NA>
NULL
$`A Inner list`
[1] "updated element"
[1] "New element"
$<NA>
NULL
$`A Inner list`
[1] "updated element"
合并列表
你可以通过将所有列表放在一个 list() 函数中来将多个列表合并为一个列表。
# 创建两个列表。
list1 <- list(1,2,3)
list2 <- list("Sun","Mon","Tue")
# 合并这两个列表。
merged.list <- c(list1,list2)
# 打印合并后的列表。
print(merged.list)
当我们执行上述代码时,它会产生以下结果——
[[1]]
[1] 1
[[2]]
[1] 2
[[3]]
[1] 3
[[4]]
[1] "Sun"
[[5]]
[1] "Mon"
[[6]]
[1] "Tue"
[1] 1
[[2]]
[1] 2
[[3]]
[1] 3
[[4]]
[1] "Sun"
[[5]]
[1] "Mon"
[[6]]
[1] "Tue"
将 List 转换为矢量
可以将列表转换为矢量,以便矢量的元素可用于进一步操作。在将列表转换为矢量后,可以应用对矢量的所有算术运算。要进行此转换,我们使用 unlist() 函数。它将列表作为输入并生成一个矢量。
# 创建列表。 list1 <- list(1:5) print(list1) list2 <-list(10:14) print(list2) # 将列表转换为
矢量。 v1 <- unlist(list1) v2 <- unlist(list2) print(v1) print(v2) # 现在添加
矢量result <- v1+v2 print(result)
当我们执行上述代码时,它会产生以下结果——
[[1]]
[1] 1 2 3 4 5
[[1]]
[1] 10 11 12 13 14
[1] 1 2 3 4 5
[1] 10 11 12 13 14
[1] 11 13 15 17 19
[1] 1 2 3 4 5
[[1]]
[1] 10 11 12 13 14
[1] 1 2 3 4 5
[1] 10 11 12 13 14
[1] 11 13 15 17 19