Имен мужчин с высотой под самцом медиана

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 может быть лучше для дальнейшей работы с данными.