名稱

Question

我試圖打印，男性的身高平均

我發現男性的身高用下面的命令中位數之下具有高度的男性的名字：

y1<-median(ex1[which(ex1$gender=='male') 

，我試圖打印這樣的名字：

if (gender=='male') 
{ 
    if (height<y1) 
    print(Names) 

} 

有人能幫助我嗎？謝謝:)

文本文件：

 Names height Shoesize gender Location 
    1 andreas 181  44 male citycenter 
    4  maria 170  43 female citycenter 
    5 xristina 172  43 female citycenter 
    13 nikos 175  42 male outofcity 
    14 kostas 181  44 male outofcity 
    15 giannis 180  43 male outofcity 
    16 eleni 177  43 female outofcity 
    17 panos 133  41 male outofcity 

Answer 1

剛子集或創建一個新的數據幀

ex1.medheight <- median(ex1$height[ex1$gender=="male"]) 
ex1.shortmales <- ex1[(ex1$height < ex1.medheight && ex1$gender == "male"),] 

在特定的情況下，過濾男性的數據幀或添加有位disciminator新列可能會更好地進一步處理數據。