1

我在一个名为“值”的数据框中有一些值

IE:

Sam Ned Ted Ann
500 430 57  212
410 265 69  341
189 554 153 457
236 311 590 271
50  568 234 442

以及单独的数据框“标志”中的一些质量控制标志

Sam$F   Ned$F   Ted$F   Ann$F
1   1   1   0 
0   0   1   0
0   0   1   0
0   0   0   0
0   0   1   0

如果标志中的等效条目是 1,我想用 NA 替换“值”中的数字,即导致以下结果

Sam Ned Ted Ann
NA  NA  NA  212
410 265 NA  341
189 554 NA  457
236 311 590 271
50  568 NA  442

这个问题与这个问题非常相似:Replacecing certain values in data.frame in R

这已经通过“合并表”解决方案巧妙地解决了。

除了我有很多数据列可以执行此操作,而不仅仅是一个。但是,我应该能够获得相同的“合并表”解决方案来为我工作。

要合并 2 个表(并将 1 替换为 NA,我使用了以下

F2 <-Flags
F2[F2 == "1"] <- "NA"
# Create identical column names for values and F2 for matching
samples <-colnames(Rvalues)
colnames(F2) <-samples
#Create an ID column for F2 and values
F2$ID <- c(1,2,3,4,5)
Rvalues$ID <- c(1,2,3,4,5)
out2 <- merge(Rvalues, F2, by = c("ID"), all.x = TRUE)

生成的 out2 数据帧如下:

ID  Sam.x   Ned.x   Ted.x   Ann.x   Sam.y   Ned.y   Ted.y   Ann.y 
1   1   500 430 57  212 NA  NA  NA  0
2   2   410 265 69  341 0   0   NA  0
3   3   189 554 153 457 0   0   NA  0
4   4   236 311 590 271 0   0   0   0
5   5   50  568 234 442 0   0   NA  0

所以我想使用上面链接中发布的解决方案(由 Chase 发布),在一个循环中遍历每个样本的列。

我尝试了以下方法:

for [i in samples]
{
out3 <- transform(out2, [i]$new = ifelse(is.na([i].x), [i].y, [i].x), [i].x = NULL, [i].y = NULL)}

它不工作(错误消息

"Error: unexpected '[' in:
"{
out3 <- transform(out2, newdata = ifelse(is.na(["")

所以我有问题,没有 [] 括号它也不起作用。

非常感谢任何修复,非常感谢

4

1 回答 1

1

如果您的 'values' 和 'flags' data.frames 具有相同的维度和列顺序

values[flags == 1] <- NA
于 2012-06-24T14:47:40.107 回答