在R中有选择地读取txt文件

Question

我正在寻找一个简单的修复方法来读取在 excel 中打开时看起来像这样的 txt 文件：

IDmaster    By_uspto    App_date    Grant_date  Applicant   Cited   
2   1   19671106    19700707    Motorola Inc    1052446 
2   1   19740909    19751028    Gen Motors Corp 1062884 
2   1   19800331    19820817    Amp Incorporated    1082369 
2   1   19910515    19940719    Dell Usa L.P.   389546  
2   1   19940210    19950912    Schueman Transfer    Inc.   1164239
2   1   19940217    19950912    Spacelabs Medical    Inc.   1164336

编辑：在记事本中打开 txt 文件如下所示（带逗号）。最后两行显示了问题。

IDmaster,By_uspto,App_date,Grant_date,Applicant,Cited
2,1,19671106,19700707,Motorola Inc,1052446
2,1,19740909,19751028,Gen Motors Corp,1062884
2,1,19800331,19820817,Amp Incorporated,1082369
2,1,19910515,19940719,Dell Usa L.P.,389546
2,1,19940210,19950912,Schueman Transfer, Inc.,1164239
2,1,19940217,19950912,Spacelabs Medical, Inc.,1164336

问题是某些 Applicant 名称包含逗号，因此它们在阅读时就好像它们属于不同的列，但实际上它们并不属于。

有没有简单的方法 a) "teach" R 将字符串变量放在一起，不管中间有逗号 b) 阅读前 4 列，然后为最后一个逗号后面的所有内容添加一个额外的列？

考虑到数据的长度，我无法在 excel 中完全打开它，否则这是一个简单的替代方法。

Answer 1

这提供了一个非常愚蠢的解决方法，但它对我有用（因为我不太关心申请人的名字 atm。但是，我希望有更好的解决方案。

第1步：在记事本中打开.txt文件，添加五个列名V1、V2、V3、V4、V5（一定要捕获带有多个逗号的名称）。

bc <- read.table("data.txt", header = T, na.strings = T, fill = T, sep = ",", stringsAsFactors = F)

library(data.table)

sapply(bc, class)
unique(bc$V5) # only NA so can be deleted
setDT(bc)
bc <- bc[,1:10, with = F]
bc$Cited <- as.numeric(bc$Cited)
  bc$Cited[is.na(bc$Cited)] <- 0
  bc$V1 <- as.numeric(bc$V1)
  bc$V2 <- as.numeric(bc$V2)
  bc$V3 <- as.numeric(bc$V3)
  bc$V4 <- as.numeric(bc$V4)

  bc$V1[is.na(bc$V1)] <- 0
  bc$V2[is.na(bc$V2)] <- 0
  bc$V3[is.na(bc$V3)] <- 0
  bc$V4[is.na(bc$V4)] <- 0

head(bc, 10)
bc$Cited <- with(bc, Cited + V1 + V2 + V3 + V4)

这是一个愚蠢的补丁，但它在这个特定的上下文中起到了作用

Answer 2

如果您的示例是在 "Test.csv" 文件中编写的，请尝试：

read.csv(text=gsub(', ', ' ', paste0(readLines("Test.csv"),collapse="\n")),
         quote="'",
         stringsAsFactors=FALSE)

它returns:

#   IDmaster By_uspto App_date Grant_date              Applicant   Cited
# 1        2        1 19671106   19700707           Motorola Inc 1052446
# 2        2        1 19740909   19751028        Gen Motors Corp 1062884
# 3        2        1 19800331   19820817       Amp Incorporated 1082369
# 4        2        1 19910515   19940719          Dell Usa L.P.  389546
# 5        2        1 19940210   19950912 Schueman Transfer Inc. 1164239
# 6        2        1 19940217   19950912 Spacelabs Medical Inc. 1164336

在R中有选择地读取txt文件

Read txt file selectively in R

excel

r

read.table