#Lösung #Größe ändern par(cex=1.5) #x-Achsenbereich festlegen x<-seq(0,3,0.1) #Plotten der ersten Funktion plot(x,log(x,base=2),main="Logarithmen zu verschiedenen Basen",xlab="x",ylab="log(x)",type="l",lwd=2) #Hinzufügen der weiteren lines(x,log(x,base=3),lty=2,col="Red",lwd=2) lines(x,log(x,base=exp(1)),lty=3,col="Blue",lwd=2) lines(x,log(x,base=10),lty=4,col="green",lwd=2) #Legende legend(1.5,-1,c("Basis 2","Basis 3", "Basis e","Basis 10"),lty=1:4,col=c("Black","Red","Blue","green"),lwd=2) ### Alternativer zum Plotten einzelner Kurven curve(log(x,base=2),xlim=c(0,3)) # Erstes Argument gibt zu plottende Funktion in Argument x (hier Platzhalter) an; 2. Argument (xlim) bereich der zu plottenden x-Werte curve(log(x,base=3),xlim=c(0,3),add=T,col=2) curve(log(x,base=exp(1)),xlim=c(0,3),add=T,col=3) ### in curve(...) kann mit add=T als Zusatzoption der plot wie mit lines(...) zum bestehenden hinzugefügt werden