Boa tarde!
Estou tentando fazer um gráfico de linha em que possa mudar a ordem do fator, mas não consigo mudar simultaneamente com os valores observados.
Segue código abaixo>
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))
#tabela ← aggregate(bdm3$valor, by = list(bdm3$id),
FUN = mean, na.rm = TRUE)
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)
#media$olhos ← factor(media$olhos,
levels = olhos)
media%>%
group_by(olhos) %>%
ggplot(aes(x = olhos, y = media, group = grupo,
colour = grupo)) +
geom_point() +
geom_line() +
labs(x=“Frequências”, y=“Média”) +
scale_colour_discrete(name=“Grupos”, labels = c(“Jovens”, “Média Idade”,
“Idosos”))+
#labels=c(“Jovens”, “Média Idade”, “Idosos”))+
theme_classic()#+
facet_wrap(~grupo)