我有一个df1包含一组事务的数据框：
set.seed(99)\n\ndf1 <- tibble::tibble(\n ID = 1:10,\n Items = replicate(10, paste0(\'item-\', sample(1:10, sample(3:5)[1]), collapse = \', \'))\n)\n\n# # A tibble: 10 \xc3\x97 2\n# ID Items \n# <int> <chr> \n# 1 1 item-6, item-5, item-3 \n# 2 2 item-6, item-4, item-9, item-7 \n# 3 3 item-6, item-4, item-5 \n# 4 4 item-1, item-7, item-2, item-9 \n# 5 5 item-5, item-8, item-7, item-2 \n# 6 6 item-10, item-1, item-6, item-4 \n# 7 7 item-6, item-7, item-9, item-4, item-5\n# 8 …我有一个tibble包含一些列表列的列表。
library(dplyr)\n\ndf <- structure(\n list(ID = 1:5, V1 = list(1.71, -0.59, 0.73, -0.93, 0.18),\n V2 = list(-0.08, c(0.59, 0.87), -1.87, -1.38, 0.83), \n V3 = list(-0.25, -0.02, -0.97, -1.62, 0.54),\n V4 = list(-0.12, 0.73, -0.36, 0.55, c(0.92, -0.49)),\n V5 = list(c(-0.11, 0.14), -0.2, c(-1.12, -0.91), 0.14, c(1.56, 0.33))),\n row.names = c(NA, -5L), class = c("tbl_df", "tbl", "data.frame"))\n\n# # A tibble: 5 \xc3\x97 6\n# ID V1 V2 V3 V4 V5 \n# <int> <list> <list> <list> <list> <list> \n# …我尝试使用read_csvfrom{readr}将文件读入 R。为了演示我的真正问题，我首先CSV将参数重置为 5（默认为 1000）guess_max
library(readr)\nformals(read_csv)$guess_max <- 5\n并以较小的文字数据为例：
\ncsv <- I(\n"ID, Col1, Col2, VarA, VarB, VarC\n1, NA, NA, NA, NA, NA\n2, NA, NA, NA, NA, NA\n3, NA, NA, NA, NA, NA\n4, NA, NA, NA, NA, NA\n5, 0, 1, x, y, z\n6, NA, NA, NA, NA, NA")\n\nread_csv(csv)\n\n# # A tibble: 6 \xc3\x97 6\n# ID Col1 Col2 VarA VarB VarC \n# <dbl> <lgl> <lgl> <lgl> <lgl> <lgl>\n# 1 1 NA NA NA …