在多个数据帧列中重新编码NA

Question

I have multiple integer columns in a data frame, all with NAs that I need to recode to 0.

df1 <- as.data.frame(sapply(paste(sample(letters,50,T),sample(letters,10), sep=""), function(x) {sample(c(NA,0:5),10,T)} ))
df2 <- as.data.frame(sapply(paste(sample(letters,5,T),sample(letters,10,T), sep=""), function(x) {sample(letters[1:5],10,T)} ))
df <- cbind(df2,df1)

Producing an output like this... (only the first few columns of the 55 shown)

I can go about recoding the NAs to 0 manually like df$col[is.na(df$col)] <- 0 for each column, but given that there are so many columns, it would take a while to type that all out.

How can I recode all of these NAs to 0 in a line or three?

(I realise I could melt the integer columns and then recode the one melted column, but I'd rather do this in base R)

Answer 1

你非常接近：

df[is.na(df)] <- 0

Answer 2

使用plyr的colwise元函数可以轻松实现：

dfZ=colwise(function(x)ifelse(is.na(x),0,x))(df)