从SPSS代码读取具有固定位置的read.fwf

我有一个这样的样本数据

00013          326 10 5143 1 1 11 1 73311333111111111111511111111111111111511111111111111111111111111111111111111111111111111111111            3                 3      875421212454542534524542133452421245443454234234544452124445454
00023          325 10 5143 1 1 11 1 74  1333111111111113111111111111111113111111111111111111111111111111111111111111111111111111111                                     864212322454542435434542143342412145443434324235454454542434543

我需要从SPSS代码中按固定位置读取单个数据，给定列名称和数据位置，如下所示（代码片段）

我已经写了R代码

data <- read.fwf("MY/Q315-Q216.txt", widths=c(-4,4,1,-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-144,1,1,1,1), header=FALSE, 
             col.names=c("ID",
                         "QUARTER",
                         "SEX",
                         "AGEA", 
                         "AGEB", 
                         "RACE" ,
                         "OCCA", 
                         "OCCB", 
                         "LOCATION",
                         "REGION", 
                         "EDUCATION",
                         "HHIA", 
                         "HHIB", 
                         "PERSONALINCOME", 
                         "ENGLIT", 
                         "CHILIT", 
                         "RUMILIT", 
                         "JAWILIT", 
                         "TAMILLIT", 
                         "MORELIT", 
                         "ILLITERATE", 
                         "MRO1",
                         "MRO2" ,
                         "MRO3" ,
                         "MRO4" ))

---

dataOK我使用read_fwf函数找到了它

#read data
library(data.table)
library(readr)
mydata1 <- data.table(read_fwf("MY/Q315-Q216.txt", fwf_positions(
   c(5,9,21:39,176:180), 
   c(8,9,21:39,176:180), 
   c("ID",
     "QUARTER",
     "SEX", 
     "AGEA",
     "AGEB",
     "RACE",
     "OCCA",
     "OCCB",
     "LOCATION",
     "REGION",
     "EDUCATION",
     "HHIA",
     "HHIB",
     "PERSONALINCOME",
     "ENGLIT",
     "CHILIT",
     "RUMILIT",
     "JAWILIT",
     "TAMILLIT",
     "MORELIT",
     "ILLITERATE",
     "MRO1",
     "MRO2",
     "MRO3",
     "MRO4",
     "MRO5")))

#读取数据
库（数据表）
图书馆（readr）
mydata1OK我使用read_fwf函数找到了它

#read data
library(data.table)
library(readr)
mydata1 <- data.table(read_fwf("MY/Q315-Q216.txt", fwf_positions(
   c(5,9,21:39,176:180), 
   c(8,9,21:39,176:180), 
   c("ID",
     "QUARTER",
     "SEX", 
     "AGEA",
     "AGEB",
     "RACE",
     "OCCA",
     "OCCB",
     "LOCATION",
     "REGION",
     "EDUCATION",
     "HHIA",
     "HHIB",
     "PERSONALINCOME",
     "ENGLIT",
     "CHILIT",
     "RUMILIT",
     "JAWILIT",
     "TAMILLIT",
     "MORELIT",
     "ILLITERATE",
     "MRO1",
     "MRO2",
     "MRO3",
     "MRO4",
     "MRO5")))

#读取数据
库（数据表）
图书馆（readr）
mydata1