代码之家 › 专栏 › 技术社区 › Shubh

如何更正“if”函数中长度大于1的警告条件?[重复]

csv r

Shubh · 技术社区 · 7 年前

我制作了一个函数,可以从文件列表中读取输入,并使用rbind将其追加。

dat <- NA
file.names <- list.files(paste(in.path2,"CSV",sep =""))
for(f in file.names){
  file <- paste(in.path2,"CSV/", f, sep = "")
  tmp <- read.csv(file, stringsAsFactors = F, na.strings = c("", " "))

  if (is.na(dat)) {
    dat <- tmp
  } else {
    colnames(tmp) <- colnames(dat)
    dat <- rbind(dat, tmp)
  }
  print(f)
}

我收到以下警告:

 1: In if (is.na(dat)) { ... :
  the condition has length > 1 and only the first element will be used.

如何更正此问题?

2 回复 | 直到 7 年前

Linus 7 年前

我强烈建议不要增加您的数据。像那样但像这样

file.names <- list.files(paste(in.path2,"CSV",sep =""))
input_list <- list()
for(f in file.names){
  file <- paste(in.path2,"CSV/", f, sep = "")
  input_list[[f]] <- read.csv(file, stringsAsFactors = F, na.strings = c("", " "))
  print(f)
}
dat <- do.call(rbind, input_list)

这要快得多,您不需要测试dat是否为。是否不适用

akrun 7 年前

我们可以更轻松地使用 lapply 不用担心 NA 以及 if/else 条款

filenames <- list.files(paste0(in.path2,"CSV"), full.names = TRUE)
do.call(rbind,lapply(filenames, read.csv, na.strings = c("", " "), stringsAsFactors = FALSE))

或者另一种选择是 fread 从…起 data.table

library(data.table)
rbindlist(lapply(filenames, fread, na.strings = c("", " ")), fill = TRUE)

或与 tidyverse

library(tidyverse)
map_df(filenames, read_csv, na = c("", " "))

如果列不相同,则

map(filenames, read_csv, na = c("", " ")) %>%
      bind_rows

推荐文章

SD_ · 使用CLI将由文件分隔符控制字符(FS/ASCII28/UTF-8 0x1C)分隔的csv文件读取到duckdb中

6 月前

ViSa · 如何在python中分隔存储在变量中的文本以创建数据帧?

10 月前

S K · 需要在Powershell中使用2个变量为CSV文件创建foreach循环

11 月前

Kavya shree · 将TSV文件数据转换为可推送到数据库的数据帧

1 年前

Joan Lopez · 从csv中提取的数据获得平均值

1 年前

Chinmaya Tewari · 创建新csv文件时权限被拒绝

1 年前

Parker Clark · 通过Bash操作csv中的特定列?

1 年前

Rasec Malkic · 如何根据第1列和第3列中的条件删除重复项?

1 年前

James Black · 如何基于列删除CSV文件中重复的行

1 年前

James Black · 将json文件转换为具有更多列的csv文件-Python

1 年前