2

我的数据框 (dat) 中有一个名为 av1 av2 av3…av144 的变量列表。我想将这些重新编码为另一系列变量，例如 main1 main2 main3... main144 ：

dat$main1<-ifelse (dat$av1==5 or dat2$av1==8 or dat$av1==6,10,0)
dat$main2<-ifelse (dat$av2==5 or dat2$av2==8 or dat$av2==6,10,0)
#…
dat$main144<-ifelse (dat1$av144==5 or dat$av144==8 or dat$av144==6,10,0)

谁能告诉我如何在不重写同一行 144 次的情况下将这个 ifelse 命令应用于两组变量？我尝试使用“grep”尝试按列名提取但未成功，但我认为我走错了方向……</p>

非常感谢您，

4

2 回答 2

1

现在轻微测试：

dat[gsub("av", "main", names(dat))] <- 
      lapply(dat[grep("av", names(dat))], 
            function(col) { ifelse (col==5 | col==8 | col==6, 10, 0) } )

SimonO101 提供的数据集比我预期的要简单。这是对我的代码的稍微复杂但仍然相当小的测试（现在我修复了第一个版本中缺少的逗号）和（修复了将行分配给列的逻辑错误）：

  dat <- data.frame( one=1, two=2, av1 = sample(8) , av2 = sample(8) , av3 = sample(8) ); 

   dat <- cbind(dat,      sapply(dat[grep("av", names(dat))], 
              function(col) { ifelse (col==5 | col==8 | col==6, 10, 0) } ) )
 dat
 #----------------
  one two av1 av2 av3 av1 av2 av3
1   1   2   4   3   4   0   0   0
2   1   2   6   2   5  10   0  10
3   1   2   7   7   8   0   0  10
4   1   2   5   8   1  10  10   0
5   1   2   2   5   6   0  10  10
6   1   2   1   1   7   0   0   0
7   1   2   3   4   3   0   0   0
8   1   2   8   6   2  10  10   0
#--------------
 names( dat)[6:8] <- gsub("av", "main", names(dat)[6:8])
 dat
#-----------------
  one two av1 av2 av3 main1 main2 main3
1   1   2   4   3   4     0     0     0
2   1   2   6   2   5    10     0    10
3   1   2   7   7   8     0     0    10
4   1   2   5   8   1    10    10     0
5   1   2   2   5   6     0    10    10
6   1   2   1   1   7     0     0     0
7   1   2   3   4   3     0     0     0
8   1   2   8   6   2    10    10     0
于 2013-09-09T22:15:00.267 回答
0

这是一种类似的方法，为了说明目的，提供了一些可重复的数据。我在 dat 中找到满足条件的位置，并将结果 df 中的这些值更改为 10。

set.seed(1)
dat <- data.frame( av1 = sample(8) , av2 = sample(8) , av3 = sample(8) )
#  av1 av2 av3
#1   3   6   6
#2   8   1   7
#3   4   2   3
#4   5   7   4
#5   1   3   5
#6   7   8   1
#7   2   4   2
#8   6   5   8


#  Initialise a df to hold results, fill with FALSE values (0)
out <- `[<-`(dat , , , 0 )

#  Find where values should be TRUE
ind <- sapply( dat , function(x) x %in% c( 5 , 6 , 8 ) )

#  Change to 10
out[ ind ] <- 10

#  Change names if desired
names(out) <- gsub( "av" , "main" , names(dat) )
#  main1 main2 main3
#1     0    10    10
#2    10     0     0
#3     0     0     0
#4    10     0     0
#5     0     0    10
#6     0    10     0
#7     0     0     0
#8    10    10    10
于 2013-09-09T22:25:08.583 回答