[ncl-talk] How to use plot tickmark labels with different colors
Giorgio Graffino
g.graffino at tim.it
Wed Apr 19 02:34:31 MDT 2023
Thanks Adam,
I don't understand why, but it worked! I managed to add colored labels
on a panel table plot.
Cheers,
Giorgio
------ Messaggio Originale ------
Da: asphilli at ucar.edu
A: g.graffino at tim.it Cc: ncl-talk at ucar.edu
Inviato: mercoledì 19 aprile 2023 00:12
Oggetto: Re: [ncl-talk] How to use plot tickmark labels with different
colors
Hi Giorgio,
You could try setting tmXBLabelFontColor to a RGBA value, setting the A
value to 0. Using xy example #1 as a template:
begin
f = addfile ("$NCARG_ROOT/lib/ncarg/data/cdf/uv300.nc
<http://uv300.nc> ","r")
u = f->U ; get u data
wks = gsn_open_wks ("png","xy") ; send graphics to PNG
file
res = True ; plot mods desired
res at gsnFrame = False
res at tiMainString = "Basic XY plot" ; add title
res at tmXBLabelFontColor = (/0,0,1,0./). ; <------ Set to blue, but
make the color completely transparent.
plot = gsn_csm_xy (wks,u&lat,u(0,:,{82}),res) ; create plot
res at tmXBLabelFontColor = (/0,1,.05,1./). ; <---- Set to green, but
make the color opaque.
plot2 = gsn_csm_xy (wks,u&lat,u(0,:,{82}),res) ; create plot
frame(wks)
end
If you run the above script you will see clean green X-axis labels
(without any weird blue outlines to the green labels).
Hope that helps!
Adam
On Mon, Apr 17, 2023 at 10:27 AM Giorgio Graffino via ncl-talk
<ncl-talk at mailman.ucar.edu <mailto:ncl-talk at mailman.ucar.edu> > wrote:
[UPDATE]
I made some progress using gsnPanelSave adapting replace_tickmark_labels
and calling it after gsn_panel. To make the individual plots of the size
I want, I'm drawing some "invisible" labels using res at tmXBLabelFontColor
= "Background", then I'm redrawing them as red or blue. As you can see,
the result is not great.
If I set res at tmXBLabelFontColor = "Transparent" the script doesn't work.
Is there a way to draw transparent labels? Or is there another way to
do what I'm trying to do (see email below)?
Cheers,
Giorgio
;----------------------------------------------------------------------
; This procedure draw X/Y tickmark labels with custom
; labels created by drawing individual text strings read via
gsnPanelSave
; (adapted from https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl>
; and https://www.ncl.ucar.edu/Applications/Scripts/panel_GWLs_Rain.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/panel_GWLs_Rain.ncl> )
;----------------------------------------------------------------------
procedure replace_tickmark_labels_panel(wks,plot)
local txres, xlabels, ylabels, xmin, ymin, xfonth, yfonth, xangle, xjust
begin
;---Retrieve some values so we can reconstruct the labels
getvalues plot
"tmXBLabels" : xlabels
"tmYLLabels" : ylabels
"tmXBValues" : xvalues
"tmYLValues" : yvalues
"trXMinF" : xmin
"trYMinF" : ymin
"tmYLMajorOutwardLengthF" : ylength
"tmXBMajorOutwardLengthF" : xlength
"tmXBLabelFontHeightF" : xfont_height
"tmYLLabelFontHeightF" : yfont_height
"tmXBLabelAngleF" : xangle
"tmXBLabelJust" : xjust
end getvalues
;---Get the NDC locations for the new tickmark labels
xvalues_ndc = new(dimsizes(xvalues),float)
yvalues_ndc = new(dimsizes(yvalues),float)
xmin_ndc = new(1,float)
ymin_ndc = new(1,float)
datatondc(plot,xvalues,yvalues,xvalues_ndc,yvalues_ndc)
datatondc(plot,xmin,ymin,xmin_ndc,ymin_ndc)
;---Make sure the plot doesn't overlay with the tickmark labels.
xmin_ndc = xmin_ndc-0.0075
ymin_ndc = ymin_ndc-0.0075
;---Color the first four labels red
txres = True
txres at txJust = xjust
txres at txFontColor = "Red"
;---Draw the first four labels
txres at txFontHeightF = xfont_height
gsn_text_ndc(wks,ylabels(0:3),xmin_ndc,yvalues_ndc(0:3),txres)
txres at txAngleF = xangle
txres at txFontHeightF = yfont_height
gsn_text_ndc(wks,xlabels(0:3),xvalues_ndc(0:3),ymin_ndc,txres)
;---Color the last four labels blue
txres at txFontColor = "Blue"
;---Draw the last four labels
txres at txAngleF = 0.
txres at txFontHeightF = xfont_height
gsn_text_ndc(wks,ylabels(4:7),xmin_ndc,yvalues_ndc(4:7),txres)
txres at txAngleF = xangle
txres at txFontHeightF = yfont_height
gsn_text_ndc(wks,xlabels(4:7),xvalues_ndc(4:7),ymin_ndc,txres)
end
------ Messaggio Originale ------
Da: ncl-talk at mailman.ucar.edu <mailto:ncl-talk at mailman.ucar.edu>
A: ncl-talk at ucar.edu <mailto:ncl-talk at ucar.edu>
Inviato: venerdì 14 aprile 2023 17:10
Oggetto: [ncl-talk] How to use plot tickmark labels with different
colors
Hello NCLers,
I need to draw tickmark labels with two different colors (red and blue).
The script is quite complex; it uses part of
https://www.ncl.ucar.edu/Applications/Scripts/table_8.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/table_8.ncl> to draw
many table plots, which become part of a panel plot (see attached
HadCM3_plot_maps_cor_3.png). I can't find a resource like
tmXBLabelFontColors, or something able to handle an array of colors like
xyLineColors does for lines. Does anyone know if such resource exist?
I tried to generate colored labels in another way. I found this example
(https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl> ), containing
a procedure able to remove labels from a plot and redraw them. My
version of the procedure is pasted below; it reads the value and the
location of the labels from the plot function, and draws them again
using gsn_text_ndc. I included the procedure in my script but the result
is not the intended one (see attached
HadCM3_plot_maps_cor_3colored.png).
I found out that there is an unadvertised gsnPanelSave resource used in
https://www.ncl.ucar.edu/Applications/Scripts/panel_GWLs_Rain.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/panel_GWLs_Rain.ncl> to
to keep the plots in their resized state. I think it might help. Can
anyone please tell me how it works?
Cheers,
Giorgio
;----------------------------------------------------------------------
; This procedure replaces a plot's X/Y tickmark labels with custom
; labels created by drawing individual text strings
; (adapted from https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl
<https://www.ncl.ucar.edu/Applications/Scripts/tm_12.ncl> )
;----------------------------------------------------------------------
procedure replace_tickmark_labels(wks,plot)
local txres, xlabels, ylabels, xmin, ymin, xfonth, yfonth
begin
;---Turn off plot's X and Y tickmark labels
setvalues plot
"tmXBLabelsOn" : False
"tmYLLabelsOn" : False
end setvalues
;---Retrieve some values so we can reconstruct the labels
getvalues plot
"tmXBLabels" : xlabels
"tmYLLabels" : ylabels
"tmXBValues" : xvalues
"tmYLValues" : yvalues
"trXMinF" : xmin
"trYMinF" : ymin
"tmYLMajorOutwardLengthF" : ylength
"tmXBMajorOutwardLengthF" : xlength
"tmXBLabelFontHeightF" : xfont_height
"tmYLLabelFontHeightF" : yfont_height
end getvalues
;---Get the NDC locations for the new tickmark labels
xvalues_ndc = new(dimsizes(xvalues),float)
yvalues_ndc = new(dimsizes(yvalues),float)
xmin_ndc = new(1,float)
ymin_ndc = new(1,float)
datatondc(plot,xvalues,yvalues,xvalues_ndc,yvalues_ndc)
datatondc(plot,xmin,ymin,xmin_ndc,ymin_ndc)
;---Make sure the tickmark labels don't touch the tickmarks.
xmin_ndc = xmin_ndc-(1.8*ylength)
ymin_ndc = ymin_ndc-(1.8*xlength)
;---Color the first four labels red
txres = True
txres at txFontColor = "Red"
;---Draw the first four labels
txres at txFontHeightF = xfont_height
gsn_text_ndc(wks,ylabels(0:3),xmin_ndc,yvalues_ndc(0:3),txres)
txres at txFontHeightF = yfont_height
gsn_text_ndc(wks,xlabels(0:3),xvalues_ndc(0:3),ymin_ndc,txres)
;---Color the last four labels blue
txres at txFontColor = "Blue"
;---Draw the last four labels
txres at txFontHeightF = xfont_height
gsn_text_ndc(wks,ylabels(4:7),xmin_ndc,yvalues_ndc(4:7),txres)
txres at txFontHeightF = yfont_height
gsn_text_ndc(wks,xlabels(4:7),xvalues_ndc(4:7),ymin_ndc,txres)
end
_______________________________________________
ncl-talk mailing list
ncl-talk at mailman.ucar.edu <mailto:ncl-talk at mailman.ucar.edu>
List instructions, subscriber options, unsubscribe:
https://mailman.ucar.edu/mailman/listinfo/ncl-talk
<https://mailman.ucar.edu/mailman/listinfo/ncl-talk>
_______________________________________________
ncl-talk mailing list
ncl-talk at mailman.ucar.edu <mailto:ncl-talk at mailman.ucar.edu>
List instructions, subscriber options, unsubscribe:
https://mailman.ucar.edu/mailman/listinfo/ncl-talk
<https://mailman.ucar.edu/mailman/listinfo/ncl-talk>
--
Adam Phillips
Associate Scientist IV, Climate Analysis Section
Climate and Global Dynamics Laboratory
National Center for Atmospheric Research
www.cgd.ucar.edu/staff/asphilli/
<http://www.cgd.ucar.edu/staff/asphilli/>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.ucar.edu/pipermail/ncl-talk/attachments/20230419/18c55d67/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: HadCM3_plot_maps_cor_8.pdf
Type: application/pdf
Size: 177187 bytes
Desc: not available
URL: <https://mailman.ucar.edu/pipermail/ncl-talk/attachments/20230419/18c55d67/attachment.pdf>
More information about the ncl-talk
mailing list