From 9d53daf4286e7a140e3d93417a34c3d690bd4dae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Patryk=20=C5=81ukasiewicz?= <patluk6@st.amu.edu.pl>
Date: Sat, 6 May 2023 13:32:59 +0200
Subject: [PATCH] Zaktualizuj 'projekt.R'

---
 projekt.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/projekt.R b/projekt.R
index ec31725..647c173 100644
--- a/projekt.R
+++ b/projekt.R
@@ -158,7 +158,7 @@ server <- function(input, output, session) {
       slice_max(n=7, order_by = co2_per_gdp) %>%
       ggplot(aes(x=country, y=co2_per_gdp, fill=country)) +
       xlab('Country') +
-      ylab('CO2 per GDP') +
+      ylab('CO2 per GDP [kilograms per dollar]') +
       ggtitle('the biggest CO2 production per GDP') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')
@@ -169,7 +169,7 @@ server <- function(input, output, session) {
       slice_max(n=7, order_by = co2_per_capita) %>%
       ggplot(aes(x=country, y=co2_per_capita, fill=country), custom) +
       xlab('Country') +
-      ylab('CO2 per capita') +
+      ylab('CO2 per capita [tonnes per person]') +
       ggtitle('the biggest CO2 production per capita') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')
@@ -180,7 +180,7 @@ server <- function(input, output, session) {
       slice_max(n=7, order_by = co2) %>%
       ggplot(aes(x=country, y=co2, fill=country)) +
       xlab('Country') +
-      ylab('CO2 overall') +
+      ylab('CO2 overall [million tonnes]') +
       ggtitle('the biggest CO2 production overall') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')
@@ -191,7 +191,7 @@ server <- function(input, output, session) {
       slice_min(n=7, order_by = co2_per_gdp) %>%
       ggplot(aes(x=country, y=co2_per_gdp, fill=country)) +
       xlab('Country') +
-      ylab('CO2 per GDP') +
+      ylab('CO2 per GDP [kilograms per dollar]') +
       ggtitle('the smallest CO2 production per GDP') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')
@@ -202,7 +202,7 @@ server <- function(input, output, session) {
       slice_min(n=7, order_by = co2_per_capita) %>%
       ggplot(aes(x=country, y=co2_per_capita, fill=country)) +
       xlab('Country') +
-      ylab('CO2 per capita') +
+      ylab('CO2 per capita [tonnes per person]') +
       ggtitle('the smallest CO2 production per capita') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')
@@ -213,7 +213,7 @@ server <- function(input, output, session) {
       slice_min(n=7, order_by = co2) %>%
       ggplot(aes(x=country, y=co2, fill=country)) +
       xlab('Country') +
-      ylab('CO2 overall') +
+      ylab('CO2 overall [million tonnes]') +
       ggtitle('the smallest CO2 production overall') +
       theme(axis.text.x = element_blank()) +
       geom_bar(stat='identity')