Dear, how to set up the equation of the straight line and the R ^ 2, remove the
bars of the chart area and the caption to the right?
Follow the attached file containing the data. We used the R version 3.4.4.
library(plotly)
library(ggplot2)
setwd("C:\\Users\\Fabiano\\Desktop\\Artigo OE")
dados <- read.table('IVCM.txt', header =T)
lm_labels <- function(dados) {
mod <- lm(IVCM ~ Doses, data=dados)
formula <- sprintf("italic(y) == %.2f %+.2f * italic(x)",
round(coef(mod)[1], 2), round(coef(mod)[2], 2))
r <- cor(dados$Doses, dados$IVCM)
r2 <- sprintf("italic(R^2) == %.2f", r^2)
data.frame(formula=formula, r2=r2, stringsAsFactors=FALSE)
}
library(plyr) # For the ddply() function
labels <- ddply(dados, "Fungicidas", lm_labels)
labels
f_labels <- data.frame(Fungicidas = c("?gua",
"Frowncide", "Cravo", "Canela",
"Capim-Lim?o", "Tomilho"), label = c("H2O",
"F500SC", "cv", "Can", "CL",
"Tom"))
p <- ggplot(dados, aes(x=Doses, y=IVCM, add = "reg.line", conf.int
= TRUE, parse = TRUE)) +
geom_point(size = .5) +
facet_wrap(~ Fungicidas) +
stat_smooth(aes(colour = Fungicidas), add = "loess", method =
"lm", formula = y ~ x) +
geom_text(x=0.6, y=9.5, size = 3, aes(label=formula), data=labels, parse=TRUE,
hjust=0) +
geom_text(x=0.6, y=9, size = 3, aes(label=r2), data=labels, parse=TRUE,
hjust=0) +
theme_bw()
(p=ggplotly(p))
Best regards,
Fabiano Fran?a da Silva
Doutorando em Fitotecnia - ESALQ/USP
MSc Fitotecnia - UFLA
Eng?. Agr?nomo - UFLA
(35) 9 9155-5443 TIM
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: IVCM.txt
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20180923/f8e28835/attachment-0002.txt>