如何在不删除整个行的情况下删除na

Question

我该如何在不删除整个行的情况下从最后的行中删除na

library(dplyr)
library(plyr)
library(tidyverse)
library(readxl)
library(ggplot2)
library(datasets)
library(formattable)
library(flextable)
library(xlsx)
file.list <- list.files(pattern='*.xlsx',recursive = TRUE)
file_names<-sapply(file.list,read_excel,simplify = FALSE)
df1<-rbind.fill(file_names)
vf1<- select(df1,"Location Address",City,State,ZIP,address1,address2,city,state,zip)
df1<-unite(vf1,'Full Address',"Location Address",City,State,ZIP,address1,address2,city,state,zip,sep = ",")
newdata<-na.omit(df1)
write.csv(newdata,"adv134.csv",row.names =FALSE)

Answer 1

没有数据，我无法测试，但是tidyr::replace_na可能可以解决您的问题。

Answer 2

使用基数r

newdata <- df1
newdata[is.na(new_data)] <- ""