Los gráficos parecen indicar que durante el periodo 2010-2020 no se mantiene la relación postulada por Phillips, aunque … y …
Intro
Estamos en el tercer día del curso de Introducción a Quarto y estamos practicando cómo hacer un tutorial. Como algunos de los asistentes al curso es posible que no sepan mucho R, vamos a replicar y ampliar este ejemplo.
Marco teórico
Nos da un poco igual pero el gráfico de @ThomIvar hace referencia a la curva de Phillips que según la Wikipedia es:
La curva de Phillips, en macroeconomía, representa una curva empírica de pendiente negativa que relaciona la tasa de inflación y la tasa de desempleo. – Articulo de la Wiki aquí
Abajo tienes el gráfico que ilustra la Curva de Phillips en la Wikipedia:
Curva de Phillips en la Wikipedia
Por mucho que me empeñe yo, \(y_{t}=A_{1}y_{t-1}+A_{2}y_{t-2}+v_{t}\) no es la ecuación de la Curva de Phillips. Tampoco esta:
Necesitamos datos de inflación y de tasa de desempleo. Vamos a usar los mimos datos que en el ejemplo original pero actualizados a 2023-06-21. Los datos provienen de la OCDE.
Antes de iniciar el análisis cargamos los paquetes de R que usaremos, solo que no vas a ver el chunk en el output final porque hemos puesto #| include: false.
Hacemos el plot de @ThomIvar. Primero el plot básico:
Code
my_country <-c("G-7") #- seleccionamos "país"my_periodos <-c("2000-2009", "2010-2019") #- seleccionamos periodosdf_1p <- df %>% dplyr::filter(place == my_country) %>% dplyr::filter(group %in% my_periodos)# -- make plot for 1 countryp0 <-ggplot(df_1p, aes(x = rate, y = cpi, group = group, color = group)) +geom_point(alpha =0.5, size =2.25)p0
Y ahora el super-gráfico:
Code
my_title <- glue::glue("What happened to the <b>Phillips Curve</b> in ", my_country , "? (thanks to <b style='color:#fd5532'>@ThomIvar</b>)")p1 <- p0 +geom_smooth(method ='lm', se =FALSE, linetype =2) +scale_color_manual(values =c('#d1495b', '#00798c')) +annotate('text', x =5.5, y =3.75, label ='2000-2009', color ='#d1495b',family ='American Typewriter', fontface ='bold') +annotate('text', x =4.5, y =0.75, label ='2010-2019', color ='#00798c',family ='American Typewriter', fontface ='bold') +labs(title = my_title,subtitle ="The Phillips curve is an economic concept that states that inflation and unemployment have an inverse relationship. However, in the <b style='color:#00798c'> last decade</b> this relationship appears to have vanished.",caption ='@ThomIvar • source: OECD (monthly, G7 countries)',x ='Unemployment rate, %',y ='Inflation rate, %') +theme_void() +theme(text =element_text('American Typewriter', color ='grey30'),legend.position ='none',plot.title =element_textbox_simple(size =20, margin =margin(b =0.15, unit ='cm')),plot.subtitle =element_textbox_simple(size =11, color ='grey60',margin =margin(b =0.25, unit ='cm')),plot.background =element_rect(fill ='#fffef7', color ='#fffef7'),plot.caption =element_text(size =10, color ='grey80'),plot.margin =margin(1, 1, 1, 1, 'cm'),panel.grid =element_line(color ='grey70', linetype ='dotted'),axis.title =element_text(margin =margin(t =0.2, r =0.2, unit ='cm'), color ='grey50'),axis.title.y =element_text(angle =90),axis.text =element_text(color ='grey70', size =9,margin =margin(t =0.1, r =0.1, unit ='cm')),axis.line =element_line(color ='grey50'),axis.ticks =element_line(color ='grey50', size =0.6),axis.ticks.length =unit(0.10, 'cm'))p1
Más resultados
Por hacer algo nuevo vamos a hacer un faceted-graph:
Code
#- SEGUNDA parte (del script) --------------------------------------------------#- hacemos el gráfico para varios países ---------------------------------------my_paises <-c("ESP", "FRA", "GBR", "DEU", "USA", "JPN")my_periodos <-c("2000-2009", "2010-2019") df_paises <- df %>% dplyr::filter(place %in% my_paises) %>% dplyr::filter(group %in% my_periodos)#- plot feo para luego hacer un facettingp0 <-ggplot(df_paises, aes(x = rate, y = cpi, color = group)) +geom_point(alpha =0.5, size =0.75) +geom_smooth(method ='lm', se =FALSE, linetype =1) +scale_color_manual(values =c( '#d1495b', '#00798c', '#099205','#8e0592'))#p0#p0 + facet_wrap(vars(place))p1 <- p0 +facet_wrap(vars(place), scales ="free") +labs(title ="What happened to the <b>Phillips Curve</b>? ",subtitle ="The Phillips curve is an economic concept that states that inflation and unemployment have a inverse relationship. However, we could find some exceptions for <b style='color:#d1495b'> 2000-2009</b> decade, and for the <b style='color:#00798c'> last decade (2010-2019) </b>.",caption ="@pjpv4444 (thanks to @ThomIvar) • source: OECD (monthly, G7 countries)",x ='Unemployment rate, %',y ='Inflation rate, %') +theme_void() +theme(text =element_text('American Typewriter', color ='grey30'),legend.position ='none',plot.title =element_textbox_simple(size =20, margin =margin(b =0.15, unit ='cm')),plot.subtitle =element_textbox_simple(size =11, color ='grey60',margin =margin(b =0.25, unit ='cm')),plot.background =element_rect(fill ='#fffef7', color ='#fffef7'),plot.caption =element_text(size =10, color ='grey80'),plot.margin =margin(1, 1, 1, 1, 'cm'),panel.grid =element_line(color ='grey70', linetype ='dotted'),axis.title =element_text(margin =margin(t =0.2, r =0.2, unit ='cm'), color ='grey50'),axis.title.y =element_text(angle =90),axis.text =element_text(color ='grey70', size =9,margin =margin(t =0.1, r =0.1, unit ='cm')),axis.line =element_line(color ='grey50'),axis.ticks =element_line(color ='grey50', size =0.6),axis.ticks.length =unit(0.10, 'cm'))
Tablas
Nos falta hacer una tabla, así que, por ejemplo, hacemos tabla de la inflación en el último mes que tengamos datos.