只能手动修改csv或者读进来的table了。
要是错位行很多以及都是第一列错位,可以
df <- data.frame(x=c("A",2,"C",4),y=c(1,20,3,40),z=c(10,NA,30,NA))
df
#> x y z
#> 1 A 1 10
#> 2 2 20 NA
#> 3 C 3 30
#> 4 4 40 NA
df[] <- t(apply(df,1,function(x)c(x[is.na(x)],x[!is.na(x)])))
df
#> x y z
#> 1 A 1 10
#> 2 <NA> 2 20
#> 3 C 3 30
#> 4 <NA> 4 40
Created on 2020-01-06 by the reprex package (v0.3.0)
参考这个SO