#48_140821_R_SUBQUERY

# SUBQUERY

 

 

>> JONES의 월급보다 더 많은 월급을 받는 사원들의 이름과 월급을 출력   > emp[emp$sal>jonessal, c("ename","sal")]    ename  sal 8  SCOTT 3000 9   KING 5000 13  FORD 3000 15  JACK 3200

>> 가장 최근에 입사한 사원의 이름과 입사일 출력   > emp[as.Date(emp$hiredate) == maxhire, c("ename","hiredate")]    ename   hiredate 11 ADAMS 1987-05-23

>> KING에게 보고하는 사원들의 이름을 출력   > king <- emp[emp$ename=='KING',"empno"] > emp[emp$mgr==king,"ename"] [1] JONES BLAKE CLARK <NA>

>> 관리자인 사원들의 이름을 출력   > emp[emp$empno %in% emp$mgr,"ename"] [1] JONES BLAKE CLARK SCOTT KING  FORD   >> 관리자가 아닌 사원들의 이름을 출력   > emp[!emp$empno %in% emp$mgr,"ename"] [1] SMITH  ALLEN  WARD   MARTIN TURNER ADAMS  JAMES  MILLER JACK

>> price 테이블에서 가장 비싼 생필품을 파는 매정명과 그 생필품과 가격을 출력   > price[price$A_PRICE==max(price$A_PRICE),c("M_NAME","A_NAME","A_PRICE")]            M_NAME          A_NAME A_PRICE 1082 신세계백화점 조기(국산,생물)   81670