facet_grid(rows=vars(velocidades))
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows=vars(, ))
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows=vars( , ))
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows=vars( 1, ))
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows=vars( 0, ))
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows=vars( ,0 ))
View(velocidades)
View(velocidades)
library (ggplot2)
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows = vars(airportcode))
library (ggplot2)
ggplot(velocidades, aes (airportcode)) + geom_point()+
facet_grid(rows = vars(airportcode))
library (ggplot2)
ggplot(velocidades, aes (airportcode,verizon)) + geom_point()+
facet_grid(rows = vars(airportcode))
library (ggplot2)
ggplot(velocidades, aes (verizon)) + geom_point()+
facet_grid(rows)
library (ggplot2)
ggplot(velocidades, aes (verizon)) + geom_point()+
facet_grid(rows= (verizon))
library (ggplot2)
ggplot(velocidades, aes (verizon, sprint)) + geom_point()+
facet_grid(rows= (verizon))
View(velocidades)
View(velocidades)
View(velocidades)
View(velocidades)
library (ggplot2)
ggplot(velocidades, aes (AIRPORTCODE)) + geom_point()+
facet_grid(rows= (AIRPORTCODE))
library (ggplot2)
ggplot(velocidades, aes (AIRPORTCODE)) + geom_point()+
facet_grid()
library (ggplot2)
ggplot(velocidades, aes (AIRPORTCODE,VERIZON)) + geom_point()+
facet_grid()
library (ggplot2)
ggplot(velocidades, aes (VERIZON)) + geom_point()+
facet_grid()
library (ggplot2)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid()
library (ggplot2)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid(AIRPORTCODE)
View(velocidades)
summary(velocidades)
library (ggplot2)
summary(velocidades)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid("AIRPORT CODE")
library (ggplot2)
summary(velocidades)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid('AIRPORT CODE')
library (ggplot2)
summary(velocidades)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid(`AIRPORT CODE`)
library (ggplot2)
summary(velocidades)
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid(`AIRPORT CODE`)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid(airport)
View(velocidades)
View(velocidades)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (SPRINT, VERIZON)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (airport)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (airport, verizon)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (airport, VERIZON)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (velocidades)) + geom_point()+
facet_grid(rows = vars())
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes (verizon, airport)) + geom_point()+
facet_grid(rows = vars(airport))
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes(VERIZON,SPRINT))) + geom_xount()+
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes(VERIZON,SPRINT)) + geom_count()+
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes(VERIZON,SPRINT)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
View(velocidades)
View(velocidades)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,AT&T)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
facet_grid(verizon, sprint)
facet_grid(verizon,airport)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
facet_grid(verizon,airport)
verizon + facet_wrap(~airport, ncol = 1)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
verizon + facet_grid(~airport, ncol = 1)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
verizon + facet_grid(airport~, ncol = 1)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
verizon + facet_grid(airport~., ncol = 1)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
verizon + facet_grid(airport~.)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
facet_grid(airport~.)
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
p<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
p+facet_grid(airport~.)
p<-ggplot(velocidades, aes(airport~.)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
par(mfrow = c(1, 4))
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
library (ggplot2)
summary(velocidades)
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
par(mfrow = c(4, 1))
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
print (verizon,sprint,att,tmobile)
par(mfrow = c(4, 1))
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile)
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile)
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1, main="Velocidad de transferencia de datos (megabits por segundo)")
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
tmobile
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
names(velocidades)[names(velocidades) == "T-MOBILE"] <- "TMOBILE"
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
sprint
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
att
tmobile<-ggplot(velocidades, aes(airport,T-MOBILE)) + geom_count()
tmobile
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
names(velocidades)[names(velocidades) == "T-MOBILE"] <- "TMOBILE"
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
sprint
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
att
tmobile<-ggplot(velocidades, aes(airport,TMOBILE)) + geom_count()
tmobile
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1, main="Velocidad de transferencia de datos (megabits por segundo)")
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1)
grid.arrange(verizon,sprint,att,tmobile, ncol=1, top="Velocidad de transferencia de datos (megabits por segundo)")
grid.arrange(verizon,sprint,att,tmobile, ncol=1, top="Velocidad de transferencia de datos (megabits por segundo)")
barplot(colSums(velocidades))
plot(colSums(velocidades))
summary(velocidades)
data.frame(velocidades)
velocidades<-data.frame(velocidades)
View(velocidades)
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
names(velocidades)[names(velocidades) == "T-MOBILE"] <- "TMOBILE"
# Convierte a data frame
velocidades<-data.frame(velocidades)
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
sprint
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
att
tmobile<-ggplot(velocidades, aes(airport,TMOBILE)) + geom_count()
tmobile
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1, top="Velocidad de transferencia de datos (megabits por segundo)")
plot(colSums(velocidades))
rownames(velocidades)<-velocidades$airport
plot(colSums(velocidades))
plotweb(velocidades)
plot(velocidades)
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
names(velocidades)[names(velocidades) == "T-MOBILE"] <- "TMOBILE"
# Convierte a data frame
velocidades<-data.frame(velocidades)
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
sprint
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
att
tmobile<-ggplot(velocidades, aes(airport,TMOBILE)) + geom_count()
tmobile
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1, top="Velocidad de transferencia de datos (megabits por segundo)")
# Carga librería
library (ggplot2)
# Conoce tus datos
summary(velocidades)
# Renombra
names(velocidades)[names(velocidades) == "AIRPORT CODE"] <- "airport"
names(velocidades)[names(velocidades) == "AT&T"] <- "ATT"
names(velocidades)[names(velocidades) == "T-MOBILE"] <- "TMOBILE"
# Convierte a data frame
#velocidades<-data.frame(velocidades)
# Convierte la variable airport en nombre de fila
rownames(velocidades)<-velocidades$airport
# Grafica
verizon<-ggplot(velocidades, aes(airport,VERIZON)) + geom_count()
verizon
sprint<-ggplot(velocidades, aes(airport,SPRINT)) + geom_count()
sprint
att<-ggplot(velocidades, aes(airport,ATT)) + geom_count()
att
tmobile<-ggplot(velocidades, aes(airport,TMOBILE)) + geom_count()
tmobile
library (gridExtra)
par(mfrow = c(4, 1))
grid.arrange(verizon,sprint,att,tmobile, ncol=1, top="Velocidad de transferencia de datos (megabits por segundo)")
verizon<-ggplot(velocidades, aes(.~VERIZON)) + geom_count()
verizon
verizon<-ggplot(velocidades, aes(VERIZON~.)) + geom_count()
verizon
# Grafica
verizon<-ggplot(data=velocidades, aes(y=VERIZON)) +
geom_plot()
verizon<-ggplot(data=velocidades, aes(y=VERIZON)) +
geom_point()
verizon
require(zoo)
set.seed(200)
df <- zoo(velocidades)
plot(df)
# Grafica
ggplot(velocidades,aes(verizon))+ geom_dotplot()
# Grafica
stripchart(velocidades,method="stack")
stripchart(velocidades,method="stack")
summary(velocidades)
# Grafica
barplot(velocidades,xlim=c(0.700,77.8))
stripchart(velocidades,xlim=c(0.700,77.8), method="stack")
stripchart(velocidades,method="stack",
ylab=("Compañias telefónicas"))
stripchart(velocidades,xlim=c(0.700,77.8), method="stack", ylab=("Compañias telefónicas"))
stripchart(velocidades,xlim=c(0.700,77.8), method="stack", ylab=("Compañias telefónicas"))
velocidades<-subset(velocidades,select=-"airport")
velocidades<-subset(velocidades,select=-("airport"))
velocidades<-subset(velocidades,select=-airport)
stripchart(velocidades,xlim=c(0.700,77.8), method="stack", ylab=("Compañias telefónicas"))
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"))
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=16)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=8)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=1)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=2)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=3)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=4)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=5)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=6)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=7)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=8)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=9)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=10)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=11)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=12)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=13)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=14)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=15)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=17)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=18)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=19)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=20)
stripchart(velocidades,xlim=c(0.700,77.8), method="jitter", ylab=("Compañias telefónicas"), pch=1)
stripchart(velocidades,xlim=c(0.700,77.8), method="stack", ylab=("Compañias telefónicas"), pch=1)
mean(velocidades)
mean(rowMeans(velocidades))
sapply(velocidades,sd)
mean(colMeans(velocidades))
mean(velocidades$VERIZON)
library(ggcorrplot)
install.packages("ggcorrplot")
library(ggcorrplot)
corr_selected <- bienestar %>%
select(gini, gasto_educ, dualismo_sectorial, inversion_extranjera, pib,
diversidad_etnica, tipo_regimen, gasto_salud, gasto_segsocial,
bal_legislativo, poblacion) %>%
# calcular la matriz de correlación y redondear a un decimal
cor(use = "pairwise") %>%
round(1)
desiguales <- read_csv("desiguales.Rdata")
skimr::skim(bienestar)
desiguales <- read_csv("desiguales.Rdata")
skimr::skim(desiguales)
View(desiguales)
desiguales <- read_csv("desiguales.csv")
skimr::skim(desiguales)
install.packages("ggcorrplot")
library(ggcorrplot)
corr_selected <- desiguales %>%
select(sexo,zona,macrozona,region,edad,p1_anyo,p1_mes,p2,p3) %>%
# calcular la matriz de correlación y redondear a un decimal
cor(use = "pairwise") %>%
round(1)
install.packages("ggcorrplot")
install.packages("ggcorrplot")
library(ggplot2)
library(ggcorrplot)
corr_selected <- desiguales %>%
select(sexo,zona,macrozona,region,edad,p1_anyo,p1_mes,p2,p3) %>%
# calcular la matriz de correlación y redondear a un decimal
cor(use = "pairwise") %>%
round(1)
library(magrittr)
corr_selected <- desiguales %>%
select(sexo,zona,macrozona,region,edad,p1_anyo,p1_mes,p2,p3) %>%
# calcular la matriz de correlación y redondear a un decimal
cor(use = "pairwise") %>%
round(1)
library(tidyverse)
corr_selected <- desiguales %>%
select(sexo,zona,macrozona,region,edad,p1_anyo,p1_mes,p2,p3) %>%
# calcular la matriz de correlación y redondear a un decimal
cor(use = "pairwise") %>%
round(1)
ggcorrplot(corr_selected, type = "lower", lab = T, show.legend = F)
