<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Deisy,</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">COnsegui... ficou assim...</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">x %<>%<br> mutate(Visita_num = as.numeric(as.factor(Visita)))<br>y <- x %>%<br> ggplot() +<br> aes(x = Visita_num,<br> y = Titulos,<br> group = id)+<br> geom_line(colour = "lightgreen",<br> show.legend = FALSE) +<br> geom_smooth(aes(group = 1),<br> method = lm,<br> colour = "red",<br> na.rm = TRUE) +<br> facet_grid(rows = vars(Inicial),<br> cols = vars(Reforço))+<br> theme_light() +<br> labs(y = "Titulos de anticorpos",<br> x = "Visitas de seguimento")<br>y + scale_y_continuous(sec.axis = dup_axis(<br> name = "Reforço",<br> labels = NULL,<br> breaks = NULL)) +<br> scale_x_continuous(breaks = seq(1,max(y$data$Visita_num,1)),<br> labels = paste0("Visita ",unique(y$data$Visita_num)),<br> sec.axis = dup_axis(<br> name = "Esquema Inicial",<br> labels = NULL,<br> breaks = NULL))<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em qui., 3 de fev. de 2022 às 14:41, Pedro Emmanuel Alvarenga Americano do Brasil <<a href="mailto:emmanuel.brasil@gmail.com">emmanuel.brasil@gmail.com</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Ei Deisy, </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Quase isso. Bem perto. A questão agora com o que voce mandou e com o que eu tentei é que os ticks e os valores do eixo nao estão na posição original. </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">y <- x %>%<br> ggplot() +<br> aes(x = Visita,<br> y = Titulos,<br> group = id)+<br> geom_line(colour = "lightgreen",<br> show.legend = FALSE) +<br> geom_smooth(aes(group = 1),<br> method = lm,<br> colour = "red",<br> na.rm = TRUE) +<br> facet_grid(rows = vars(Inicial),<br> cols = vars(Reforço))+<br> theme_light() +<br> labs(y = "Titulos de anticorpos",<br> x = "Visitas de seguimento")<br><br>y + scale_y_discrete(, position = "right") +<br> scale_x_discrete("Esquema inicial", position = "top")<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"># Talvez se conseguisse duplicar o eixo aqui, funcionaria mas não estou sabendo como. </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div><div dir="ltr"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em qui., 3 de fev. de 2022 às 13:00, Deisy Gysi por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)"></div><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)">Nao tenho certeza se entendi exatamente o que vc quer fazer... </div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)">Mas para colocar os titulos nas margens vc pode criar novos eixos (x e y). </div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)">att, </div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)">d</div><div class="gmail_default" style="color:rgb(7,55,99)"><font face="monospace"><br></font></div><div class="gmail_default" style="color:rgb(7,55,99)"><font face="monospace">require(ggplot2)<br>require(magrittr)<br>require(dplyr)<br><br>x <- rbind(<br> data.frame(id = 1:20,<br> Visita = "Visita 1",<br> Inicial = "Vacina 1",<br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 20, 5)),<br> data.frame(id = 1:20,<br> Visita = "Visita 2",<br> Inicial = "Vacina 1",<br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 30, 5)),<br> #<br> data.frame(id = 21:40,<br> Visita = "Visita 1",<br> Inicial = "Vacina 2",<br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 40, 5)),<br> data.frame(id = 21:40,<br> Visita = "Visita 2",<br> Inicial = "Vacina 2",<br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 50, 5)),<br> #<br> data.frame(id = 41:60,<br> Visita = "Visita 1",<br> Inicial = "Vacina 1",<br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 15, 5)),<br> data.frame(id = 41:60,<br> Visita = "Visita 2",<br> Inicial = "Vacina 1",<br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 30, 5)),<br> #<br> data.frame(id = 61:80,<br> Visita = "Visita 1",<br> Inicial = "Vacina 2",<br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 15, 5)),<br> data.frame(id = 61:80,<br> Visita = "Visita 2",<br> Inicial = "Vacina 2",<br> Reforço = "Vacina 2",<br> Titulos = rnorm(60, 30, 5)))<br>head(x)<br># Fazendo o grafico...<br>x %<>%<br> mutate(Visita_cat = as.numeric(as.factor(Visita))) <br>x %>% <br> ggplot() +<br> aes(x = Visita_cat,<br> y = Titulos,<br> group = id)+<br> geom_line(colour = "lightgreen",<br> show.legend = FALSE) +<br> geom_smooth(aes(group = 1),<br> method = lm,<br> colour = "red",<br> na.rm = TRUE) +<br> facet_grid(rows = vars(Inicial),<br> cols = vars(Reforço))+<br> scale_y_continuous(sec.axis = dup_axis(name = "Reforço")) +<br> scale_x_continuous(sec.axis = dup_axis(name = "Esquema inicial")) +<br> theme_light() +<br> theme(axis.title.x.top = element_text())+<br> labs(y = "Titulos de anticorpos", <br> x = "Visitas de seguimento") <br><br><br>plot(as.numeric(x$Visita_cat), x$Titulos, type = "l")<br>mtext("Esquema inicial", side = 3)<br>mtext("Reforço", side = 4)<br></font></div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(7,55,99)"><br></div><div><div dir="ltr"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div><div><div><font color="#999999" face="arial, sans-serif"><br>Deisy Morselli Gysi, PhD</font></div><div><br></div><div><font color="#999999" face="arial, sans-serif">Associate Research Scientist</font></div><div><span style="color:rgb(153,153,153);font-family:arial,sans-serif">Center for Complex Networks Research - <a href="https://www.barabasilab.com/" target="_blank">BarabasiLab</a></span><br></div><div><font color="#999999" face="arial, sans-serif">Northeastern University, Boston, Massachusetts<br></font></div><div><font face="arial, sans-serif"><span style="color:rgb(11,83,148)"></span><span style="color:rgb(153,153,153)">Pronouns</span><font color="#999999">: She/Her/Hers</font><br></font></div></div><div><div><div><font color="#999999" face="arial, sans-serif" size="1"><a href="mailto:deisy.ccnr@gmail.com" target="_blank">deisy.ccnr@gmail.com<br></a></font></div><div><font face="arial, sans-serif" size="1"><a href="https://deisygysi.github.io/" target="_blank">https://deisygysi.github.io/</a></font></div></div><div><font color="#999999" face="arial, sans-serif"><br></font></div><div><font color="#999999" face="arial, sans-serif">The flower that blooms in adversity is the most rare and beautiful of all. Mulan (Disney)</font></div></div><div><br></div><div><div style="margin:0px;padding:0px 0px 20px;width:928px"><div style="margin:8px 0px 0px;padding:0px"><div dir="auto"><div dir="auto"><div dir="auto"><span style="color:rgb(166,77,121)">Email Etiquette: Just because I e-mail at odd hours does not mean I expect you to.</span></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div></div><br></div><br><img width="0" height="0" alt="" style="display: flex;" src="https://mailtrack.io/trace/mail/7116fc48018fc878fe6ac72fb427911eee46bbed.png?u=1117388"><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, 3 Feb 2022 at 08:04, Pedro Emmanuel Alvarenga Americano do Brasil por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Amigos de R,<br clear="all"></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Saudações a todos. Gostaria de colocar um texto nas margens superior e direita do gráfico de tal forma que eu consiga diferenciar duas variáveis que têm as mesmas categorias. No graphics seria equivalente a função mtext(). Por exemplo... </div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">plot(bla bla bla)</div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">mtext("Esquema inicial", side = 3)</div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">mtext("Reforço", side = 4)<br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Mas no ggplot não estou sabendo fazer. Alguma luz?<br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"># Simulando os dados</div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">x <- rbind(<br>data.frame(id = 1:20, <br> Visita = "Visita 1", <br> Inicial = "Vacina 1", <br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 20, 5)),<br>data.frame(id = 1:20, <br> Visita = "Visita 2", <br> Inicial = "Vacina 1", <br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 30, 5)),<br>#<br>data.frame(id = 21:40, <br> Visita = "Visita 1", <br> Inicial = "Vacina 2", <br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 40, 5)),<br>data.frame(id = 21:40, <br> Visita = "Visita 2", <br> Inicial = "Vacina 2", <br> Reforço = "Vacina 1",<br> Titulos = rnorm(20, 50, 5)),<br>#<br>data.frame(id = 41:60, <br> Visita = "Visita 1", <br> Inicial = "Vacina 1", <br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 15, 5)),<br>data.frame(id = 41:60, <br> Visita = "Visita 2", <br> Inicial = "Vacina 1", <br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 30, 5)),<br>#<br>data.frame(id = 61:80, <br> Visita = "Visita 1", <br> Inicial = "Vacina 2", <br> Reforço = "Vacina 2",<br> Titulos = rnorm(20, 15, 5)),<br>data.frame(id = 61:80, <br> Visita = "Visita 2", <br> Inicial = "Vacina 2", <br> Reforço = "Vacina 2",<br> Titulos = rnorm(60, 30, 5)))<br>head(x)</div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"># Fazendo o grafico...<br>ggplot(x,<br> aes(x = Visita,<br> y = Titulos,<br> group = id)) +<br> geom_line(colour = "lightgreen",<br> show.legend = FALSE) +<br> geom_smooth(aes(group = 1),<br> method = lm,<br> colour = "red",<br> na.rm = TRUE) +<br> facet_grid(rows = vars(Inicial),<br> cols = vars(Reforço))+<br> theme_light() +<br> ylab("Titulos de anticorpos") +<br> xlab("Visitas de seguimento")<br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Abraços fraternos,</div><div style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div><div dir="ltr"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>
</blockquote></div>