# csv 파일 불러와서 데이터 프레임 생성
ty_all <- read.csv("ty_all.csv", header=T)
ty_all
# exp_time=0인 실제 데이터와 필요한 컬럼만 선별하여 ty_all_R 데이터 프레임 생성
ty_all_R <- ty_all[(ty_all$EXP_TIME == 0),
c("TY_DATE", "TY_NAME", "EXP_TIME", "C_PRESS", "V_KMH", "STR_WR", "STRENGTH" , "SCALE", "SPEED")]
head(ty_all_R)
# 중심 기압이 높은 순으로 날짜와 이름, 중심 기압 출력
ty_all_R[ order (ty_all_R$C_PRESS, decreasing = T), c("TY_DATE", "TY_NAME", "C_PRESS")]