M=c(1,4,3,3,2) names(M)=c("M","S","I","X","H") barplot(M,names.arg=c("M","S","I","X","H"),
col=c("red","blue","white","orange","pink"), main="Preferencias")
T=c(2.05, 2.06, 2.1, 2.2, 2.22, 2.23, 2.38, 2.41, 2.6, 2.76, 2.76, 2.85, 2.9, 2.91, 2.92, 3, 3.02, 3.05, 3.14, 3.21, 3.3, 3.42, 3.44, 3.44, 3.46, 3.47, 3.51, 3.53, 3.61, 3.63, 3.74, 3.75, 3.77, 3.8, 3.91, 4.01, 4.02, 4.02, 4.04, 4.13, 4.13, 4.18, 4.2, 4.2, 4.32, 4.33, 4.35, 4.36, 4.39, 4.49, 4.56, 4.64, 4.66, 4.81, 4.82, 4.88, 4.93, 4.99) hist(T,col=c("blue", "red", "black","pink","white","green"),main="Tiempo redes sociales JAIR")

jaja te voy a doxear ahora c

lol