快速替换数据框

Question

我需要在数据框中替换NA，事实是该表有很多列（超过5000），所以代码：

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

花了很多时间。有没有其他方法可以更快地做同样的事情？只有200行需要超过3分钟。

修改

列都是整数，是dcast（来自reshape2包）的结果。

我试过了：

z<-data.table(y)
z[is.na(z)]<-0

它仍然需要很长时间。