索引R中重复最大值的最大值

我知道which.max能够告诉我第一次出现的最大值的索引，但是我想获得所有索引的最大索引值给定的重复最大值的最大值范围。索引R中重复最大值的最大值

以下是我正在使用的数据。

#Given Data Set 
Dataset1 <- data.frame(Index=1:6, Value=c(.456,.92,.88,.92,.88,0.85)) 
Dataset1 

# Index Value 
1  1 0.456 
2  2 0.920 
3  3 0.880 
4  4 0.920 
5  5 0.880 
6  6 0.850 

#-------------------------- 

#Create Filtered Combinations 
N=nrow(Dataset1) 

Comb<-data.frame(t(combn(seq(1:(N)), 2))) 
library("plyr") 
library("dplyr") 
FComb<-Comb %>% 
    filter(X2-X1>1) %>% 
    select(X1,X2) 

FComb.mat<-as.matrix(FComb) #Filtered Combination set as matrix 
colnames(FComb.mat)[1:2] <- c("ind1","ind2") 

#-------------------------- 

#Finding maximum value from original dataset in the range between "ind1" & "ind2" 
fun <- function(x,y) max(Dataset1$Value[(.x <- x:y)[-c(1, length(.x))]]) 
Max.Val = as.matrix(mapply(fun, FComb.mat[,1], FComb.mat[,2]))

问题：

我想获得最后一列 “IndexMax”，如下图所示。

例如对于ind1 = 1 & ind2 = 5（即行＃3），来自Index = 1：5之间的Dataset1的最大流量值是0.920。这个最大值的索引可以是2或4，但我想选择4，因为它是索引的最大值。我将如何实现这个？

Final 
# ind1 ind2 Max.Val IndexMax 
1  1 3 0.92  2 
2  1 4 0.92  2 
3  1 5 0.92  4 
4  1 6 0.92  4 
5  2 4 0.88  3 
6  2 5 0.92  4 
7  2 6 0.92  4 
8  3 5 0.92  4 
9  3 6 0.92  4 
10 4 6 0.88  5

在此先感谢

来源

2016-09-22 SIYEN

其实我理解了它自己。如果这对其他人有用：

fun2 <- function(x,y) max((which(Dataset1[,2][(.x <- x:y)][-c(1,length(.x))]==max(Dataset1[,2][(.x <- x:y)][-c(1, length(.x))])))+x) 
Max.Pos=as.matrix(mapply(fun2, FComb.mat[,1],FComb.mat[,2])) 

Final<-data.frame(FComb.mat,Max.Val,Max.Pos)

来源

2016-09-24 01:12:59 SIYEN

索引R中重复最大值的最大值

回答

相关问题