Zaktualizuj 'projekt.R'

This commit is contained in:
Patryk Łukasiewicz 2023-05-06 13:32:59 +02:00
parent e8cd163012
commit 9d53daf428

View File

@ -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')