你可以用 scan
op <- options(scipen=999)
res <- scan('yourfile.csv', what=numeric(), sep=",", quiet=TRUE)
res
#[1] 1417656631000 0 0 3 20450
#[6] 2 7 30798 2 2
#[11] 7449 3 5 16002 2
#[16] 1 77666 2 8 7435
#[21] 4
Run Code Online (Sandbox Code Playgroud)