Probando gráficos
ggplot(dfLong, aes(MVPA_B10_daily_mean)) + geom_density(aes(fill=factor(Tiempo)), alpha=0.5) +
labs(title="Density plot",
subtitle=traducir("MVPA_B10_daily_mean"),
caption="Distribución en el tiempo",
x="Bouts de 10 minutos",
fill="Tiempo")+theme_classic()

ggplot(dfLong, aes(TiempoFactor,MVPA_B10_daily_mean)) +
geom_boxplot(varwidth=T, fill="plum") +
labs(title="Density plot",
subtitle=traducir("MVPA_B10_daily_mean"),
caption="Distribución en el tiempo",
x="Bouts de 10 minutos",
fill="Tiempo")+theme_classic()

ggplot(dfDif, aes(TiempoFactor,MVPA_B10_daily_mean)) +
geom_boxplot(varwidth=T, fill="plum") +
geom_dotplot(binaxis='y',
stackdir='center',
dotsize = .02,
fill="red")+
labs(title="Density plot",
subtitle=traducir("MVPA_B10_daily_mean"),
caption="Distribución en el tiempo",
x="Bouts de 10 minutos",
fill="Tiempo")+theme_classic()

ggplot(dfLong, aes(x = MVPA_B10_daily_mean, y = TiempoFactor,color=GrupoInt,fill=GrupoInt)) +
geom_density_ridges(aes(point_color=GrupoInt),alpha=0.25,scale=1.05, jittered_points=T, point_size=0.8,point_alpha=0.5)+
coord_cartesian(xlim=c(0,75))+theme_classic()

ggplot(dfLong, aes(x = sleep_bedtime_mean, y = TiempoFactor,color=GrupoInt,fill=GrupoInt)) +
geom_density_ridges(aes(point_color=GrupoInt),alpha=0.25,scale=1.1, jittered_points=T, point_size=0.8,point_alpha=0.5)+theme_classic()
