Aquí veremos como hacer Gráficos de doble eje en R, por ejemplo si queremos en un mismo gráfico insertar dos series con escalas diferentes. Una representación de ese estilo podría ser insertar en un mismo gráfico los datos del PIB y las tasas de interés.

En el video veremos 2 ejemplos, uno combinando un gráfico de linea con uno de barras y otros donde habrá dos de línea.( Bajo el video tienes los archivos y código que se usan en el tutorial aquí)

#COMO CREAR GRAFICOS DE DOS EJES

# vAMOS A HACER DOS EJEMPLOS

#1. DOS EJES CON DOS GRAFICOS DE LINEA
#2. DOS EJES CON UN GRAFICO DE LINEA Y OTRO DE BARRAS

# Descargamos los datos de videos anteriores sobre PIB y también nuevos
#de poblacion

#pib per capita españa en datacommons

pib_mexico_per <- read.csv(«C:\\Users\\Victor-PC\\Desktop\\ECONOMIA_HISPANA\\pib_per_capita_mexico.csv»,header=TRUE, stringsAsFactors=FALSE)


pib_españa_per <- read.csv(«C:\\Users\\Victor-PC\\Desktop\\ECONOMIA_HISPANA\\pib_per_capita_españa.csv»,header=TRUE, stringsAsFactors=FALSE)


pib_argentina_per <- read.csv(«C:\\Users\\Victor-PC\\Desktop\\ECONOMIA_HISPANA\\pib_per_capita_argentina.csv»,header=TRUE, stringsAsFactors=FALSE)


pib_chile_per <- read.csv(«C:\\Users\\Victor-PC\\Desktop\\ECONOMIA_HISPANA\\pib_per_capita_chile.csv»,header=TRUE, stringsAsFactors=FALSE)

 


PIB_ESPAÑA <- head(pib_españa_per$PIB.per.cÃ.pita)[1]
PIB_ESPAÑA

PIB_ARGENTINA <- head(pib_argentina_per$PIB.per.cÃ.pita)[1]
PIB_ARGENTINA

PIB_CHILE <- head(pib_chile_per$PIB.per.cÃ.pita)[1]
PIB_CHILE

PIB_MEXICO <- head(pib_mexico_per$PIB.per.cÃ.pita)[1]
PIB_MEXICO

#paises <- c ( «ESPAÑA»,»CHILE»,»ARGENTINA»,»MEXICO»)

PIB_paises<- c(PIB_ESPAÑA,PIB_CHILE,PIB_ARGENTINA,PIB_MEXICO)

#rownames(PIB_paises) <- c(«ESPAÑA»,»CHILE»,»ARGENTINA»,»MEXICO»)
PIB_paises


#datos poblacion mexico

poblacion_mexico <- read.csv(«C:\\Users\\Victor-PC\\Desktop\\ECONOMIA_HISPANA\\poblacion_mexico.csv»,header=TRUE, stringsAsFactors=FALSE)

plot(poblacion_mexico,type=»l»)


#♥3 pasos

#1 Grafico 1
#2 par para unir
#3 graficos 2 quitando etiquetas con axes
#4 nuevo eje

plot(pib_mexico_per,type=»l»)

# Ejemplo numero 1 = dos graficos de linea


#»1 PIB mexico
# poblacion


plot(pib_mexico_per,type=»l» ,main = «PIB PER CÁPITA y POBLACION»,
col = «red», lwd = 2,lty = 1,ylab=»PIB PER CAPITA»)

par(new=TRUE) #enlace

plot(poblacion_mexico,type=»l»,axes=FALSE, ylab=»»,col=»blue»,lwd=2,lty=2)

axis(4)


#ejemplo numero 2

#graficos de barras del PIB 4 paises ( ultimo valor)
#evolucion pib argentina

barplot(PIB_paises, main = «PIB PER CÁPITA»,
col = rainbow(4))

par(new=TRUE)

plot(pib_argentina_per,type=»l»,axes=FALSE,col=»black»,lwd = 2,lty = 1,
xlab = «», ylab = «»)

axis(4)

mtext(«Pib Argentina», side = 4, col= «red»)

# etiquetas

barplot(PIB_paises, main = «PIB PER CÁPITA»,
col = rainbow(4),names.arg = c(«ESPAÑA»,»CHILE»,»ARGENTINA»,»MEXICO»))

par(new=TRUE)

plot(pib_argentina_per,type=»l»,axes=FALSE,col=»black»,lwd = 2,lty = 1,
xlab = «», ylab = «»)
axis(4)

mtext(«Pib Mexico», side = 4, col= «red»)

 


barplot(PIB_paises, main = «PIB PER CÁPITA»,
col = rainbow(4))
par(new=TRUE)
plot(pib_argentina_per,type=»l»,axes=FALSE,col=»black»,lwd = 2,lty = 1,
)
axis(4)

mtext(«PIB ARGENTINA», side = 4, col= «red»)

Por Victor A.Rico

Diplomado en Ciencias Empresariales y Operador del Mercado Español de Futuros y Opciones

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *