创建包含列表列的tibble：

library(tibble)

clinic_name <- c('bobo center', 'yoyo plaza', 'lolo market')
drop_in_hours <- list(c("Monday: 2 pm - 5 pm", "Tuesday: 4 pm - 7 pm")) 
appointment_hours <- list(c("Monday: 1 pm - 2 pm", "Tuesday: 2 pm - 3 pm")) 
services <- list(c("skin graft", "chicken heart replacement"))

tibb <- data_frame(clinic_name, drop_in_hours, appointment_hours, services)

print(tibb)

编写一个通用函数，将任意列表列转换为字符类型：

set_lists_to_chars <- function(x) {
    if(class(x) == 'list') {
    y <- paste(unlist(x[1]), sep='', collapse=', ')
    } else {
    y <- x 
    }
    return(y)
}

对列表列的tibble应用函数：

new_frame <- data.frame(lapply(tibb, set_lists_to_chars), stringsAsFactors = F)

new_frame

将新格式化的 Dataframe 写入csv文件：

write.csv(new_frame, file='Desktop/clinics.csv')

这是一个csv文件，列表列展开为常规字符串。

这里是一个包罗万象的函数，只需要传入你的tibble和文件名：

tibble_with_lists_to_csv <- function(tibble_object, file_path_name) {
    set_lists_to_chars <- function(x) { 
        if(class(x) == 'list') { y <- paste(unlist(x[1]), sep='', collapse=', ') } else { y <- x  } 
        return(y) }
    new_frame <- data.frame(lapply(tibble_object, set_lists_to_chars), stringsAsFactors = F)
    write.csv(new_frame, file=file_path_name)
}

用法：

tibble_with_lists_to_csv(tibb, '~/Desktop/tibb.csv')

这里有另一个可能更简单一点的选择。
根据数据的不同，逗号分隔的值可能会变得复杂，所以我使用一个bar |来分隔列表列中的值：

library(tidyverse)

starwars %>% 
  rowwise() %>% 
  mutate_if(is.list, ~paste(unlist(.), collapse = '|')) %>% 
  write.csv('df_starwars.csv', row.names = FALSE)

starwars是dplyr示例 Dataframe 之一。

我有一个类似的dataframe，其中包含列表列，我想保存为csv。我想出了这个方法。以及如何将列转换回列表。

library(tidyverse)

# create a df with a list column
df <- tibble(x=rep(1:5,each=2), y=LETTERS[1:10]) %>%
  group_by(x) %>%
  summarise(z=list(y))

# this throws an error
write_csv(df, "test.csv")

# convert the list column to a string
df2 <- df %>%
  group_by(x) %>% # where x==unique(x)
  mutate(z=paste(z))

# this works
write_csv(df2, "test.csv")

# read the csv
df3 <- read_csv("test.csv")

# reconstruct original df by parsing the strings
# https://stackoverflow.com/questions/1743698/evaluate-expression-given-as-a-string
df4 <- df3 %>%
  group_by(x) %>% 
  mutate(z=list(eval(parse(text=z))))

是否有任何特定的原因，为什么你想保存列作为一个列表？或者，你可以使用unnest并保存在csv中。

library(tidyverse)
df_list<-data_frame(abc = letters[1:3], lst = list(1:3, 1:3, 1:3))
df_list %>% unnest() %>% write.csv("list.csv")

此外，当你读文件时，你可以把它放回去。

df <- read.csv("list.csv")[ ,2:3]
df %>% nest(lst)

exploratory::list_to_text()将把list列转换为character列。默认值是sep = ", "，如果写入. csv，我建议将其更改为其他值。
devtools::install_github("exploratory-io/exploratory_func")

list_to_text <- function(column, sep = ", "){
  loadNamespace("stringr")
  ret <- sapply(column, function(x) {
    ret <- stringr::str_c(x, collapse = sep)
    if(identical(ret, character(0))){
      # if it's character(0)
      NA
    } else {
      ret
    }
  })
  as.character(ret)
}

https://github.com/exploratory-io/exploratory_func/blob/master/LICENSE.md

在@cybernetic的例子之后，下面使用dplyr：：mutate_if的解决方案对我来说很有效。

library(tibble)
library(dplyr)

clinic_name <- c('bobo center', 'yoyo plaza', 'lolo market')
drop_in_hours <- list(c("Monday: 2 pm - 5 pm", "Tuesday: 4 pm - 7 pm")) 
appointment_hours <- list(c("Monday: 1 pm - 2 pm", "Tuesday: 2 pm - 3 pm")) 
services <- list(c("skin graft", "chicken heart replacement"))

tibb <- data_frame(clinic_name, drop_in_hours, appointment_hours, services)

# unlist if column is list
tibb_unlisted <- tibb %>%
  rowwise() %>%
  dplyr::mutate_if(is.list, 
    funs(paste(unlist(.), sep='', collapse=', ')))
# print on screen, can see values
print(tibb_unlisted)