R С помощью оператора ifelse как извлечь значение из другого столбца, если условие истинно?

Question

Вероятно, есть простое решение для этого, но я изо всех сил пытался получить это, и я не могу найти правильные условия поиска, чтобы найти ответ, поэтому я ценю любую помощь.

По сути, я заполняю новый фрейм данных, ища имя строк в другом фрейме данных2, и если это имя находится в фрейме данных2, то я хочу получить значение во втором столбце datagrame2 ... и если это не так, тогда я хочу добавить ноль.

Вот код, который у меня есть ... но это случайное получение значений, если имя находится в dataframe2.

UTR3s.totes.df <- UTR3s.df
for (i in 1:317) {
  targets.df <- subset(TC_merge,V14==consmiRNAs[i])[,c(18,5)]
  targets <- intersect(targets.df$ENSEMBL, UTR3s$Gene)
  targets.df <- subset(targets.df, targets.df$ENSEMBL %in% targets)
  sitenumber = data.frame(Gene = UTR3s$Gene)
  UTR3s.totes.df[, paste("target",i,sep="")] <- ifelse(sitenumber$Gene %in% 
targets.df$ENSEMBL, targets.df$V5, "0")
}

Все работает, кроме последней строки ... извлекает соответствующее значение из кадра данных2 (target.df)

Воспроизводимый пример добавлен:

U.df <- data.frame(name=c("name1","name2","name3","name4","name5"))
targets.df <- data.frame(name=c("name1","name3","name5"),value=c(2,1,3))
U.df[, paste("target",i,sep="")] <- ifelse(U.df$name %in% targets.df$name, 
targets.df$value, "0")

Answer 1

Вот 2 варианта, которые вы можете попробовать:

## data
U.df <- data.frame(name=c("name1","name2","name3","name4","name5"))
targets.df <- data.frame(name=c("name1","name3","name5"),value=c(2,1,3))

## option 1 (based on merging the data frames)
library(dplyr)
U.df2 <- left_join(U.df, targets.df, by = "name")
U.df2$value[is.na(U.df2$value)] <- 0 # set NA values to 0
U.df2 # output
   name value
1 name1     2
2 name2     0
3 name3     1
4 name4     0
5 name5     3

## option 2 (if you only want an ifelse statement)
U.df$value <- ifelse(U.df$name %in% targets.df$name,
                     targets.df$value[match(U.df$name, targets.df$name)],
                     0)
U.df # output
   name value
1 name1     2
2 name2     0
3 name3     1
4 name4     0
5 name5     3