列表(list)介绍

列表是一种非常常用和灵活的数据结构，它可以包含各种类型的对象，包括向量、矩阵、数据框等，甚至是其他列表。列表在R中的使用非常广泛，特别是在存储和组织复杂数据对象时非常有用

空列表

empty_list <- list()

包含元素的列表

# 列表中可以包含不同类型的对象
example_list <- list(name = "John", age = 30, scores = c(88, 92, 75))

嵌套列表

# 列表中可以包含其他列表
nested_list <- list(info = list(name = "Alice", age = 25),grades = c(85, 90, 78),contact = list(email = "alice@example.com", phone = "123-456-7890")
)

访问列表元素

# 使用$符号访问列表中的元素
example_list$name   # 返回 "John"
example_list$age    # 返回 30
example_list$scores # 返回向量 c(88, 92, 75)

添加新元素

example_list$city <- "New York"
example_list$new_scores <- c(80, 85)

删除元素

example_list$city <- NULL

修改元素

example_list$name <- "Jane"

使用for循环遍历列表

for (item in example_list) {print(item)
}

使用lapply遍历和操作列表

# lapply对列表中的每个元素应用相同的函数
lapply(example_list, function(x) mean(x))  # 计算列表中数值向量的平均值

使用sapply简化列表操作

# sapply尝试简化结果为向量或矩阵
sapply(example_list, function(x) length(x))  # 返回每个元素的长度

合并列表

可使用c()函数来合并多个列表或向列表中添加更多元素

list1 <- list(a = 1, b = 2)
list2 <- list(c = 3, d = 4)
merged_list <- c(list1, list2)  # 合并两个列表

注意事项：c()函数在合并列表时，不会保留原有的列表名称。如果需要保留名称，可以考虑其他方法，如使用list()函数直接创建一个新的列表，包含所有需要的元素

检查元素是否存在

可使用%in%操作符来检查某个元素是否在列表中

element <- "a"
if (element %in% names(example_list)) {print("Element exists in the list.")
} else {print("Element does not exist in the list.")
}

列表长度和名称操作

• 使用length()函数获取列表的长度（即元素个数）

length_of_list <- length(example_list)

• 使用names()函数获取或设置列表元素的名称

names(example_list)  # 获取列表元素的名称
names(example_list) <- c("name1", "age1", "scores1")  # 设置列表元素的名称

将列表转换为其他数据类型

• 使用unlist()函数将列表转换为向量

vector_from_list <- unlist(example_list)

• 如果需要将列表转换为数据框（data frame），可以使用data.frame()函数，但需要注意列表中的元素类型和长度应该相兼容

df_from_list <- data.frame(example_list)

列表与环境的交互

列表也可以被用作环境来评估表达式，这在某些高级编程场景中很有用

# 创建一个列表作为环境
my_env <- as.environment(list(a = 1, b = 2))
# 在该环境中评估表达式
eval(quote(a + b), envir = my_env)  # 结果为3

列表在函数中的应用

在函数中，可以使用列表来返回多个结果

my_function <- function() {result <- list(a = 10, b = 20)return(result)
}
output <- my_function()  # output是一个列表，包含a和b两个元素

列表的过滤和条件操作

可使用条件语句和subset()函数对列表进行过滤操作，提取符合条件的元素或子列表

# 过滤分数大于90的元素
subset_list <- subset(example_list, scores > 90)