小编SC2*_*SC2的帖子

我有一个数据框列表.每个数据框具有相同的列名和不同的行数.我想将列表中的每个数据框导出到自己的csv文件中.文件名应该是数据框的名称.我查看了几个论坛帖子尝试不同的建议,但许多要么没有工作或给了我一个空白的csv文件.我看过的大多数帖子都是4岁左右,所以这可能是其中的一部分.

这是我目前的代码:

    #Export each data frame within a list
    export = function(data){
    filename = function(x) paste(names(data[[x]]), ".csv");
    write.csv(data, filename,);
    }

    export(data)

我得到的错误是

"Error in data.frame(list(Column1 = c(1L, 2L, 3L, 4L, : 
arguments imply differing number of rows: 62, 49, 41, 55, 39, 32, 34

然后我想,也许我需要data[[x]]在write.csv中使用来阅读:

    write.csv(data[[x]], filename,)

但这给了我错误 "Error in is.data.frame(x): object 'x' not found"

这是我的数据框列表的结构.

    str(data)
    List of 10
     $ :'data.frame':   62 obs. of  6 variables:
      ..$ TQ: Factor w/ 396 levels "V0Q1",..: 167 168 97 192 …

我试图替换所有标点符号和"不是单词",除了"." 和字符串中的" - ",但我正在努力找到正确的组合来设置正则表达式.

我一直在R中使用以下str_replace_all()代码,但现在我想指定忽略"." 和" - ".我已经尝试将其设置为包含[^ .-]和([.-])之类的内容,但我没有得到所需的输出.

str_replace_all("[APPLE/O.ORANGE*PLUM-11]", regex("[\\W+,[:punct:]]", perl=T)," ")

" APPLE O ORANGE PLUM 11 " #current output

" APPLE O.ORANGE PLUM-11 " #desired output

任何建议将不胜感激.谢谢!