data(USArrests)
  row.names(USArrests)
  colnames(USArrests)
  USArrests$Murder
  USArrests$Murder[1]
  
  boxplot(USArrests)
  
  pairs(USArrests)
  colores<-rep("red",50)
  colores[10]<-"blue"
  pairs(USArrests,col=colores,pch=16)
  
  
  library(lattice) 
  xyplot(Murder ~ Assault | Rape<15, data = USArrests)
 
f<-function(x){return(sum(x<quantile(USArrests$Rape)))}
xyplot(Murder ~ Assault |sapply(USArrests$Rape,f),data = USArrests)

plot(USArrests$Assault,USArrests$Murder,type="n")
text(USArrests$Assault,USArrests$Murder)

plot(USArrests$Assault,USArrests$Murder,type="n")
text(USArrests$Assault,USArrests$Murder,labels=row.names(USArrests))

p<-princomp(USArrests)
loadings(p)
summary(p)
p<-princomp(USArrests)
biplot(p)


p<-princomp(USArrests,cor=T)
biplot(p)

colores<-rep("red",50)
colores[c(24,33,40)]<-"blue"
colores[5]<-"black"
pairs(USArrests,col=colores,pch=16)