s434686/wizualizacja-danych
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Zaktualizuj 'projekt.R'

Browse Source
This commit is contained in:
Patryk Łukasiewicz 2023-05-06 13:32:59 +02:00
parent e8cd163012
commit 9d53daf428
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
projekt.R
View File

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