Zaktualizuj 'projekt.R'
This commit is contained in:
parent
e8cd163012
commit
9d53daf428
12
projekt.R
12
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')
|
||||
|
Loading…
Reference in New Issue
Block a user