Thomas Schwander wrote:> Hi guys,
>
>
>
> I use R 2.6.2 and Windows XP.
>
>
>
> I?ve got the following question: I wrote a lot of text into the margin of a
> plot. When I use the ?jpeg?-function, only a little part of the margin text
> is displayed in the final jpeg? Any ideas to change it?
>
>
>
> Source-Code:
>
>
>
> datenbankdaten<-data.frame(LETTERS[1:20],
>
>
c(8,4.8,3.8,2.7,2.6,2.1,2,1.9,1.6,1,0.99,0.98,0.98,0.97,0.96,.96,0.8,0.8,0.7
> ,0.6),
>
>
c(8,4.8,3.8,0,2.6,2.1,2,1.9,1.6,1.1,0.99,0.98,0.97,0.97,0.96,.95,0.8,0.8,0,0
> .6))
>
>
>
> Zugehoerigkeit<-LETTERS[1:20]
>
>
>
> Bezeichnung<-letters[1:20]
>
>
>
>
colnames(datenbankdaten)<-c("Bezeichnung","A","B")
>
>
>
> # par = Setzt die Grafikparameter, die durch plot automatisch verwendet
> werden
>
> # mar = Anzahl der Textzeilen von den inneren Achsen des Schaubild zum Rand
>
> # Zeilenvektor: c(bottom, left, top, right)
>
> par(mar=c(3,4,4,25),family="serif")
>
>
>
> Fontparameter<-1
>
>
>
> today<-Sys.Date()
>
> Vormonat<-Sys.Date()-20
>
>
>
> Stand_aktuell<-format(today, "%B %Y")
>
> Stand_Vormonat<-format(Vormonat, "%B %Y")
>
>
jpeg(paste("C:\\TOP-20.jpeg",sep=""),quality=100,width=1024,
height=768)
>
>
>
plot(datenbankdaten[,2],ylim=c(0,max(datenbankdaten[,2],datenbankdaten[,3]))
> ,
>
> xlab="", ylab="",
>
>
>
font.axis=Fontparameter,font.lab=Fontparameter,font.main=Fontparameter,font.
> sub=Fontparameter,
>
> bty="n",axes=F)
>
> axis(1,at=1:20,label=rep("",20))
>
> axis(1,at=1:9,label=sprintf("0%.0f",1:9))
>
> axis(1,at=10:20,label=10:20)
>
> Maximum<-max(datenbankdaten[,2],datenbankdaten[,3])
>
> axis(2,at=0:Maximum,label=sprintf("%.2f",0:Maximum))
>
> for(i in 1:(length(datenbankdaten[,2])+2)){
>
> abline(h=i-1)
>
> }
>
> for(i in 1:20){
>
> if(datenbankdaten[i,2]>=datenbankdaten[i,3])
farbe="red" else
> farbe="green"
>
>
>
arrows(i,datenbankdaten[i,2],i,datenbankdaten[i,3],col=farbe,length=0,lwd=1.
> 5)
>
> points(i,datenbankdaten[i,2],pch=22,col="light
blue",bg="light
> blue",cex=1.7)
>
>
>
points(i,datenbankdaten[i,3],pch=21,col="grey",bg="grey",cex=1.5)
>
> }
>
>
>
> for(i in 1:20){
>
> if(datenbankdaten[i,2]>datenbankdaten[i,3])
>
> #dreieck nach oben
>
>
>
points(i,datenbankdaten[i,2]-0.1,pch=24,col="red",bg="red")
>
> if(datenbankdaten[i,2]<datenbankdaten[i,3])
>
> #dreieck nach unten
>
>
>
points(i,datenbankdaten[i,2]+0.1,pch=25,col="green",bg="green")
>
> }
>
> # Legend muss noch in die R?nder geschrieben werden, w?rde besser
aussehen
>
>
>
> Verkleinern<-0.8
>
>
>
> for(i in 1:20){
>
>
>
> if(i<=9) text(par("usr")[2] + 0.5, Maximum-(i-1)*0.4, srt=0,
adj = 0, labels
> = sprintf("0%.0f",i),xpd = TRUE,cex=Verkleinern)
>
> else text(par("usr")[2] + 0.5, Maximum-(i-1)*0.4, srt=0, adj = 0,
labels > i,xpd = TRUE,cex=Verkleinern)
>
>
>
> text(par("usr")[2] + 1, Maximum-(i-1)*0.4, srt=0, adj
= 0,
> labels = Zugehoerigkeit[i],
>
> xpd = TRUE,cex=Verkleinern)
>
> text(par("usr")[2] + 3.6, Maximum-(i-1)*0.4, srt=0,
adj = 0,
> labels = Bezeichnung[i],
>
> xpd = TRUE,cex=Verkleinern)
>
> }
>
>
>
> lines(c(par("usr")[2] + 0.4,par("usr")[2] +
> 0.4),c(Maximum+0.1,0.25),xpd=TRUE)
>
> lines(c(par("usr")[2] + 11.5,par("usr")[2] +
> 11.5),c(Maximum+0.1,0.25),xpd=TRUE)
>
> lines(c(par("usr")[2] + 0.9,par("usr")[2] +
> 0.9),c(Maximum+0.1,0.25),xpd=TRUE)
>
> lines(c(par("usr")[2] + 3.45,par("usr")[2] +
> 3.45),c(Maximum+0.1,0.25),xpd=TRUE)
>
>
>
> Abstand<-Maximum-0.15
>
>
>
> # aktueller Standpunkt
>
> for(i in 1:20){
>
> lines(c(par("usr")[2] + 0.4,par("usr")[2] +
>
11.5),c(Maximum+0.1-Abstand*(i-1)/20,Maximum+0.1-Abstand*(i-1)/20),xpd=TRUE)
>
> }
>
> lines(c(par("usr")[2] + 0.4,par("usr")[2] +
11.5),c(0.25,0.25),xpd=TRUE)
>
>
>
> #Ende Test
>
>
>
>
legend("topright",legend=c(Stand_aktuell,Stand_Vormonat),pch=c(22,21),
>
> bty="o",pt.bg=c("light
blue","grey"),cex=0.8,bg="white")
>
>
>
> dev.off()
>
Hi Thomas,
You seem to have a very wide table on the right of the plot, try this:
x11(width=10,height=7)
par(mar=c(5,4,4,20))
plot(...
Jim