讀取csv R時出錯

Question

我有一個應正常格式化的csv文件，但是，當嘗試將其讀取到我的工作環境中時，出現以下錯誤消息：

 tram <- read.csv("nariad_tram.csv")
Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
  more columns than column names

如何解決這個問題？

可以在Rile中讀取的一種方法是使用制表符定界符，但似乎標題由句點而不是逗號分隔。

> tram <- read.csv("nariad_tram.csv", sep = "\t")

    > head(tram)
      nrd_identificator.cnrd_orderby.nd_identificator.park_identificator.cp_regnum.cp_shortname.cp_latitude.cp_longitude.cnrd_daynight.cnrd_endstation.cnrd_speckp.cnrd_timeplan.cnrd_timefact.cnrd_diflextion.cnrd_marsh.mr_title
    1                                                                                    59418483,140,5941,203,5365,Детск,55.82937933,37.76646164,D,E,F,298,322,24,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)
    2                                                                                      59418483,130,5941,203,7118,М.БУЛ,55.81301921,37.73560374,D,,-,289,307,0,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)
    3                                                                                      59418483,120,5941,203,6241,М.Пре,55.79639691,37.71787001,D,,-,280,290,0,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)
    4                                                                                     59418483,110,5941,203,14018,М.Сок,55.78826494,37.67965027,D,,-,272,278,0,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)
    5                                                                                      59418483,100,5941,203,4190,мКрас,55.77910559,37.66552693,D,,-,266,272,0,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)
    6                                                                                  59418483,90,5941,203,13920,Комсо,55.7752844438,37.6558319272,D,,-,263,271,0,13,Детский санаторий (к/ст, пос.) Каланчевская ул. (выс., пос.)

Answer 1

這可以幫助你

data<- read.csv(file.choose(),header=T)

Answer 2

如您所提到的，列標題和數據是分開分開的。

tram <- read.csv("nariad_tram.csv", sep = "\t",skip=1)
colnames(tram) =c("nrd_identificator",
"cnrd_orderby",
"nd_identificator",
"park_identificator",
"cp_regnum",
"cp_shortname",
"cp_latitude",
"cp_longitude",
"cnrd_daynight",
"cnrd_endstation",
"cnrd_speckp",
"cnrd_timeplan",
"cnrd_timefact",
"cnrd_diflextion",
"cnrd_marsh",
"mr_title")