1

これらの文字列がある場合:

dat <- data.frame(xxs = c("PElookx.PElookxstd","POaftGx.POlookGxstd"))

PEたとえば、文字列にI wantNOWまたはPOI would get が含まれている場合、新しい変数を作成するにはどうすればよいですかLATER

newxxs <- (`NOW`,`LATER`)

これを行うためにgrepを使用する方法を知っています：

dat$newxss <- NA
dat$newxss[grep("PE",dat$xxs)] <- "NOW"
dat$newxss[grep("PO",dat$xxs)] <- "LATER"

grep多くのsよりも簡単な方法はありますか? 同じ新しい列と多くの新しい列の文字列の複数のビットに対してこれを行う必要があるためです。

4

2 に答える 2

3

異なる置換を行う必要がある場合は、カスタム関数を作成してそれらをすべて一度に実行できます。次に例を示します。

subst <- function(var, corresp) {
  sapply(corresp, function(elem) {
    var[grep(elem[1],var)] <- elem[2]
  })
}

var <- c("PEfoo", "PObar", "PAfoofoo", "PUbarbar")
corresp <- list(c("PE","NOW"),
                c("PO","LATER"),
                c("PA", "MAYBE"),
                c("PU", "THE IPHONE IS IN THE BLENDER"))
subst(var, corresp)

あげる ：

[1] "NOW"                          "LATER"                       
[3] "MAYBE"                        "THE IPHONE IS IN THE BLENDER"

したがって、関数をデータ フレームのさまざまな列に繰り返し適用できます。

dat$new1 <- subst(dat$old1, corresp1)
dat$new2 <- subst(dat$old2, corresp2)
dat$new3 <- subst(dat$old3, corresp3)
...
于 2013-02-12T13:45:46.687 に答える
2

すべての文字列に必ずPEorが含まれているPO場合は、次を使用できますifelse。

ifelse(grepl("PE", dat$xxs), "NOW", "LATER")

例：

set.seed(45)

x <- sample(c("PEx", "POy"), 20, replace=T)
# [1] "POy" "PEx" "PEx" "PEx" "PEx" "PEx" "PEx" "POy" "PEx" "PEx" 
#         "PEx" "POy" "PEx" "PEx" "PEx" "PEx" "POy" "PEx" "PEx" "PEx"

ifelse(grepl("PE", x), "NOW", "LATER")

# [1] "LATER" "NOW"   "NOW"   "NOW"   "NOW"   "NOW"   "NOW"   "LATER" "NOW"   
#         "NOW"   "NOW"   "LATER" "NOW"   "NOW"   "NOW"  
# [16] "NOW"   "LATER" "NOW"   "NOW"   "NOW"
于 2013-02-12T13:35:15.953 に答える