O Cinema em Portugal está a fechar portas.

As notícias para o cinema em Portugal não são famosas. As salas fecham e distritos inteiros deixam de ter salas de cinema. Os preços são exorbitantes e as salas vazias mesmo na capital mostram que algo está profundamente mal. Por outro lado as receitas estão em alta. Algo que não se percebe. Mas talvez alguém me possa explicar isto.

require(RCurl)

## Loading required package: RCurl

## Loading required package: bitops


aTxt <- getURL("https://dl.dropbox.com/u/5460/sixhat.net/data/cinema.txt")
a <- read.table(textConnection(aTxt), header = T)

a <- na.exclude(a)
plot(a$Ano, a$Receitas, xlab = "", axes = F, ylab = "", col = "blue", pch = 20)
lines(smooth.spline(a$Ano, a$Receitas, , spar = 0.5), col = "blue")
axis(4, pretty(range(a$Receitas, na.rm = T), 10))

par(new = T)
plot(a$Ano, a$Espectadores, axes = F, xlab = "", ylab = "Espectadores", col = "red", 
    pch = 20)
lines(smooth.spline(a$Ano, a$Espectadores, spar = 0.5), col = "red")
axis(2, pretty(range(a$Espectadores), 10))

axis(1, pretty(range(a$Ano), 10))

legend("top", legend = c("Média de Espectadores por sala", "Receitas Anuais"), 
    lwd = 2, col = c("red", "blue"), box.lwd = NA)

plot of chunk cinema

Os dados que da figura são do Pordata e quem quiser pode copiar e colar o código acima no R para reproduzir o boneco. As curiosidades principais a meu ver são:

Após o 25 de Abril as salas de cinema passaram de ter 300 espectadores para menos de 100 num instante.
No final dos anos 90 as receitas dispararam. Foi tempo de vacas gordas na indústria do cinemas. No entanto o número de espectadores por sala continuou a cair até andar agora em cerca de 20 pessoas por exibição. (As 2 últimas vezes que fui ao cinema londres estavam 3 e 2 pessoas, respectivamente, já incluindo eu e ela.)

Agora alguém me explique isto como se eu fosse uma criança. O número total de espectadores não tem diminuído assim tanto. Ora vejamos.

plot(a$Ano, a$TotalEspectadores, pch = 20, col = "magenta", xlab = "", ylab = "Espectadores Totais", 
    main = "Espectadores Totais")
lines(smooth.spline(a$Ano, a$TotalEspectadores, spar = 0.5), col = "magenta")

plot of chunk unnamed-chunk-1

Como podem dede o bater no fundo dos anos 1995 e 1996 em termos de espectadores que o número de espectadores em Portugal tem sido mais ou menos constante. A crise pelo contrário parece ter mais a ver com o número crescente de salas que foram sendo criadas e que canabilizaram o mercado dos operadores de cinema. Com isto quem ficou a perder foi o espectador que agora se depara sem oferta de cinema em muitas zonas do país.

Talvez o mercado da oferta de cinema tenha que recuar para os níveis do ano 2000 e como isso muitas das megalomanas salas de cinema tenham que fechar. Há espectadores, um número mais ou menos constante que quer consumir cinema anualmente, que adoram a experiência do cinema. Não podem é ser tratados como vacas de tetas gordas que alimentam qualquer projecto imobiliario ou shopping de segunda com cinema a preços de caviar.

Claro que isto penso eu que não sei nada do assunto. Se alma mais iluminada sobre o assunto quiser discordar a caixa de comentários abaixo é sua.