仅将某些因素转换为不同的因素答案

【问题标题】：convert only some factors into a different factor仅将某些因素转换为不同的因素
【发布时间】：2015-08-07 18:35:45
【问题描述】：

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

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 列的因子级别的编号索引，而不是实际条目。我做错了什么？

【问题讨论】：

使用dplyr 只是df %>% mutate(c = ifelse(a == "F", "F", 0)) 但我想知道a 不是F 时c 应该是什么值？我已将其设置为0。
@SabDeM：是的，这很接近，但我试图用 b 列中的小写值替换所有“F”，而不是创建所有“F”位置的向量s.

标签： r conditional categorical-data recode

【解决方案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

【讨论】：

没问题。喜欢这个网名，顺便说一句。非常有趣。

【解决方案2】：

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

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

【讨论】：

【解决方案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

否则第一行会失败。

【讨论】：