Gráfico de Barras para la Media del Consumo de Agua
library(ggplot2)
library(dplyr)
library(tidyr)
habitos <- Obesidad %>%
group_by(NObeyesdad) %>%
summarise(FAF_media = mean(FAF, na.rm = TRUE),
CH2O_media = mean(CH2O, na.rm = TRUE))
habitos_largo <- habitos %>%
pivot_longer(cols = c(FAF_media, CH2O_media),
names_to = "Hábito",
values_to = "Media_Valor") %>%
mutate(Hábito = recode(Hábito,
FAF_media = "Frecuencia de Actividad Física",
CH2O_media = "Consumo de Agua"))
ggplot(habitos_largo, aes(x = NObeyesdad, y = Media_Valor, fill = Hábito)) +
geom_bar(stat = "identity", position = "dodge") +
labs(title = "Relación entre Nivel de Obesidad, Frecuencia
de Actividad Física y Consumo de Agua",
x = "Nivel de Obesidad",
y = "Media del Valor",
fill = "Hábito") +
scale_fill_manual(values = c("Frecuencia de Actividad Física" = "#FBB4AE",
"Consumo de Agua" = "#B3CDE3")) + # Colores pastel
theme_minimal() +
theme(axis.text.x = element_text(angle = 15, hjust = 1))
consumo_agua_media <- Obesidad %>%
group_by(NObeyesdad) %>%
summarise(CH2O_media = mean(CH2O, na.rm = TRUE))
ggplot(consumo_agua_media, aes(x = NObeyesdad,
y = CH2O_media,
fill = NObeyesdad)) +
geom_bar(stat = "identity") +
labs(title = "Media del Consumo de Agua por Nivel de Obesidad",
x = "Nivel de Obesidad",
y = "Consumo Medio de Agua (litros)") +
scale_fill_manual(values = c("#FBB4AE", "#B3CDE3", "#CCEBC5",
"#DECBE4", "#FED9A6", "#FFFFCC",
"#E5D8BD")) +
theme_minimal() +
theme(axis.text.x = element_text(angle = 15, hjust = 1))