Am dat peste o diagramă cu produsul intern brut real pe termen lung pe cap de locuitor pentru Australia (1900 până în aproximativ 2020) care avea câteva greșeli în scara și etichetarea axei y. Am vrut să văd singur cum ar trebui să arate de fapt.
Căutarea datelor pentru aceasta mi-a atras atenția asupra excelentului proiect Maddison, care publică estimări pe termen lung ale PIB-ului real pe cap de locuitor, la prețurile din 2011, pentru multe țări. Cu siguranță nu este perfect (comparațiile de prețuri pe o perioadă atât de lungă de timp – și ele merg cu mult înainte de 1900 – este o afacere supărată!), dar pare un efort mare. Este necesar să avem așa ceva de la istoricii economici pentru că cele mai multe serii de statistici oficiale standard pentru Australia datează doar din 1959, din cauza complicațiilor comparațiilor de-a lungul timpului.
Cea mai recentă lansare a proiectului Maddison este 2023.
Iată recrearea mea a diagramei originale (care nu este afișată aici), dar cu etichete corecte pentru axa y:
O caracteristică distinctivă a acestui grafic este că compară traiectoria actuală de creștere cu o rată constantă de creștere din 1900 până în prezent. E o comparație drăguță. Are grijă să desenezi — cu siguranță nu este același lucru cu o linie de cea mai bună potrivire. Pe o scară logaritmică, în care creșterea constantă este o linie dreaptă, oferă un bun punct de referință pentru perioadele mai rapide și mai lente de creștere.
Iată codul meu care desenează diagrama. Lucrarea este de fapt realizată de o funcție specifică proiectului draw_chart()care desenează un grafic destul de decent pentru orice țară dată disponibilă în baza de date. Acest lucru îmi permite să produc cu ușurință diagrame similare pentru alte țări (rezultate afișate după codul R).
# download latest version of Maddison data from:
# https://www.rug.nl/ggdc/historicaldevelopment/maddison/releases/maddison-project-database-2023
library(tidyverse)
library(readxl)
library(scales)
library(glue)
library(countrycode)
gdppc <- read_excel("mpd2023_web.xlsx", sheet = "GDPpc", skip = 2)
#' Draw time series chart from 1900 to 2023 for a single country
#'
#' @param ccode 3 digit ISO country code
#' @param points whether to add points for each observation(default is to just draw line)
draw_chart <- function(ccode, points = FALSE){
# country name for this country code
cname <- countrycode(ccode, origin = "iso3c", destination = "country.name.en")
# Data for just this country"
data_tc <- gdppc |>
select(year, all_of(ccode)) |>
filter(year >= 1900)
names(data_tc)(2) <- "value"
constant_growth <- data_tc |>
arrange(year) |>
drop_na() |>
summarise(n = max(year) - min(year),
start = value(1),
end = value(n()),
start_year = min(year),
# for drawing labels, not actually a 'mid' point:
mid_point = (end + start) / 4) |>
mutate(growth_rate = (end / start) ^ (1 / n) - 1)
# colours for constant growth and for data:
cgcol <- "red"
dcol <- "blue"
# define plot
p1 <- data_tc |>
ggplot(aes(x = year, y = value)) +
# Draw constant growth line:
annotate("segment",
x = constant_growth$start_year,
xend = max(data_tc$year),
y = constant_growth$start, yend = constant_growth$end,
colour = cgcol, linetype = 2) +
# draw data line:
geom_line(colour = dcol) +
annotate("text", x = 1900, y = constant_growth$mid_point,
label = glue("Constant growth of {percent(constant_growth$growth_rate, accuracy = 0.1)}"),
colour = cgcol, hjust = 0) +
annotate("text", x = 2010, y = constant_growth$mid_point,
label = "Actual GDP per capita",
colour = dcol, hjust = 1) +
scale_y_log10(label = dollar_format(accuracy = 1),
breaks = c(0, 0.25, 0.5, 1:6) * 10000) +
labs(x = "",
y= "",
title = glue("Long term historical growth in GDP per person in {cname}"),
subtitle = "GDP per capita, purchasing power parity, 2011 prices.",
caption = "Source: Maddison Project Database 2023")
# for some countries with broken series we might want to draw points, not just
# lines:
if(points){
p1 <- p1 + geom_point(colour = dcol)
}
frs::svg_png(p1, glue("..https://freerangestats.info/img/0326-{cname}"), w = 9, h = 5)
}
draw_chart("AUS")
draw_chart("NZL")
draw_chart("USA")
draw_chart("DNK")
draw_chart("CHN", points = TRUE)
draw_chart("IND")
draw_chart("GBR")
draw_chart("IDN")
draw_chart("JPN")
Iată câteva dintre acele alte rezultate, împreună cu unele observații sclipitoare și nu chiar gândite de la mine. Câteva lucruri interesante aici, deoarece vedem impactul vizibil al evenimentelor istorice: Covid, al doilea război mondial și independența națională în mai multe țări; precum și catastrofe naționale precum Marele Salt înainte al Chinei.
Noua Zeelandă și SUA au o creștere ușor mai lentă decât Australia în această perioadă, dar o traiectorie generală similară. SUA au un New Deal deosebit de puternic și al Doilea Război Mondial stimulează creșterea:
Danemarca are un impact mai mic din Marea Depresiune din anii 1930, dar a experimentat războiul ca o distrugere economică (mai degrabă decât o creștere a PIB-ului, așa cum a fost cazul SUA). În general, a cunoscut o creștere economică destul de rapidă și constantă:
Regatul Unit a avut o perioadă prost de recuperare din Primul Război Mondial, dar în cele din urmă a atins o creștere economică mai rapidă (deși întreruptă periodic) până la începutul anilor 2000:
Creșterea economică a Chinei a început cu adevărat cu noile sale politici economice în anii 1970:
Creșterea economică semnificativă a Indiei a început la scurt timp după independența din 1947, dar s-a accelerat abia din anii 1980 și apoi mai mult din anii 2000 încolo:
Calea de creștere postbelică a Indoneziei reflectă istoria sa politică agitată, dar este în esență o poveste de succes. Pe lângă întreruperea estimărilor semnificative în timpul războiului și deconolonizării și tranziția tulbure de la Sukarno la Suharto în anii 1960, criza economică din Asia de Est de la sfârșitul anilor 1990 iese cu adevărat în evidență:
Japonia a avut un al Doilea Război Mondial deosebit de catastrofal, și-a revenit bine până la sfârșitul secolului al XX-lea și, în ultimele decenii, s-a scufundat într-o cunoscută stagnare relativă:
Estimările proiectului Maddison sunt prezentate și discutate în Bolt și Van Zanden (2024), „Estimări în stil Maddison ale evoluției economiei mondiale: O nouă actualizare pentru 2023”, Journal of Economic Surveys, 1–41.
