Skip to content

Help with panel.text in Lattice - Putting labels for co-oridnates in a plot

2 messages · RaoulD, David Winsemius

Original
RaoulD
# 
Hi,

I am trying to create a Lattice dotplot that has the following data graphed.
I need to put labels for each of the co-oridnates on the plot. I have
managed to get only one label dispalyed as I don't completely understand the
"panel.text" function. Can someone please help me?

# Sub Reason is a text field that I need to see the volumes for (Vols)

dotplot(DU_Summary_plotdata$SubReason ~ DU_Summary_plotdata$Vols
,horiz=TRUE,main="Top Sub-Reasons - Volumes (90% of Volumes)",
       
family="serif",font=2,xlab="Volumes",ylab="Sub-Reasons",labels=DU_Summary_plotdata$Vols,pch=">",cex=1.5,
        panel = function(x, y, ...) {
            panel.dotplot(x, y, ...)
            panel.text(1,2,labels =DU_Summary_plotdata$Vols ,
                       pos = 4)
        }) 

The dataset DU_Summary_plotdata is made up of:
SubReason<-c( SR_1, SR_2 , SR_3, SR_4, SR_5, SR_6, SR_7, SR_8)
Vols<-c( 33827,17757,11404,5999,5305,3515,3051,1924)

Thanks,
Raoul
David Winsemius
#
RaoulD wrote:
Several problems with your example and explanation:
1) It will not run as posted, since your plot call expects that data to be
in a dataframe and you only constructed 2 vectors.
2) Even if you naively put the two vectors in a dataframe, the SubReason
columns would expect to be able to find objects with those names, so I
suspect you should have quoted them.
Trying to fix these:

DU_Summary_plotdata <- data.frame(SubReason=c( 'SR_1', 'SR_2' , 'SR_3',
'SR_4', 'SR_5', 'SR_6', 'SR_7', 'SR_8'),
Vols=c( 33827,17757,11404,5999,5305,3515,3051,1924)  )

produced a single text value with a set of eight blue arrows at the
indicated horizontal locations. 

3) But the panel.text function was only given a single location at which to
plot the values. (The interpreter plotted the first value at point (1,2)
with left justification.)
Trying instead:

dotplot(DU_Summary_plotdata$SubReason ~ DU_Summary_plotdata$Vols
,horiz=TRUE,main="Top Sub-Reasons - Volumes (90% of Volumes)",
       
family="serif",font=2,xlab="Volumes",ylab="Sub-Reasons",labels=DU_Summary_plotdata$Vols,pch=">",cex=1.5,
        panel = function(x, y, ...) {
            panel.dotplot(x, y, ...)
            panel.text(DU_Summary_plotdata$Vols,
1:length(DU_Summary_plotdata$SubReason), labels =DU_Summary_plotdata$Vols ,
                       pos = 4)
        })
# you need to offer the x value first and the y-values are ascending
integers.

It seems close to what you perhaps wanted (but did not really explain very
fully). It has the defect that the right-most value is partly off the plot
area. That can be remedied by changing the pos=4 argument to pos=1.

-- 
David.