Jak wykreślić krzywą funkcji w R

Trochę szukałem w sieci i oto kilka sposobów, które znalazłem:

Najprostszym sposobem jest użycie krzywej bez predefiniowanej funkcji

curve(x^2, from=1, to=50, , xlab="x", ylab="y")

Możesz również użyć curve, gdy masz predefiniowaną funkcję

eq = function(x){x*x}
curve(eq, from=1, to=50, xlab="x", ylab="y")

Jeśli chcesz użyć ggplot, masz wybór pomiędzy qplot

library("ggplot2")
eq = function(x){x*x}
qplot(c(1,50), fun=eq, stat="function", geom="line", xlab="x", ylab="y")

I ggplot

library("ggplot2")
eq = function(x){x*x}
ggplot(data.frame(x=c(1, 50)), aes(x=x)) + stat_function(fun=eq, geom="line") + xlab("x") + ylab("y")

plot posiada metodę plot.function

plot(eq, 1, 1000)

Lub

curve(eq, 1, 1000)

Oto wersja kratowa:

library(lattice)
eq<-function(x) {x*x}
X<-1:1000
xyplot(eq(X)~X,type="l")

Rozwiązanie Kratowe z dodatkowymi ustawieniami, które potrzebowałem:

library(lattice)
distribution<-function(x) {2^(-x*2)}
X<-seq(0,10,0.00001)
xyplot(distribution(X)~X,type="l", col = rgb(red = 255, green = 90, blue = 0, maxColorValue = 255), cex.lab = 3.5, cex.axis = 3.5, lwd=2 )

1. Jeśli potrzebujesz zakresu wartości dla x wykreślonego w krokach różnej od 1, np. 0.00001 możesz użyć:

X

1. możesz zmienić kolor linii, definiując wartość rgb:

Col = rgb (red = 255, green = 90, blue = 0, maxColorValue = 255)

1. można zmienić szerokość wykreślonej linii przez ustawienie:

Lwd = 2

1. możesz zmienić rozmiar etykiet skalując je:

Cex.lab = 3,5, cex.oś = 3.5