Question

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

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

#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＆amp; 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

提前致谢

Answer 1

我实际上是自己想出来的。如果将来对其他任何人都有用：

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)

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

1 个答案: