无法指定列名R.(Unable to assign column names R)

 数据： 
 
CODE                        MTH MAKE                   FAMILY                   VARIANT                        
1                    22  26 29  33                     56                       81                             
-------------------- --- -- --- ---------------------- ------------------------ ------------------------------ 
AUDA6-AL4930J7R2009C        Mar AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4930J7R2010A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4930J7R2011A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2007E        May AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2008A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2009A        Jan AUDI                   A6                       ALLROAD QUATTRO                
 
 有人可以提供一些指导，因为我是编程新手。 我正在尝试使用read.fwf()按照以下代码阅读以下文件。 第一行应该是标题，但由于固定宽度，我无法做到这一点。 
 
test <- read.fwf(file.choose(),
                 widths = c(21,4,3,4,23,25,31), fill = T)
 
 然后我按照下面的代码将第一行保存为“标题”： 
 
headings <- test[1,]
 
 然后，我尝试将标题指定为根据列的名称 
 
colnames(test) <- headings
 
 虽然代码没有抛出错误，但我没有得到理想的结果，即colnames仍然显示为数字而不是名称。 等等 

Data:
 
CODE                        MTH MAKE                   FAMILY                   VARIANT                        
1                    22  26 29  33                     56                       81                             
-------------------- --- -- --- ---------------------- ------------------------ ------------------------------ 
AUDA6-AL4930J7R2009C        Mar AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4930J7R2010A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4930J7R2011A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2007E        May AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2008A        Jan AUDI                   A6                       ALLROAD QUATTRO                
AUDA6-AL4F30GPJ2009A        Jan AUDI                   A6                       ALLROAD QUATTRO                
 
Could someone please provide some guidance as I am new to programming. I am trying to read the following file using read.fwf() as per the code below. The first row should be headers but because of the fixed width, I am unable to do that.
 
test <- read.fwf(file.choose(),
                 widths = c(21,4,3,4,23,25,31), fill = T)
 
I then take the first row and save it as "headings" as per the code below:
 
headings <- test[1,]
 
I then try to assign the headings as the colnames as per
 
colnames(test) <- headings
 
whilst the code doesn't throw an error, I dont get the desired result i.e the colnames are still showing as numbers rather than the names. etc.

原文：https://stackoverflow.com/questions/31824435