load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin
;---Create some data. We cannot verify the accuracy of these numbers.
  x = ispan(1,8,1)
  y = (/154900,56600,40000,30200,29700,24400,21700,13900/)
  labels = (/"Lung","Colon/rectum","Breast","Prostate","Pancreas",\
             "Non-Hodgkin's~C~      Lymphoma","Leukemias","Ovary"/)
  colors = (/"FireBrick","Red","Orange","Green", "Navy", "Blue", \
             "SkyBlue","SlateBlue"/)

;---Create the plot
  wks = gsn_open_wks("x11","poly3_ex01")

  res                       = True                 ; Plot mods desired

  res@gsnXYBarChart         = True                 ; Turn on bar chart.
  res@gsnXYBarChartBarWidth = 0.75                 ; Change bar widths
  res@gsnXYBarChartColors   = colors 
  
  res@tmXBOn                = False          ; Turn off tickmarks at bottom.
  res@trYMinF               = 0              ; Bring bars down to zero.
  res@trYMaxF               = 160000      
  res@trXMinF               = 0              ; Add space on either end
  res@trXMaxF               = 9              ; of the first and last bars.
  
  res@tiMainString          = "Estimated Cancer Deaths for 2002"

  plot = gsn_csm_xy (wks,x,y,res)            ; Draw plot and advance frame
end