如何去掉字符串之间的空格，和补增缺失值（补不连续的缺失值）

setwd("c:/users/11565/Desktop/合并二/可以用数据")
taobao<-read.csv("淘宝直接做回归用的数据_1.csv",na.strings=" ",stringsAsFactors = F)#na.strings主要是讲空格转变成na值
str(taobao)
dim(taobao);names(taobao)
attach(taobao)
detach()
summary(sale)
x=c("34 12")
taobao$inventory[1]
strsplit(inventory[1], "")
n=length(inventory)
#unlist函数是将列表转换成不是列表，查看数字之间有没有空格，首先转换成字符串
#查看字符串里面是否包含空格，如果包含空格就用空格拆分字符串，然后再粘贴在一起，再转换成数字形式
for (i in 1:n){
  if (" "%in%unlist(strsplit(inventory[i], "")) == T){
    x=unlist(strsplit(inventory[i]," "))
    x=paste(x[1],x[2],sep = "")
    taobao$inventory1[i]<-as.numeric(x)
      }
  else{
    taobao$inventory1[i]=as.numeric(inventory[i])
      }
}
c1<-which(is.na(taobao$inventory1))#查看缺失值的位置
for (i in 2:length(c1)){   
  if (c1[i]-c1[i-1] == 1)
    taobao$inventory1[c1[i]] = (taobao$inventory1[c1[i]-1]+taobao$inventory1[c1[i]+1])/2  
}
which(is.na(taobao$inventory1))