【IDL代码库】IDL绘制双Y轴IDL源码下载地址:/s/zrSeGYf9hByKz 效果图:
IDL源码:
;+
;:Description:
; Double y axis
;
;:Author:
;
;:Date: 2013-12-6 21:02:41
;-
pro DoubleY
file = FILE_WHICH('C:\Program Files\Exelis\IDL82\examples\data','')
d = READ_ASCII(file, data_start=5)
speed = LONG(REFORM(d.(0)[5,*]))
direction = LONG(REFORM(d.(0)[6,*]))
location = INDGEN(N_ELEMENTS(speed))
p_wspd = PLOT(location, speed, 'r', $连杆机会
AXIS_STYLE = 1, $ ; 只有X,Y轴,没有外边框 MARGIN = [0.15, 0.15, 0.20, 0.15], $
; 为右侧Y轴留出空余
3d录音NAME = 'Speed', $
XTITLE = 'Location', $
YTITLE = 'Wind Speed (kts)', $
TITLE = 'Wind Measurements')
;这⾥使⽤了current关键字
aphidicip_wdir = PLOT(location, direction, 'b', $
/CURRENT, $地火龙
NAME = 'Direction', $
YRANGE = [0,360], $
AXIS_STYLE = 0, $ ;没有坐标轴
MARGIN = [0.15, 0.15, 0.20, 0.15]) ; 和上⾯的偏移⼀致
;
创建⼀个Y轴
a_wdir = AXIS('y', $
TARGET = p_wdir, $
载重车
MAJOR = 5, $ ; [0, 90, 180, 270, 360]
MINOR = 2, $
LOCATION = [MAX(p_wdir.XRANGE),0,0], $
TEXTPOS = 1, $ ;
TITLE = 'Wind Direction (deg)')
;创建图例
!null = LEGEND(target=[p_wspd, p_wdir])
end