r - 仅将某些因素转换为不同的因素

Question

我正在尝试构建一个与其他两个具有完全不同因子水平的因子列相关的因子列。这是示例数据。

set.seed(1234)
a<-sample(LETTERS[1:10],50,replace=TRUE)
b<-sample(letters[11:20],50,replace=TRUE)
df<-data.frame(a,b)
df$a<-as.factor(df$a)
df$b<-as.factor(df$b)

我要创建的规则创建一个新列 c，它基于列 a 的值来确定它的因子水平值。如果 a 列中的任何行 =“F”，则 c 列中的该行将等于 b 列中的条目。我正在尝试的代码：

dfn<-dim(df)[1]
for (i in 1:dfn){
df$c[i]<-ifelse(df$a[i]=="F",df$b[i],df$a[i])
}
df

仅吐出 b 列的因子级别的编号索引，而不是实际条目。我做错了什么？

Answer 1

我认为您需要对字符值进行一些处理。这似乎做到了。

w <- df$a == "F"    
df$c <- factor(replace(as.character(df$a), w, as.character(df$b)[w]))

这是新专栏的快速浏览，

factor(replace(as.character(df$a), w, as.character(df$b)[w]))
#  [1] B G G G I G A C G s G k C J C I C C B C D D B A C I n J I A
# [31] E C D p B H C C J I l G D G D p G E C H
# Levels: A B C D E G H I J k l n p s

Answer 2

正如我之前的评论，一个解决方案dplyr：

df %>% mutate(c = ifelse(a == "F", as.character(b), as.character(a)))

Answer 3

如果您打算做任何涉及将列组合作为因素的事情，例如比较，您应该重构到同一组级别。

u<-union(levels(df$a),levels(df$b))
df$a<-factor(df$a,u)
df$b<-factor(df$b,u)
df$c<-df$a
ind<-df$a=="F" 
df$c[ind]<-df$b[ind]

通过采取这种预防措施，您可以明智地做到

> sum(df$c==df$b)
[1] 6
> sum(df$a=="F")
[1] 6

否则第一行将失败。