2017-11-07 12 views
-3

我々はRでmtcarsデータセットを見てみると:チェック条件

head(mtcars) 
        mpg cyl disp hp drat wt qsec vs am gear carb 
Mazda RX4   21.0 6 160 110 3.90 2.620 16.46 0 1 4 4 
Mazda RX4 Wag  21.0 6 160 110 3.90 2.875 17.02 0 1 4 4 
Datsun 710  22.8 4 108 93 3.85 2.320 18.61 1 1 4 1 
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1 
Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2 
Valiant   18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 

私は6つのシリンダー(cylが6である)でマツダのモデルを選択しているそれらの車のかを確認したいですほとんどの馬力hp。あるいは、私は4気筒のどのMercモデルが最高のhpを持っているか見たいと思っています。

どうすればいいですか?サブセットはありますか?あるいはgrep?

+1

の最高値を持つ残りの行のかを確認することができます。おそらく 'ライブラリ(dplyr); tibble :: rownames_to_column(mtcars、 'rn')%>%filter(grepl( 'Mazda | Merc'、rn))%>%group_by(cyl)%>%スライス(which.max(hp)) ' – akrun

答えて

0

次の2つの条件を確認します。車のモデル名とシリンダー番号、右ですか?

あなたは(ダブル)の条件を満たす行にデータをサブセットして、それは明らかではない列hp

bestcar <- function(carname, cyl_nr){ 
    inds <- (grepl(carname, rownames(mtcars)) & mtcars$cyl == cyl_nr) 
    subdf <- mtcars[inds, ] 
    rownames(subdf)[which.max(subdf$hp)] 
} 

bestcar("Mazda", 6) 
# "Mazda RX4" 
bestcar("Merc", 4) 
# "Merc 230" 
関連する問題