Замініть значення в кадрі даних на основі умовного ("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, де було початкове значення B.

ПРИМІТКА. Мені вдалося вирішити проблему, gsubале в інтересах вивчення RI все ж хотілося б знати, як отримати свій оригінальний підхід до роботи (якщо це можливо)

Простіше конвертувати nm в символи, а потім внести зміни:

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

EDIT: І якщо вам дійсно потрібно підтримувати 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 Introduction (якщо ви ще цього не прочитали).

EDIT. Як зауважено в коментарях, це рішення працює для векторів символів, тому не вдається отримати ваші дані.

Для фактору найкращий спосіб - це змінити рівень:

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тому вам або потрібно уникати цього чи додавати додатковий рівень до атрибутів фактора. Вам також слід уникати використання <-в аргументах даних.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тут помилково), ви можете використовувати заміну:

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")