R получить правильный индекс, используя условие()

Question

Мне нужно найти наблюдение, удовлетворяющее некоторым критериям, а затем объединить эти индексы с другим набором данных. Поэтому мне не нужен индекс наблюдений, удовлетворяющих условию, но индекс, который относится ко всем наблюдениям.

Например, я хочу найти max(x1) с учетом x2>20, а затем использовать этот индекс в другом наборе данных позже. Мне нужен правильный индекс, другими словами:

dat <- data.frame(name= c("A","B","C","D"), 
      x1= c(1,2,3,4), 
      x2= c(10,20,30,40)) 
dat$name[which.max(dat$x1[dat$x2>20])] 
[1] B 

Я хочу, чтобы получить

[1] D 

т.е. индекс 4, а не 2.

Answer 1

Вот один из способов, используя данные таблицы

library(data.table) 
dat <- as.data.table(dat) 
which(dat[,name]==dat[x2>20,][which.max(x1),name]) 

Can сделать что-то подобное с использованием фреймов данных, но оно будет более подробным.

which (dat$name==dat$name[which(dat$x2>20)][which.max(dat$x1[which(dat$x2>20)])]) 

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

Answer 2

Просто используйте max вместо which.max. Однако весь фрейм данных необходимо сортировать на основе x1, так как max делает отображение 1: 1. (Спасибо @myk_raniu для уточнения)

dat <- dat[order(dat$x1),] 
dat$name[max(dat$x1[dat$x2>20])] 
#[1] D 

Answer 3

Причины which.max не дает правильный ответ является то, что отфильтрованный список x1 короче, чем список Дат $ имени и там уже не 1: 1 Correspondance

Попробуйте вместо

dat <- data.frame(name= c("A","B","C","D"), 
        x1= c(1,2,3,4), 
        x2= c(10,20,30,40)) 

dat$name[dat$x1==max(dat$x1[dat$x2>20])]