R言語で最大値の隣に位置する値を抽出したい

Question

前提・実現したいこと

R言語で最大値（検索値）の隣に位置する値を抽出したいです。
又は、検索した値が該当する1行を全て抽出したいです。

下記の表を例にすると

系列1	系列2	系列3
2	3	1
4	8	7
8	2	5

系列2の最大値は

max("系列2")

で 8 が求まります。

しかし、その隣の値、この例で言う 4 や 7 を
抽出するには、どうすれば良いでしょうか？

R言語初心者のため、進捗が止まっております。
ご指導のほど、よろしくお願い致します。

※2019/10/4 AM2:35追記

もう1つ例を挙げます。

下記の表（データテーブル）は
直近3試合における各野球選手の成績です。

名前	ヒット数	四球数
田中	2	3
鈴木	7	1
小林	1	3
佐藤	5	7

ここで、

max("ヒット数")

とすると（コードが間違っていましたら申し訳ありません）
7　が出力されます。

しかし、私は
「鈴木　7 　1」
という行データが欲しいのです。

よろしくお願い致します。

Answer 1

四球数[ヒット数==max(ヒット数)]
でどうでしょう？
手元でためしてないので微調整必要かもですが、
ヒット数==max(ヒット数)で例題でいうと
false true false false
みたいな配列が返ってきます。

Comments

[gnbrganchan]

または、上記の表がデータフレームdfに格納されている前提で、対応する行を一括出力ということであれば
df[df$ヒット数==max(df$ヒット数,]
の方が良いですね。
エッセンスとしては最初の回答と同じです。

[KonbuKonbu]

ご回答ありがとうございます。
ご教授頂いた方法で、私のプログラムでも同様に抽出することができました。
また不明な点があった際は、お手数をおかけしますがよろしくお願い致します。

Answer 2

order()で、ベクトルデータの各要素を小さい順に並べたとき、それぞれが元データの何番目かを知ることが出来ます。
order()の最後の要素が求めるべき順位となります。

> a<-c(1,3,2,5,6,2,1)
> order(a)
[1] 1 7 3 6 2 4 5
> order(a)[length(a)]
[1] 5

Comments

[KonbuKonbu]

早速のご回答誠にありがとうございます。

しかし、まだ私の勉強不足で
order関数を用いた行データ抽出方法が分かりません。

先ほど上記の質問に追記を致しましたので、もう一度ご教授頂けないでしょうか。
よろしくお願い致します。

[KojiDoi]

上記の通りで抽出すべき行の行番号が得られます。これを単純に使うだけです。

> df <- data.frame(a=c(3,1,2,4,5), b=c(3,2,10,5,4))
> df
a b
1 3 3
2 1 2
3 2 10
4 4 5
5 5 4
> df[order(df$a)[nrow(df)],]
a b
5 5 4
> df[order(df$b)[nrow(df)],]
a b
3 2 10

[KonbuKonbu]

無事、私のプログラムでも抽出できました。
大変助かりました。ご教授頂きありがとうございました。