R中读取列数多于列名的txt文件

发布于06月18日

我有一个txt文件，其中有一列，其中有一些+符号，没有与之关联的列名.下面提供了一个示例.

   Cat    dog        bird
    A       b   +       c
    B       a   +       c
    C       b           d
    B       c   +       a

当try 将其读入R时，使用

read.table(file, header = TRUE, sep = " ")

我得到一个错误，即列数多于列名.如何将此文件读入R，方法是删除+‘S的列，还是为其指定列名？

推荐答案

使用readr::read_fwf可以相当直观地获得所需的输出.

library(readr)

df <- read_fwf("file", skip = 1)[, c(1, 2, 4)]

colnames(df) <- unlist(read_fwf("file", n_max = 1))[c(1, 2, 4)]

df
# A tibble: 4 × 3
  Cat   dog   bird 
  <chr> <chr> <chr>
1 A     b     c    
2 B     a     c    
3 C     b     d    
4 B     c     a

有base R read.fwf个

df <- data.frame(sapply(read.fwf("file", widths=c(6, 7, 5, 7), skip = 1), 
  trimws))

colnames(df) <- sapply(read.fwf("file", widths=c(6, 7, 5, 7), n = 1), trimws)

df[,c(1, 2, 4)]
  Cat dog bird
1   A   b    c
2   B   a    c
3   C   b    d
4   B   c    a