如何在R中添加新因子

Question

我有一个数据框：

a <- c("",1,2,3,2,2,1,3,"")
b <- c(1,2,3,4,5,3,8,2,8)
a1 <- as.factor(a)
f <- data.frame(x=a1,y=b)
f

 x y
1   1
2 1 2
3 2 3
4 3 4
5 2 5
6 2 3
7 1 8
8 3 2
9   8

x列是一个因素，但我想在空位添加因子“0”，例如，我想使用if(is.na(f$x)) f$x <- 0，但它显示警告：

Warning message:
In if (is.na(f$x)) f$x  1 and only the first element will be used

我使用：

for(i in 1:nrow(f)){
 if(is.na(f$x[i])){
     f$x[i] <- 0
 }
}

但它没有任何关系。我如何解决这个问题？谢谢你的帮助！

Answer 1

你不需要for循环，更快的方法是

a <- c("",1,2,3,2,2,1,3,"")
> b <- c(1,2,3,4,5,3,8,2,8)
> a1 <- as.factor(a)
> f <- data.frame(x=a1,y=b)
> 
> f$x <- ifelse(f$x=="",0,f$x)
> f$x
[1] 0 2 3 4 3 3 2 4 0
> f$x <- as.factor(f$x)
> str(f)
'data.frame':   9 obs. of  2 variables:
 $ x: Factor w/ 4 levels "0","2","3","4": 1 2 3 4 3 3 2 4 1
 $ y: num  1 2 3 4 5 3 8 2 8