Как видите, символ равенства не отображается правильно.
Мой полный код здесь:
---
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)
```
Это происходит только в том случае, если я нажимаю на Knit -> HTML document. Если я сделаю Knit -> PDF документ, проблем не будет. Я не уверен, связано ли это с knitr или ggplot2 или latex2exp. Данные здесь .
Ps. Stackoverflow не позволил мне разместить мои данные здесь. Говорит, что кода много.
Большое спасибо