Boa tarde pessoal, como estão?
Bem, estou com um bando de dados para fazer um gráfico linha em que vou separa por grupo (fator), freq (fator) e valor (resposta). Para o fator freq (f1:12), preciso fazer um gráfico de f1 a f6 e outro f7 a f8, em que para 0s f1 a f6 devem aparecer um bola vermelha para cada ponto e de f1 a f12 aparecer um X azul para cada ponto. Porém não consigo separar fi’s, i = 1, 2,… 12.
setwd(“D:/Consultoria/ANA_KAROL”)
library(readxl)
bdm1 ← read_excel(“bdm6.xltx”)
#View(bdm1)
#Convertendo grupo para fator
bdm1$id ← as.factor(bdm1$id)
bdm1$grupo ← as.factor(bdm1$grupo)
bdm1$sexo ← as.factor(bdm1$sexo)
library(tidyverse)
bdm1 ← bdm1 %>% na.omit()#retira os NA’s
#round(bdm1$45_ L1
, digits = 2)# duas casas decimais
RENOMEANDO COLUNAS
#names(bdm1)
bdm1 ← rename(bdm1, f1 = f1_250_OD, f2 = f2_500_OD,
f3 = f3_1000_OD, f4 = f4_2000_OD, f5 = f5_4000_OD,
f6 = f6_8000_OD, f7 = f7_250_OE, f8 = f8_500_OE,
f9 = f9_1000_OE, f10 = f10_2000_OE,
f11 = f11_4000_OE, f12 = f12_8000_OE)
PIVOTEANDO
bdm3 ← bdm1 %>%
#select(id, grupo, f1:f12) %>%
pivot_longer(
cols = starts_with(“f”),
names_to = “olhos”,
#names_prefix = “f”,
values_to = “freq”,
values_drop_na = TRUE
)
media ← bdm3 %>%
group_by(grupo, olhos) %>%
summarise_at(vars(freq),
list(media = mean))
media$olhos ← as.factor(media$olhos)
media$grupo ← as.factor(media$grupo)
#media$id ← as.factor(media$id)
#glimpse(media)
Ordenando coluna olhos
levels(media$olhos)
#> [1] “f1” “f10” “f11” “f12” “f2” “f3” “f4” “f5” “f6” “f7” “f8” “f9”
GRÁFICO
media %>%
arrange(grupo) %>%
mutate(
olhos = lvls_revalue(olhos, c(“f1”, “f10”, “f11”,“f12”,
“f2”, “f3”, “f4”, “f5”,
“f6”, “f7”, “f8”, “f9”)),
olhos = lvls_reorder(olhos, c(1, 5, 6, 7, 8, 9, 10, 11, 12,
2, 3, 4))
) %>%
ggplot(aes(x = olhos, y = media, group = grupo,
colour = grupo)) +
#geom_errorbar(aes(ymin=Peso-se, ymax=Peso+se), width=.1) +
geom_line() +
geom_point() +
labs(x=“Tratamentos”, y=“Peso (kg)”) +
theme_bw() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
Created on 2022-05-10 by the reprex package (v2.0.1)
exemplo:
grupo ← c(3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5)
olhos ← c(“f1”, “f5”, “f2”, “f4”, “f3”," f1", “f5”, “f2”, “f4”,
“f3”, “f1”, “f5”, “f2”, “f4”, “f3”)
media ← c(5, 10, 15, 20, 10, 10, 5, 5, 20, 5, 30, 25, 40, 35, 40)
teste ← data.frame(grupo, olhos, media)
grupo e olhos são fatores