[R] 4D Plot

[Spitzner, Andrea]

Hello,

I need some help with a 4D-Plot.

Here is my code:

Lab.palette <- colorRampPalette(c("blue","turquoise","green","yellow","orange","red","violet"),space = "Lab")
par(las=3,omi=c(0.8,0.1,0.1,0.1))
filled.contour(x,log10(y),log10(z=daten),col=Lab.palette(27),zlim = c(0,max(log10(daten))),plot.title="Unkorrigierte Mobilitäten von Staub",
               ylab="Größenklassen",key.title="",
               plot.axes={axis(2,at=log10(ytick),label=ytick)
                          axis(1,at=seq(min(datetime),max(datetime),by="3 hour"),label=seq(min(datetime),max(datetime),by="3 hour"),las=3)
                          contour(x,log10(y),log10(z=daten),col="darkgrey",zlim = c(min(log10(daten)),0),add=TRUE)})

You can see the plot in plot1.jpg. My Problem: Normally I need a second filled.contour()for the grey area on my first one. But it doesn`t work.
When I use image() instead of contour() it`s looking really bad (I don`t know why) because of the white areas. You can see this in plot2.jpg.

Do you know how I can realize a full filled plot like this without any left white spaces?


Additionally I want to change the label of the legend (because of log10() the label was changed). How I can do that?

It would be really nice, if you could help me! Thanks very much!!

Greetings
Andrea Spitzner