I have a scatter chart with trend lines and tooltip(using ggplotly). I want to show the equations for these trend lines. When it is static(using only ggplot2), the equations are ok as shown below.
################below are code using ggplot2###########################
library(ggplot2)
library(ggpubr)
formula <- y ~ poly(x,2, raw = TRUE)
p= ggplot(data=dataset )+
geom_point(aes(x=load_percent, y=ME_SFOC,color=christianname),size=4,shape=1,stroke = 1)+
stat_smooth(method = "lm", formula = formula, aes(x=load_percent, y=ME_SFOC,fill=christianname,group = c(christianname),color=christianname), se = FALSE )+
stat_regline_equation(
aes(x=load_percent, y=ME_SFOC,group = c(christianname),color=christianname),
formula = formula,size=6
)+
theme(text = element_text(size=20),
panel.background = element_rect(fill = "white", colour = "white",
size = 2, linetype = "solid"),
axis.line=element_line(size = 1, linetype = 'solid',
colour = "black"),
panel.grid.major.x = element_blank()
) +
xlab("Load%") +ylab("ME FSOC") #+ggtitle("Load%/FSOC")
p
################above are code using ggplot2###########################
But they cannot be shown correctly with ggplotly(). Based on my code above, changing the last line 'p' to 'ggplotly(p)', the chart then changed to this:
How can I show the equation correctly?