Code
library(eurostat)
library(ggplot2)
library(dplyr)
Chorwacja proklamowała swoją niepodległość w 1991 roku w wyniku rozpadu Jugosławii. Było to spowodowane licznymi napięciami społecznymi wywołanymi dużą różnorodnością etniczną mieszkańców państwa. W wyniku tychże napięć nastąpiła wojna która znacznie zniszczyła infrastrukturę, a co za tym idzie także obniżyła PKB terenów dzisiejszej Chorwacji. Państwo to więc musiało się odbudować. Polska będzie jednym z krajów do których zostanie porównana gospodarka Chorwacji ze względu na zmianę ustrojową i swoisty “reset” gospodarki. Reszta krajów porównawczych została wybrana, w celu dostarczenia większej liczby informacji porównawczych.
Według definicji Eurostatu, PKB (produkt krajowy brutto) to wskaźnik sytuacji gospodarczej danego kraju. Odzwierciedla on całkowitą wartość wszystkich dóbr i usług wyprodukowanych, pomniejszoną o wartość dóbr i usług zużytych do ich produkcji.
Celem niniejszej analizy jest uzyskanie informacji na temat kondycji gospodarki Chorwacji na przestrzenii dziesięciu lat w okresie 2011 - 2021. Gospodarka Chorwacji zostanie porównana z następującymi krajami europejskimi: Polska, Portugalia, Niemcy.
W analizie zostały wykorzystane dane udostępniane przez Eurostat czyli urząd statystyczny Unii Europejskiej. Wszystkie dane wykorzystane w analizie zostały pozyskane z jednego źródła w celu wykonania rzetelnych porównań. Jedno źródło umożliwia pracę na danych które były zbierane oraz klasyfikowane w jednolity sposób, co pozwala uzyskać porównania z możliwym najmniejszym błędem wynikającym z różnych definicji zbieranych danych.
Analiza statystyczna została przeprowadzona, korzystając z środowiska R. Podczas wizualizacji danych pozyskanych z pakietu eurostat
, wykorzystane zostały funkcje zawarte w pakietach podstawowych oraz dodatkowo wykorzystano pakiety ggplot2
oraz dplyr
.
eurostat
- dostarcza danych do analizy.
ggplot2
- umożliwia wizualizację wyników.
dplyr
- umożliwia manipulację ramkami danych.
library(eurostat)
library(ggplot2)
library(dplyr)
#SELEKCJA I OBRÓBKA DANYCH
#Pobieranie wybranych danych z Eurostatu dla Chorwacji w latach 2011-2021
<- get_eurostat("tec00001", time_format = "num", type = "code", filters = list(time = c(2011:2021), geo = "HR")) %>%
gdp_eur_hr filter(unit == "CP_MEUR") %>% #Selekcja wybranego wskaźnika (GDP w Euro Chorwacji)
select(geo, time, values) #Usunięcie nieużywanych kolumn
#Pobieranie wybranych danych z Eurostatu według dla Chorwacji, Niemiec, Polski oraz Portugali w latach 2011-2021
<- get_eurostat("tec00001", time_format = "num", type = "code", filters = list(time = c(2011:2021), geo = c("HR","DE", "PL","PT"))) %>%
gdp_eur filter(unit == "CP_MEUR") %>% #Selekcja wybranego wskaźnika (GDP w Euro dla wsztstkich krajów)
select(geo, time, values) #Usunięcie nieużywanych kolumn
#Pobieranie wybranych danych z Eurostatu według wybranych parametrów oraz selekcja potrzebnych danych
<- get_eurostat("tec00115", time_format = "num", type = "code", filters = list(time = c(2011:2021), geo = c("HR","DE", "PL","PT"))) %>%
gdp_eur_gro filter(unit == "CLV_PCH_PRE") %>%
select(geo, time, values)
#Zmiana nazwy kolumny "geo" na pusty tekst w celu usunięcia legendy
colnames(gdp_eur_hr)[1] <- ""
#Zmiana nazwy kolumny "geo" na "Państwa"
colnames(gdp_eur)[1] <- "Państwa"
#Zmiana nazwy kolumny "geo" na "Państwa"
colnames(gdp_eur_gro)[1] <- "Państwa"
Gospodarka Chorwacji jest rozwijającą się gospodarką rynkową. Jej rozwój został zaburzony w latach 90 XX wieku przez wojnę w Chorwacji w latach 1991 - 1995. Po rozpadzie Jugosławii, oraz zakończeniu wojny gospodarka stopniowo się odbudowywała.
#UTWORZENIE WYKRESU
ggplot(data = gdp_eur_hr, aes(x = time,
y = values)) +
geom_line(linewidth = 1, color = "#7CAE00") +
scale_x_continuous(breaks = seq(2011, 2021, by = 2),limits = c(2011, 2021)) +
scale_y_continuous(breaks = seq(0, 80000, by = 20000),limits = c(0, 80000)) +
labs(
title = "PKB Chorwacji w latach 2011-2021",
x = "",
y = "Wartość w mln. €",
+
)
theme(
rect = element_rect(fill = "#ffffff"),
panel.background = element_rect(fill = "#ffffff"),
panel.grid = element_line(colour = "#d9d9d9"),
plot.title = element_text(colour = "#707070", size = 17, hjust = 0.5),
axis.text = element_text(colour = "#707070"),
axis.title.y = element_text(colour = "#707070", size = 13, hjust = 0.5)
)
W porównaniu do reszty krajów PKB Chorwacji jest najniższe i w 2021 roku wyniosło 58.5 miliardów euro. Tego samego roku PKB Niemiec wyniosło 3617 mld. euro co czyni je ponad 60-krotnie większą gospodarką.
#UTWORZENIE WYKRESU
ggplot(data = gdp_eur, aes(x = time,
y = values,
color = Państwa)) +
geom_line(linewidth = 1) +
scale_x_continuous(breaks = seq(2011, 2021, by = 2),limits = c(2011, 2021)) +
scale_y_continuous(breaks = seq(0, 4000000, by = 1000000),limits = c(0, 4000000)) +
labs(
title = "Porównanie wielkości PKB Chorwacji, Niemczech, Polski oraz Portugali w latach 2011-2021",
x = "",
y = "Wartość w mln. €",
+
)
theme(
rect = element_rect(fill = "#ffffff"),
panel.background = element_rect(fill = "#ffffff"),
panel.grid = element_line(colour = "#d9d9d9"),
plot.title = element_text(colour = "#707070", size = 12, hjust = 0.5),
axis.text = element_text(colour = "#707070"),
axis.title.y = element_text(colour = "#707070", size = 13, hjust = 0.5)
)
W latach 2011-2014 w Chorwacji obserwowano spadek wielkości PKB, ponadto przyspieszając tempo spadku w 2012. W Polsce i Niemczech w tym samym okresie również odnotowano spadek tempa wzrostu PKB, jednakże PKB w tychże krajach ciągle wzrastało.
PKB kraju wzrastało od roku 2015 do 2019, gdzie w 2016 Chorwacja zanotowała najwyższy wzrost spośród reszty krajów na poziomie 3.6%. Przez resztę okresu procent wzrostu utrzymywał się jako drugi (2015, 2019) lub trzeci (2017, 2018) najwyższy.
W 2020r. gospodarki każdego analizowanego kraju odnotowały ujemny wzrost Spośród porównywanych krajów procentowy spadek PKB w Chorwacji (-8.6%) był najwyższy, ponadto bardzo podobny spadek zaobserwowano w Portugali (-8.3%). Spadek był wyraźnie mniej dotkliwy w Polsce (-2.0%) i w Niemczech (-3.8%). Tak znaczący spadek można również przypisać do wspólnego czynnika, którym w Chorwacji i Portugali prawdopodobnie jest duży udział sektora turystycznego w gospodarce.
#UTWORZENIE WYKRESU
ggplot(data = gdp_eur_gro, aes(x = time,
y = values,
color = Państwa)) +
geom_line(aes(y = 0, x = time),linewidth = 0.1, color = "black") +
geom_line(linewidth = 1) +
scale_x_continuous(breaks = seq(2011, 2021, by = 2),limits = c(2011, 2021)) +
scale_y_continuous(breaks = seq(-10, 15, by = 2),limits = c(-10, 15)) +
labs(
title = "Porównanie % wzrostu PKB w Chorwacji, Niemczech, Polsce oraz Portugali w latach 2011-2021",
x = "",
y = "Wartość w %",
+
)
theme(
rect = element_rect(fill = "#ffffff"),
panel.background = element_rect(fill = "#ffffff"),
panel.grid = element_line(colour = "#d9d9d9"),
plot.title = element_text(colour = "#707070", size = 11, hjust = 0.5),
axis.text = element_text(colour = "#707070"),
axis.title.y = element_text(colour = "#707070", size = 13, hjust = 0.5)
)
#SELEKCJA I OBRÓBKA DANYCH
#Pobieranie wybranych danych z Eurostatu według wybranych parametrów oraz selekcja potrzebnych danych
<- get_eurostat("tec00001", time_format = "num", type = "code", filters = list(time = c(2011:2021), geo = c("HR","DE", "PL","PT"))) %>%
gdp_eur_pc filter(unit == "CP_EUR_HAB") %>% #Selekcja wybranego wskaźnika (GDP w Euro na jednego mieszkańca)
select(geo, time, values) #Usunięcie nieużywanych kolumn
#Zmiana nazwy kolumny "geo" na "Państwa"
colnames(gdp_eur_pc)[1] <- "Państwa"
Uwzględnienie w analizie jedynie wielkości produktu krajowego może być mylące z powodu różnych wielkości populacji krajów. W celu uniknięcia tego problemu możemy wykorzystać PKB podzielone przez populację kraju, pokaże nam to średnia wartość PKB którą wytwarza mieszkaniec danego kraju. Pomimo iż wskaźnik nie dokładnie odzwierciedla sytuacji ekonomicznej obywateli można przyjąć zasadę, im wyższy tym lepsza jest ich sytuacja finansowa i wyższe standardy życia.
PKB na osobę w Chorwacji w ciągu całego okresu wartość utrzywała się na znacząco niższym poziomie niż w Niemczech i mniej mniej znacząco niż w Portugalii. Natomiast nie odbiegała ona znacznie od tej wyliczonej dla Polski, gdzie wartości dla każdego roku są do siebie bardzo zbliżone. Jedynym rokiem dla którego możemy zauważyć większą różnicę jest rok 2020 gdzie wskaźnik ten w Polsce pozostał prawie na tym samym poziomie, natomiast w Chorwacji zauważalnie spadł.
W roku 2021 w Chorwacji PKB na obywatela wyniosło 14470€ , w Niemczech - 43480€ , w Polsce - 15100€, a w Portugalii - 20990€ . W 2011r. wartość wyniosła 10660€ w porównaniu do której procentowy wzrost wartości z 2021r wyniósł 35.7%.
#UTWORZENIE WYKRESU
ggplot(data = gdp_eur_pc, aes(x = time,
y = values,
color = Państwa)) +
geom_line(linewidth = 1) +
scale_x_continuous(breaks = seq(2011, 2021, by = 2),limits = c(2011, 2021)) +
scale_y_continuous(breaks = seq(0, 600000, by = 10000),limits = c(0, 60000)) +
labs(
title = "Porównanie wielkości PKB na osobę w Chorwacji, Niemczech, Polsce oraz Portugali w latach 2011-2021",
x = "",
y = "Wartość w €",
+
)
theme(
rect = element_rect(fill = "#ffffff"),
panel.background = element_rect(fill = "#ffffff"),
panel.grid = element_line(colour = "#d9d9d9"),
plot.title = element_text(colour = "#707070", size = 10, hjust = 0.5),
axis.text = element_text(colour = "#707070"),
axis.title.y = element_text(colour = "#707070", size = 13, hjust = 0.5)
)
W analizie zostały przedstawione dwa najbardziej podstawowe wskaźniki określające sytuację ekonomiczną i gospodarkę krajów. Pomimo ich płytkości można wyciągnąć wnioski na temat charakterystyki gospodarki Chorwacji.
Jest względnie mała w porównaniu do reszty krajów z powodu małej populacji, jeśli Chorwacja miałaby taką samą populację co Polska i PKB na osobę pozostał takie samo, to ich produkt krajowy brutto wyniósł by bardzo podobne wielkości.
Jest ona bardziej podatna na kryzysy niż gospodarki Niemiec i Polski. Na wykresach wyraźnie widoczne są efekty kryzysów z roku 2008 oraz 2020.