Graficos interactivos con mi dataframe

#install.packages("ggplot")
#install.packages("plotly")
#install.packages("readxl")
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(dslabs)
library(plotly)

## 
## Adjuntando el paquete: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(readxl)
data_diabetes <- read_excel("diabetes.xlsx")

Información sobre los atributos del conjunto de datos

Embarazos: Para expresar el número de embarazos

Glucosa: Para expresar el nivel de glucosa en sangre Presión arterial: Para expresar la medición de la presión arterial SkinThickness: Para expresar el grosor de la piel Insulina: Para expresar el nivel de insulina en la sangre IMC: Para expresar el índice de masa corporal DiabetesPedigríFunción: Para expresar el porcentaje de Diabetes Edad: Para expresar la edad Resultado: Para expresar el resultado final, 1 es Sí y 0 es No

Relación edad vs presión arterial

AgevsBP <- ggplot (data = data_diabetes, aes(x = Age, y= BloodPressure)) +
geom_point(color = "black", size = 3)
labs(title = "Relacion edad vs presion arterial",
     x = "Edad",
     y = "Presión arterial")

## $x
## [1] "Edad"
## 
## $y
## [1] "Presión arterial"
## 
## $title
## [1] "Relacion edad vs presion arterial"
## 
## attr(,"class")
## [1] "labels"

AgevsBP_interactive <- ggplotly(AgevsBP)
AgevsBP_interactive

# No hay una relaciòn marcada entre estas dos variables

Embarazos vs Presión Arterial

PregnanciesvsBloodPressure <- ggplot (data = data_diabetes, aes(x = Pregnancies, y= BloodPressure)) +
geom_point(color = "blue", size = 3)
labs(title = "Relación Embarazos vs Presión Arterial (mmHg)",  
       x = "Número de embarazos",                      
       y = "Presión Arterial")

## $x
## [1] "Número de embarazos"
## 
## $y
## [1] "Presión Arterial"
## 
## $title
## [1] "Relación Embarazos vs Presión Arterial (mmHg)"
## 
## attr(,"class")
## [1] "labels"

PregnanciesvsBloodPressure_interactive <- ggplotly(PregnanciesvsBloodPressure)
PregnanciesvsBloodPressure_interactive

Relación índice de masa corporar vs insulina vs Resultado

BMI_insulin_Result <- ggplot(data = data_diabetes, aes(x =BMI, y= Insulin)) +
geom_point(aes(color=factor(Outcome)), size= 2) + 
labs(title = "Relación índice de masa corporal vs insulina vs resultado de prueba",  
       x = "Indice de masa corporal",                      
       y = "Nivel de insulina en sangre",
       color = "Resultado de prueba")

BMI_insulin_Result_interactive <- ggplotly(BMI_insulin_Result)
BMI_insulin_Result_interactive

Relación nivel de glucosa en la sangre vs insulina vs Resultado

Glu_ins_Res <- ggplot (data = data_diabetes, aes(x =Glucose, y= Insulin)) +
geom_point(aes(color= as.factor(Outcome)), size= 2)
labs(title = "Glucosa vs insulina vs resultado de prueba",  
       x = "Nivel de Glucosa",                      
       y = "Nivel de insulina en sangre",
     color = "Resultado de prueba")

## $x
## [1] "Nivel de Glucosa"
## 
## $y
## [1] "Nivel de insulina en sangre"
## 
## $colour
## [1] "Resultado de prueba"
## 
## $title
## [1] "Glucosa vs insulina vs resultado de prueba"
## 
## attr(,"class")
## [1] "labels"

Glu_ins_Res_interactive <- ggplotly(Glu_ins_Res)
Glu_ins_Res_interactive

Glucosa vs Presión Arterial

Glu_bp_Res <- ggplot (data = data_diabetes, aes(x =Glucose, y= BloodPressure)) +
geom_point(aes(color= as.factor(Outcome)), size= 2)
labs(title = "Relación Glucosa vs Presión Arterial",  
       x = "Nivel de Glucosa",                      
       y = "Presión Arterial",
       color = "Resultado de prueba")

## $x
## [1] "Nivel de Glucosa"
## 
## $y
## [1] "Presión Arterial"
## 
## $colour
## [1] "Resultado de prueba"
## 
## $title
## [1] "Relación Glucosa vs Presión Arterial"
## 
## attr(,"class")
## [1] "labels"

Glu_bp_Res_iteractive <- ggplotly(Glu_bp_Res)
Glu_bp_Res_iteractive

Boxplot_Insuline <- ggplot(data_diabetes, aes(x = as.factor(Outcome), y = insulin)) + 
geom_boxplot() + 
labs(title = "Diagrama de Caja Interactivo", x = "Clase de vehículo", y = "Millas por galón en carretera")
facet_wrap(~ as.factor(Outcome))

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>