r语言导入excel数据并合并时部分数据缺失、个别行数据变成1怎么解决

代码如下
library(readxl)
library(plyr)
setwd('G:\celiang')
filenames <- dir()
data <- data.frame()
for (i in filenames){
path <- paste0(getwd(),'\',i)
data <- (rbind.fill(data,data1<-data.frame(t(read_excel(path = path,range="D1:D15"))
)))}
write.csv(data,file = "G:/celiang/huizong.csv")
本想上传结果图片的，但上传失败了。。。。
类似这样
4 2 3 4
1 1 1 1
1 1 1 1
5 5 6 8
7 2 3 9
求大佬解答

太难了...实在是不想学了...考试的时候太难了