如您所见,等于符号未正确显示。
我的完整代码在这里:
---
title: "Something"
author: "Murpholinox Peligro"
date: "11 abril 2020"
output:
html_document:
df_print: paged
pdf_document: default
---
```{r}
# Carga paquetes
library(ggplot2)
library(latex2exp)
```
```{r}
# Carga los datos limpios
smalldf <- read.csv("~/Repos/plotcovid19mx/smalldf.csv")
# Crea una gráfica base
p<-ggplot(data = smalldf, aes(x=days, y=y2)) + geom_point()
```
```{r}
# Crea el modelo exponencial
model = nls(y2 ~ a * exp(b*days), data=smalldf, start = list(a=0.67, b=0.16))
# Imprime información del modelo
summary(model)
# Agrega el ajuste con los parámetros del modelo
p +
stat_smooth(method = 'nls', formula = y ~ a * exp(b * x), se=FALSE,
method.args = list(start = list(a = 0.67, b = 0.16))) +
# la ecuación de la exponencial,
annotate("label", x=5, y=30, label=TeX('$y = 0.67 e^{0.16 x }$')) +
# los títulos necesarios,
ylab("y") + xlab("x") + ggtitle("Something") +
# Cambia el tema base
theme_classic(base_size = 15)
```
这仅在我单击编织-> HTML文档时发生。如果我进行编织-> PDF文档,则没有问题。我不确定这是否与knitr
或ggplot2
或latex2exp
有关。数据为here。
Ps。 Stackoverflow不允许我将数据放在这里。说这是很多代码。
非常感谢