Crescimento do PIB no Governo Lula

Os simpatizantes do PSDB dizem que Lula se limitou a manter a política econômica de FHC e que os bons resultados que Lula obteve na economia são devidos à sorte de governar em período de aumento do preço das commodities.

Considerando a semelhança entre a economia brasileira e a dos demais países da América Latina, se Lula tiver sido apenas um presidente de sorte, o crescimento da economia brasileira no período do seu governo não deveria ser maior do que o dos demais países latinoamericanos. Para verificar se foi isso o que ocorreu, utilizei dados do FMI (World Economic Outlook, de abril de 2018) para produzir um gráfico com série temporal comparando o crescimento do PIB per Capita do Brasil com o do restante da América Latina:

O que eu vejo no gráfico é:

1. O crescimento do PIB no segundo mandato de FHC foi menor do que o da América Latina. Pior do que isso, todo o ganho obtido no governo Itamar e início do primeiro mandato foi perdido a partir do final do primeiro mandato.
2. O PIB per capita brasileiro cresceu mais do que a média do PIB per capita dos demais países latinoamericanos no governo Lula.

Como argumentar que FHC arrumou tão bem a economia do país se o Brasil cresceu menos do que a América Latina no seu segundo mandato?

Como argumentar que Lula apenas deu continuidade à política econômica de FHC se somente Lula obteve continuamente crescimento econômico acima da média da América Latina durante os 8 anos do seu mandato?

Economistas podem até apresentar outros dados e argumentos que corroborem a hipótese de que Lula manteve a política de FHC, mas o que vejo no gráfico é que, seja lá por qual motivo for, a economia brasileira cresceu significativamente mais no governo Lula do que no governo FHC, mesmo considerando o contexto latinoamericano.

Detalhes técnicos da produção do gráfico:

A variável do PIB que usei foi a NGDPDPC, PIB per capita em preços atuais: O PIB é expresso em dólares norte-americanos atuais e dividido pelo total da população.

A lista de países que considerei América Latina (excluindo o Brasil) está no script R abaixo:

# Link para os dados: https://www.imf.org/external/pubs/ft/weo/2018/01/weodata/download.aspx

w <- read.delim("WEOApr2018all.xls", fileEncoding = "latin1",
                stringsAsFactors = FALSE)

p <- c("Argentina", "Bolivia", "Chile", "Colombia", "Costa Rica",
        "Dominican Republic", "Ecuador", "El Salvador", "Guatemala", "Guyana",
        "Haiti", "Honduras", "Jamaica", "Mexico", "Nicaragua", "Panama",
        "Paraguay", "Peru", "Puerto Rico", "Uruguay", "Venezuela")

gdp <- "PPPPC"
gdp <- "NGDPDPC"

m <- w[w$Country %in% p & w$WEO.Subject.Code == gdp, c(4, 11:47)]
rn <- m$Country
m$Country <- NULL

Num <- function(x)
{
    x <- gsub(",", "", x)
    x <- as.numeric(x)
    x
}
m <- as.matrix(as.data.frame(lapply(m, Num)))
rownames(m) <- rn
colnames(m) <- sub("X", "", colnames(m))
al <- apply(m, 2, mean, na.rm = TRUE)

br <- w[w$Country == "Brazil" & w$WEO.Subject.Code == gdp, 11:47]
br <- Num(br)

png("PIB_BR_AL.png", width = 800, height = 600)
par(mar = c(4, 4, 2, 0)+0.1, cex = 1.8)
plot(NULL, xlim = c(1981, 2017), ylim = c(0, max(c(al, br))),
     main = "PIB per capita", xlab = "Ano", ylab = "PIB per capita")

rect(1995, 0, 2003, max(c(al, br)), col = "#FFFFEE", border = NA)
rect(2003, 0, 2011, max(c(al, br)), col = "#EEF8FF", border = NA)
rect(2011, 0, 2016, max(c(al, br)), col = "#FFFFEE", border = NA)

lines(1981:2017, al, lwd = 2, col = "red")
lines(1981:2017, br, lwd = 2, col = "darkgreen")

text(1999, 1000, "FHC")
text(2007, 1000, "Lula")
text(2013.5, 1000, "Dilma")

legend("topleft", lty = 1, col = c("darkgreen", "red"),
       bty = "n", legend = c("Brasil", "América Latina"))
dev.off()