Вы можете составить таблицу со своими полными делами, а затем заменить неполные строки в ваших данных следующим образом:
complete.data <- unique(na.omit(data.df))
for (i in 1:nrow(data.df)){
data.df[i,] <- complete.data[complete.data$Neighborhood %in% data.df$Neighborhood[i],]
}