Description Format Source Examples
Registro de 35 tempos de rea<c3><a7><c3><a3>o qu<c3><ad>mica em 7 temperaturas diferentes.
Um data.frame
com 2 colunas e 35 linhas, em que
temp
Temperatura em graus Celsius
tempo
Tempo de rea<c3><a7><c3><a3>o, em segundos
CHARNET et al. (2008), Cap<c3><ad>tulo 1, exerc<c3><ad>cio 18, p<c3><a1>g. 25; e Cap<c3><ad>tulo 3, exerc<c3><ad>cio 2, p<c3><a1>g. 65.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | data(CharnetEx1.18)
str(CharnetEx1.18)
# detach("package:lattice")
library(ggplot2)
with(CharnetEx1.18, {
mu <- aggregate(tempo, list(temp), mean)
des <- aggregate(tempo, list(temp), sd)
(da <<- data.frame(x = mu$G, mu = mu$x, sd = des$x))
})
ggplot(CharnetEx1.18, aes(x = temp, y = tempo)) +
geom_point() +
geom_point(
aes(x = x - 1, y = mu), data = da,
col = 4, shape = 15, size = 2.5) +
geom_segment(
aes(x = x - 1, y = mu - sd, xend = x - 1, yend = mu + sd),
arrow = grid::arrow(angle = 90,
length = grid::unit(0.05, "inches"),
ends = "both"),
data = da, col = 4) +
geom_smooth(method = "lm", se = FALSE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.