如何正确导入分号

2018-07-04 13:45:11

我一直在试图导入下面的分号分隔文件：

# word  len;freq;mean;sens;npos;u;orthon;freqn;bgp  WN000000
fiber   "5;8.671;1;5;1;0;5;6.1;0;-1"    10000000
clad    "4;6.78;2;2;1;1;8;7.84;2026;-1" 10000000
tucker  "6;8.103;2;3;2;0.91829583405449;7;5.5;4547;-1"  10000000

我尝试了read.csv和data.table::fread ，但没有运气。 read.csv识别一些头文件，实际值全部位于第一列：

 X..word.len freq mean sens npos  u orthon freqn bgp.WN000000
1 fibert5;8.671;1;5;1;0;5;6.1;0;-1t10000000   NA   NA   NA   NA NA     NA    NA           NA
2 cladt4;6.78;2;2;1;1;8;7.84;2026;-1t10000000   NA   NA   NA   NA NA     NA    NA           NA
3 tuckert6;8.103;2;3;2;0.91829583405449;7;5.5;4547;-1t10000000   NA   NA   NA   NA NA     NA    NA           NA

fread识别第一列，但将所有其他列合并成一列。

  X..word    len.freq.mean.sens.npos.u.orthon.freqn.bgp WN000000
1   fiber                    5;8.671;1;5;1;0;5;6.1;0;-1 10000000
2    clad                 4;6.78;2;2;1;1;8;7.84;2026;-1 10000000
3  tucker  6;8.103;2;3;2;0.91829583405449;7;5.5;4547;-1 10000000

任何人都可以帮忙吗？

这是我尝试的（并根据David Arenburg的评论编辑）。

首先阅读并处理标题行; 然后在跳过第一行时读取其余行：

library(data.table)

header <- strsplit(readLines('test.txt', n = 1), 's+')[[1]][-1]
res <- fread('test.txt', skip = 1, header = FALSE)
setnames(res, 1:3, header)

res[, strsplit(header[2], ';')[[1]] :=
        tstrsplit(get(header[2]), ';', type.convert = TRUE, fixed = TRUE)[-10]]

res[, header[2] := NULL]

#      word WN000000 len  freq mean sens npos         u orthon freqn  bgp
# 1:  fiber 10000000   5 8.671    1    5    1 0.0000000      5  6.10    0
# 2:   clad 10000000   4 6.780    2    2    1 1.0000000      8  7.84 2026
# 3: tucker 10000000   6 8.103    2    3    2 0.9182958      7  5.50 4547

应该指出的是，有9个项目分开; 在输入文件的第二列中，但下面的行有10个; - 分离的物品。

据我所知，你基本上有两个分离器在那里工作。这可能是值得手动处理的，而不是使用标准的读取功能。

阅读文件，摆脱引号，然后用空格和分号分隔符分开。

library( magrittr )
input <- readLines( "~/Desktop/Untitled" ) %>%
    gsub( '"|^# +', "", . ) %>%
    strsplit( " +|;" )

将除第一行以外的所有内容转换为数据框。

input[-1] %>%
    do.call( what = rbind ) %>%
    as.data.frame()

然后使用第一行作为列名。由于您的标题没有足够的名称来覆盖您的数据，因此我们需要在此处添加额外的内容。

names( df ) <- c( input[[1]][1:10], "fill.col", input[[1]][11] )

结果：

> df
    word len  freq mean sens npos                u orthon freqn  bgp fill.col WN000000
1  fiber   5 8.671    1    5    1                0      5   6.1    0       -1 10000000
2   clad   4  6.78    2    2    1                1      8  7.84 2026       -1 10000000
3 tucker   6 8.103    2    3    2 0.91829583405449      7   5.5 4547       -1 10000000

链接地址: http://www.djcxy.com/p/96269.html

上一篇: How to properly import a semicolon

下一篇: Remove columns from dataframe where ALL values are NA, NULL or empty