Skip to content

Multi-figure plotting

2 messages · Stefaan Lhermitte, Uwe Ligges

Original
Stefaan Lhermitte
# 
Dear R-ians,

I have a question concerning plotting different plots on one figure. I 
have written a script to plot an image, a legend (based on different 
rectangles) and a timeseries plot on one figure.
In my R-lagnuage it looks like this (without arguments that are not 
usefull for my question):

#---> I first define the functions
image.data<-function(...){
    ....
    #-->Plot the data
    par(fig=c(0,1,0.25,1),new=TRUE)
    par(pin=c(1.5,(num.y/num.x*1.5)))
    image(c(1:(num.x+1)),c(1:(num.y+1)),output.matrix,xlab="X 
coord",ylab="Y coord",main='NDVI',las =1,cex.axis=0.7, cex.lab=0.7, 
col=topo.colors(255), asp=1)

    #---> Add a legend (colored rectangles) + legend axis (=values)
    par(fig=c(0,1,0.3,0.4),new=TRUE)
    plot.window(xlim = c(0,1), ylim = c(0,1), yaxs="i")
    rect((1:254)/255,0,(2:255)/255,0.1,col=topo.colors(255),border=FALSE)
    axis(1,padj=-1,cex.axis=0.7)
    ...
}

profile.data<-function(...){
    ...
    #-->Plot the data
    par(fig=c(0,1,0,0.3),new=TRUE)
    par(pin=c(1.5,num.y/num.x*0.5))
    plot(NDVI, type="l",cex.axis=0.7, cex.lab=0.7)
    ...
}

When I subsequently use the functions I get problems with the legend. It 
plots my image nice in the upper part of  my pixture, adds the 
timeseries below, but it does not plot the rectangles of the legend. I 
don't know what I do wrong, because it plots perfectly the axis of the 
legend, but the colorbar is invisible. All suggestions would be wonderfull!

Thanx in advance,
Stef
1 day later
Uwe Ligges
#
Stefaan Lhermitte wrote:

            

      
      
      
    

        
I guess it is either clipped or there is not enough space left in the 
plot region. But since the example is not directly reproducable, I 
cannot tell you (well, I don't want to waste time to make your example 
reproducible for me, that's your job!).

Uwe Ligges