Dibujo en lenguaje R: agregue expresiones matemáticas y R2 (Ⅱ)
Prefacio
¡No esperaba que el blog escrito a mano recibiera tanta atención!
El número de visitas en un día superó directamente las mil, ¡y fue alentado por el gran dios! (emoción)
Se estima que todo el mundo se siente atraído por este título. (Jaja)
Efectivamente, Tianxiaku R ha estado agregando expresiones matemáticas durante mucho tiempo .
Sin embargo, todavía hay muchos detalles en el segundo blog que no son perfectos, esta vez se adjunta el código y la explicación detallada.
En el futuro, las insignias compartirán algunos consejos para hacer dibujos en tiempos normales. Los amigos a los que les gusta el lenguaje R pueden comunicarse.
¡Entonces vamos directamente al tema!
texto
Generalmente usamos la R geom_smooth()para agregar una serie de funciones de curva suave.
Pero los métodos que se dan en algunos libros de referencia son realmente limitados y no son fáciles de usar.
La insignia también fue incómoda cuando usé R por primera vez para dibujar, y busqué el código durante mucho tiempo.
Esta vez, use directamente la stat_function()función para completar el dibujo.
Primero, dé el código:
a <- c(1, 2, 3, 4, 5)
b <- c(5, 4, 3, 2, 1)
c <- data.frame(a, b)
library(ggplot2)
p <- ggplot(data = c, aes(x = a, y = b)) +
geom_point() +
geom_smooth(method = "lm", color = "red")
p
La figura 1 es la siguiente: a
través del ajuste, la función esy = -x + 6 ， R ^ 2 = 1
Podemos stat_function()dirigir la función de ajuste de curvas.
el código se muestra a continuación:
p <- ggplot(data = c, aes(x = a, y = b)) +
geom_point() +
stat_function(fun = function(x)-1*x+6, color = "orange", size = 1)
p
La figura 2 es la siguiente:
Finalmente, use la annotate()función para agregar texto.
p <- ggplot(data = c, aes(x = a, y = b)) +
geom_point() +
stat_function(fun = function(x)-1*x+6, color = "orange", size = 1) +
annotate("text", x = 4, y = 5, parse = TRUE,
label = "y == -x+6", size = 4) +
annotate("text", x = 4, y = 4.5, parse = TRUE,
label = "atop(R^2==1)", size = 4)
p
La figura 3 es la siguiente:
Suplemento 1:Código de subíndice
En la Figura 3, también usamos el código de superíndice, atop()función.
Al mismo tiempo, aquí también se proporciona el código del subíndice.
p <- ggplot(data = c, aes(x = a, y = b)) +
geom_point() +
stat_function(fun = function(x)(-1)*x+6, color = "orange", size = 1) +
annotate("text", x = 4, y = 5, parse = TRUE,
label = "y == -x+6", size = 4) +
annotate("text", x = 4, y = 4.5, parse = TRUE,
label = "atop(R^2==1)", size = 4) +
annotate("text", x = 4, y = 4, parse = TRUE, #下标
label = "x[1]==x[2]", size = 4)
p
Como se muestra:
Suplemento 2 Otras funciones
Si se trata de otras funciones, escriba el código directamente así:
#指数函数
stat_function(fun = function(x)1.5015*exp(x*(-0.009)), size = 1) +
annotate("text", x = 25, y = 2.5, parse = TRUE, label = "y == 1.5015*e^{-0.009*x}")
#二次函数：
stat_function(fun = function(x)-90.613*x+630.42*x^2+4.3696, size = 1) +
annotate("text", x = 0.09, y = 2.51, parse = TRUE, label = "y == 630.42*x^{2}-90.613*x+4.3696")
#注意：这里的上标使用{
}表达
Si no lo entiende, discútalo en el área de comentarios, critíquelo y corríjalo.