apuntes R

aseo<-c(2660,1110,1912,1573,765,1611,615,640,1859,2599)

eti<-c("Kasi","Hermes","Monika","Yani","Francoise")


aseo2<-matrix(aseo,ncol=5,byrow=TRUE)

png("barrasmasterbw.png")

barplot(aseo2,names=eti,main="Aseo Social",xlab="En negro el aseo que realiza, en gris el aseo que recibe")
dev.off()