조건부 (`if`) 문을 기반으로 데이터 프레임의 값 바꾸기

아래에 코딩 된 R 데이터 프레임에서 B 나타나는 모든 시간을 b.

junk <- data.frame(x <- rep(LETTERS[1:4], 3), y <- letters[1:12])
colnames(junk) <- c("nm", "val")

이것은 다음을 제공합니다 :

   nm val
1   A   a
2   B   b
3   C   c
4   D   d
5   A   e
6   B   f
7   C   g
8   D   h
9   A   i
10  B   j
11  C   k
12  D   l

내 초기 시도는 다음 for과 if같은 및 문 을 사용하는 것이 었습니다 .

for(i in junk$nm) if(i %in% "B") junk$nm <- "b"

하지만 보시다시피 모든 값을 junk$nm로 대체합니다 b. 왜 이런 일을하는지 알 수 있지만 원래 값이 .nm 인 junk $ nm의 경우 만 대체 할 수없는 것 같습니다 B.

참고 : 문제를 해결할 수 gsub있었지만 학습을 위해 RI는 여전히 내 원래 접근 방식을 작동하는 방법을 알고 싶습니다 (가능한 경우).

nm를 문자로 변환 한 다음 변경하는 것이 더 쉽습니다.

junk$nm <- as.character(junk$nm)
junk$nm[junk$nm == "B"] <- "b"

편집 : 그리고 실제로 nm를 요소로 유지해야하는 경우 마지막에 추가하십시오.

junk$nm <- as.factor(junk$nm)

값을 대체하는 또 다른 유용한 방법

library(plyr)
junk$nm <- revalue(junk$nm, c("B"="b"))

짧은 대답은 다음과 같습니다.

junk$nm[junk$nm %in% "B"] <- "b"

R 소개 에서 인덱스 벡터를 살펴보십시오 (아직 읽지 않은 경우).

편집하다. 주석에서 알 수 있듯이이 솔루션은 문자 벡터에 대해 작동하므로 데이터에 실패합니다.

가장 좋은 방법은 수준을 변경하는 것입니다.

levels(junk$nm)[levels(junk$nm)=="B"] <- "b"

당신이 보여주는 데이터는 요소이기 때문에 약간 복잡합니다. @diliop의 답변 nm은 문자 변수 로 변환하여 문제에 접근합니다 . 원래 요인으로 돌아가려면 추가 단계가 필요합니다.

대안은 제자리에있는 요인의 수준을 조작하는 것입니다.

> lev <- with(junk, levels(nm))
> lev[lev == "B"] <- "b"
> junk2 <- within(junk, levels(nm) <- lev)
> junk2
   nm val
1   A   a
2   b   b
3   C   c
4   D   d
5   A   e
6   b   f
7   C   g
8   D   h
9   A   i
10  b   j
11  C   k
12  D   l

이것은 매우 간단하며 levels().

편집 : 주석에서 @Seth가 언급했듯이 이것은 명확성을 잃지 않고 한 줄로 수행 할 수 있습니다.

within(junk, levels(nm)[levels(nm) == "B"] <- "b")

하나의 명령에서이 작업을 수행하는 가장 쉬운 방법은 명령을 사용하는 것입니다. which또한 다음과 같이 요소를 캐릭터로 변경할 필요가 없습니다.

junk$nm[which(junk$nm=="B")]<-"b"

에서 요인 변수를 만들었 nm으므로이를 피하거나 요인 속성에 추가 수준을 추가해야합니다. 또한 <-data.frame ()에 대한 인수를 사용하지 않아야합니다.

옵션 1:

junk <- data.frame(x = rep(LETTERS[1:4], 3), y =letters[1:12], stringsAsFactors=FALSE)
junk$nm[junk$nm == "B"] <- "b"

옵션 2 :

levels(junk$nm) <- c(levels(junk$nm), "b")
junk$nm[junk$nm == "B"] <- "b"
junk

문자 변수로 작업하는 경우 ( stringsAsFactors여기서는 false 임) replace를 사용할 수 있습니다.

junk <- data.frame(x <- rep(LETTERS[1:4], 3), y <- letters[1:12], stringsAsFactors = FALSE)
colnames(junk) <- c("nm", "val")

junk$nm <- replace(junk$nm, junk$nm == "B", "b")
junk
#    nm val
# 1   A   a
# 2   b   b
# 3   C   c
# 4   D   d
# ...

stata.replace<-function(data,replacevar,replacevalue,ifs) {
  ifs=parse(text=ifs)
  yy=as.numeric(eval(ifs,data,parent.frame()))
  x=sum(yy)
  data=cbind(data,yy)
  data[yy==1,replacevar]=replacevalue
  message=noquote(paste0(x, " replacement are made"))
  print(message)
  return(data[,1:(ncol(data)-1)])
}

아래 줄을 사용하여이 함수를 호출하십시오.

d=stata.replace(d,"under20",1,"age<20")