我正在处理任务以读取 R Programming 中的固定宽度文件格式，这是我的数据集
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 列，现在我的任务是找到第 4 列的总和，我的答案是 36540，但所需的答案是 32467，任何答案都将不胜感激，提前谢谢。