Variables:
npreg: Número de embarazos.
glu: concentración de glucosa en plasma en una prueba oral de tolerancia a la glucosa.
bp: presión arterial diastólica (mm Hg).
skin: grosor del pliegue de la piel del tríceps (mm).
bmi: índice de masa corporal (peso en kg / (altura en m) \ ^ 2).
ped: función de pedigrí de diabetes.
age: edad en años.
type: Sí o no, para diabéticos según los criterios de la OMS.
Codigo:
> b<-read.csv('G:/BigData/Pima.te.csv',header=T) > > str(b) 'data.frame': 332 obs. of 9 variables: $ X : int 1 2 3 4 5 6 7 8 9 10 ... $ npreg: int 6 1 1 3 2 5 0 1 3 9 ... $ glu : int 148 85 89 78 197 166 118 103 126 119 ... $ bp : int 72 66 66 50 70 72 84 30 88 80 ... $ skin : int 35 29 23 32 45 19 47 38 41 35 ... $ bmi : num 33.6 26.6 28.1 31 30.5 25.8 45.8 43.3 39.3 29 ... $ ped : num 0.627 0.351 0.167 0.248 0.158 0.587 0.551 0.183 0.704 0.263 ... $ age : int 50 31 21 26 53 51 31 33 27 29 ... $ type : chr "Yes" "No" "No" "Yes" ... > b<-b[,-1]# Eliminamos el numero de observacion > str(b) 'data.frame': 332 obs. of 8 variables: $ npreg: int 6 1 1 3 2 5 0 1 3 9 ... $ glu : int 148 85 89 78 197 166 118 103 126 119 ... $ bp : int 72 66 66 50 70 72 84 30 88 80 ... $ skin : int 35 29 23 32 45 19 47 38 41 35 ... $ bmi : num 33.6 26.6 28.1 31 30.5 25.8 45.8 43.3 39.3 29 ... $ ped : num 0.627 0.351 0.167 0.248 0.158 0.587 0.551 0.183 0.704 0.263 ... $ age : int 50 31 21 26 53 51 31 33 27 29 ... $ type : chr "Yes" "No" "No" "Yes" ... > b$type<-as.factor(b$type)# Combertimos en factor > str(b) 'data.frame': 332 obs. of 8 variables: $ npreg: int 6 1 1 3 2 5 0 1 3 9 ... $ glu : int 148 85 89 78 197 166 118 103 126 119 ... $ bp : int 72 66 66 50 70 72 84 30 88 80 ... $ skin : int 35 29 23 32 45 19 47 38 41 35 ... $ bmi : num 33.6 26.6 28.1 31 30.5 25.8 45.8 43.3 39.3 29 ... $ ped : num 0.627 0.351 0.167 0.248 0.158 0.587 0.551 0.183 0.704 0.263 ... $ age : int 50 31 21 26 53 51 31 33 27 29 ... $ type : Factor w/ 2 levels "No","Yes": 2 1 1 2 2 2 2 1 1 2 ... > > > pairs(x = b[,-8], col = c("firebrick", "green3")[b$type],pch = 20, + main ='variables observadas por catalogadas con diabetes') > > > barplot(table(b$type),col=2:3,main = 'Mujers catalogadas con diabetes')
Comments