不可能接收到所需的輸出

Question

我用分配給讀在R編程的固定寬度的文件格式的工作，這是我的數據集

http://www.cpc.ncep.noaa.gov/data/indices/wksst8110.for

和所用readr包讀取文件和用下面所示的代碼

library(readr) 
x<-read_fwf(file=url("http://www.cpc.ncep.noaa.gov/data/indices/wksst8110.for"),skip=4,fwf_widths=c(12,7,4,9,4,9,4,9,4)) 
head(x) 
y<-x[4] 
sum(y) 

現在，我得到所需的9列，現在我的任務是找到第四列的總和清理數據，我的答案是36540，但所需要的答案是32467，任何答案會不勝感激， Thanx提前。

Answer 1

您需要下載該文件作爲gas.xlsx沒有gas.xls

download.file("https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2FDATA.gov_NGAP.xlsx", "gas.xlsx" ,mode="wb")