这是我用来绘制barplot的代码。
b1 = BARPLOT(Year, x, INDEX=0, NBARS=2, COLOR='red', thick=2, XRANGE=[0, 800], $
FILL_COLOR='white', xticks=5, xtickv=['0','200','400','600','800'], YRANGE=[0, 4000],$
yticks=5, ytickv=['0','1000','2000','3000','4000'], XTICKFONT_SIZE=13, YTICKFONT_SIZE=13, $
XTITLE='Angular width (degree)', YTITLE='Number of CMEs', $
TITLE = ' ' + $
'')
b2 = BARPLOT(Year, y, INDEX=1, NBARS=2, COLOR='blue', thick=2,$
FILL_COLOR='white', /OVERPLOT)
text_pine = TEXT(450, 3600, 'Red bars = cycle 23', /CURRENT, $
COLOR='black', /DATA)