26

ETA：顺便说一下，下面的重点是不必遍历我的整个列向量集，以防万一这是一个建议的解决方案（只做一次已知的工作）。

有很多用其他值替换 R 中数据框的单个向量中的值的示例。

以及如何NA用其他东西替换所有值：

我正在寻找的类似于最后一个问题，但基本上是试图用另一个值替换一个值。对于多列满足条件的情况，或者只是尝试对多列执行前两个问题的操作，我无法生成映射到我的实际数据框的逻辑值数据框。

一个例子：

data <- data.frame(name = rep(letters[1:3], each = 3), var1 = rep(1:9), var2 = rep(3:5, each = 3))

data
  name var1 var2
1    a    1    3
2    a    2    3
3    a    3    3
4    b    4    4
5    b    5    4
6    b    6    4
7    c    7    5
8    c    8    5
9    c    9    5

并说我想要4invar1和var2to be的所有值10。

我确定这是基本的，我只是没有正确考虑它。我一直在尝试这样的事情：

data[data[, 2:3] == 4, ]

那是行不通的，但是如果我对data[, 2]而不是做同样的data[, 2:3]事情，事情就很好了。似乎逻辑测试（如is.na()）适用于多行/多列，但数值比较的效果不那么好？

感谢您的任何建议！

4

4 回答 4

69

您想在整个数据框中搜索与您尝试替换的值匹配的任何值。与您可以运行逻辑测试的方式相同，例如将所有缺失值替换为 10..

data[ is.na( data ) ] <- 10

您也可以用 10 替换所有 4。

data[ data == 4 ] <- 10

至少我认为这就是你所追求的？

假设您想忽略第一行（因为都是字母）

# identify which columns contain the values you might want to replace
data[ , 2:3 ]

# subset it with extended bracketing..
data[ , 2:3 ][ data[ , 2:3 ] == 4 ]
# ..those were the values you're going to replace

# now overwrite 'em with tens
data[ , 2:3 ][ data[ , 2:3 ] == 4 ] <- 10

# look at the final data
data
于 2013-02-06T20:09:29.490 回答
5

基本上data[, 2:3]==4给了你索引data[,2:3]而不是data：

R > data[, 2:3] ==4
       var1  var2
 [1,] FALSE FALSE
 [2,] FALSE FALSE
 [3,] FALSE FALSE
 [4,]  TRUE  TRUE
 [5,] FALSE  TRUE
 [6,] FALSE  TRUE
 [7,] FALSE FALSE
 [8,] FALSE FALSE
 [9,] FALSE FALSE

所以你可以试试这个：

R > data[,2:3][data[, 2:3] ==4]
[1] 4 4 4 4
于 2013-02-06T20:12:09.603 回答
2

只是为了提供不同的答案，我想我会写一个向量数学方法：

您可以使用矢量化的“ifelse”语句创建一个转换矩阵（这里实际上是一个数据框，但工作方式相同），并将转换矩阵与您的原始数据相乘，如下所示：

df.Rep <- function(.data_Frame, .search_Columns, .search_Value, .sub_Value){
   .data_Frame[, .search_Columns] <- ifelse(.data_Frame[, .search_Columns]==.search_Value,.sub_Value/.search_Value,1) * .data_Frame[, .search_Columns]
    return(.data_Frame)
}

要将第 2 到第 3 列的数据框“数据”中的所有值 4 替换为 10，您可以使用如下函数：

# Either of these will work.  I'm just showing options.
df.Rep(data, 2:3, 4, 10)
df.Rep(data, c("var1","var2"), 4, 10)

#   name var1 var2
# 1    a    1    3
# 2    a    2    3
# 3    a    3    3
# 4    b   10   10
# 5    b    5   10
# 6    b    6   10
# 7    c    7    5
# 8    c    8    5
# 9    c    9    5
于 2013-02-06T20:35:46.203 回答
1

只为延续

    data[,2:3][ data[,2:3] == 4 ] <- 10

但它看起来很丑，所以分两步做会更好。

于 2013-02-06T20:12:44.107 回答