在R中，如何计算数据帧中列表中的项数？

# 创建一个包含列表的数据帧
df <- data.frame(list_col = list(c(1, 2, 3), c(4, 5), c(6, 7, 8, 9)))

# 计算列表中的项数
item_count <- sum(lengths(df$list_col))

# 输出结果
print(item_count)

# 创建一个包含列表的数据帧
df <- data.frame(list_col = list(c(1, 2, 3), c(4, 5), c(6, 7, 8, 9)))

# 计算列表中的项数
item_count <- sum(sapply(df$list_col, length))

# 输出结果
print(item_count)