Skip to content
Snippets Groups Projects
Commit 539abc78 authored by Ben Anderson's avatar Ben Anderson
Browse files

shiny app to explore personal 

carbon footprints
parent ca18ccc7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
carbonator/app.R 0 → 100644
+ 298
− 0
View file @ 539abc78
#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
dSource <- "https://lowcarbonbuildings.wordpress.com/2020/02/29/the-carbon-footprint-of-production-and-how-much-it-matters-part-1"
beisSource <- "https://www.gov.uk/government/publications/greenhouse-gas-reporting-conversion-factors-2019"
library(shiny)
library(ggplot2)
library(data.table)
# load factors
factor_dt <- data.table::fread("data/2019.csv")
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("The Carbonator"),
# Sidebar with a slider input for number of bins
sidebarLayout(position = "right",
sidebarPanel(
h3("Your carbon"),
# Output: Bar chart
plotOutput(outputId = "distPlot")
),
# Show a plot of the generated distribution
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Heat and hot water",
fluidRow(
column(3,helpText("Electricity (",
factor_dt[Contributor == "Electricity", unit],")"
)
),
column(2,numericInput("elec",
value = factor_dt[Contributor == "Electricity", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor == "Electricity", mFactor], " Kg CO2e/kWh (BEIS 2018)")
)
),
fluidRow(
column(3,helpText("Gas (", factor_dt[Contributor == "Gas", unit],")"
)
),
column(2,numericInput("gas",
value = factor_dt[Contributor == "Gas", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor == "Gas", mFactor], " Kg CO2e/kWh")
)
),
fluidRow(
column(3,helpText("Oil (", factor_dt[Contributor == "Oil", unit], ")"
)
),
column(2,numericInput("oil",
value = factor_dt[Contributor == "Oil", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor == "Oil", mFactor], " Kg CO2e/l")
)
),
fluidRow(
column(3,helpText("Coal (", factor_dt[Contributor == "Coal", unit], ")"
)
),
column(2,numericInput("coal",
value = factor_dt[Contributor == "Coal", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor == "Coal", mFactor], " Kg CO2e/t")
)
),
fluidRow(
column(3,helpText("Wood (", factor_dt[Contributor == "Wood", unit], ")"
)
),
column(2,numericInput("wood",
value = factor_dt[Contributor == "Wood", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor == "Wood", mFactor], " Kg CO2e/t")
)
)
),
tabPanel("Car use",
fluidRow(
column(3,helpText("Car petrol < 1.4l (", factor_dt[Contributor %like% "< 1.4", unit], ")"
)
),
column(2,numericInput("car14l",
value = factor_dt[Contributor %like% "< 1.4", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "< 1.4", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Car petrol > 1.4l (", factor_dt[Contributor %like% "> 1.4", unit], ")"
)
),
column(2,numericInput("car14m",
value = factor_dt[Contributor %like% "> 1.4", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "> 1.4", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Car diesel < 1.7l (", factor_dt[Contributor %like% "< 1.7", unit], ")"
)
),
column(2,numericInput("diesel17l",
value = factor_dt[Contributor %like% "< 1.7", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "< 1.7", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Car diesel > 1.7l (", factor_dt[Contributor %like% "> 1.7", unit], ")"
)
),
column(2,numericInput("diesel17m",
value = factor_dt[Contributor %like% "> 1.7", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "> 1.7", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Car elec (small) (", factor_dt[Contributor %like% "small", unit], ")"
)
),
column(2,numericInput("elecSmall",
value = factor_dt[Contributor %like% "small", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "small", mFactor], " Kg CO2e/mile (BEIS 2018)")
)
),
fluidRow(
column(3,helpText("Car elec (medium) (", factor_dt[Contributor %like% "medium", unit], ")"
)
),
column(2,numericInput("elecMedium",
value = factor_dt[Contributor %like% "medium", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "medium", mFactor], " Kg CO2e/mile (BEIS 2018)")
)
),
fluidRow(
column(3,helpText("Car elec (large) (", factor_dt[Contributor %like% "large", unit], ")"
)
),
column(2,numericInput("elecLarge",
value = factor_dt[Contributor %like% "large", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "large", mFactor], " Kg CO2e/mile (BEIS 2018)")
)
)
),
tabPanel("Public transport",
fluidRow(
column(3,helpText("Bus (", factor_dt[Contributor %like% "Bus", unit], ")"
)
),
column(2,numericInput("bus",
value = factor_dt[Contributor %like% "Bus", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "Bus", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Train (", factor_dt[Contributor %like% "Train", unit], ")"
)
),
column(2,numericInput("train",
value = factor_dt[Contributor %like% "Train", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "Train", mFactor], " Kg CO2e/mile")
)
),
fluidRow(
column(3,helpText("Air (", factor_dt[Contributor %like% "Air", unit], ")"
)
),
column(2,numericInput("air",
value = factor_dt[Contributor %like% "Air", Usage],
label = ""
)
),
column(4,helpText(factor_dt[Contributor %like% "Air", mFactor], " Kg CO2e/mile")
)
)
),
tabPanel("Diet",
fluidRow(
column(4,helpText("Diet (choose)"
)
),
column(3,selectInput("diet", label = "",
choices = list("Standard " = 2200,
"Vegan with minimal processed food & low waste " = 1100,
"Ignore my diet" = 0),
selected = 2200)
),
column(4,p("Standard: 2200 kg C02e"),
p("Vegan, low waste: 1100 Kg CO2e"),
p("Ignore diet: 0 Kg CO2e"),
p("If you want to investigate the carbon footprint of your food try the ",
a("BBC calculator",
href = "https://www.bbc.co.uk/news/science-environment-46459714")
),
)
))
),
p("Enter your own yearly numbers above to get your annual CO2e carbon footprint (in kg)."),
p("Or just enter any old number to see what happens. For example you can compare trains & planes for the same journey distance."),
p("To reset the default values just reload the page."),
p(),
p("Data source: Judith Thornton's ",
a("carbon footprint calculator",
href = dSource), " or"),
p("(BEIS 2018) ",
a("table", href = ""))
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
# generate input$xxxx from ui.R
dt <- data.table()
dt <- rbind(dt,
# must be an easier way
cbind("Energy: Electricity", input$elec * factor_dt[Contributor == "Electricity", mFactor]),
cbind("Energy: Gas", input$gas * factor_dt[Contributor == "Gas", mFactor]),
cbind("Energy: Oil", input$oil * factor_dt[Contributor == "Oil", mFactor]),
cbind("Energy: Coal", input$coal * factor_dt[Contributor == "Coal", mFactor]),
cbind("Energy: Wood", input$wood * factor_dt[Contributor == "Wood", mFactor]),
cbind("Car petrol < 1.4l", input$car14l * factor_dt[Contributor %like% "< 1.4l", mFactor]),
cbind("Car petrol > 1.4l", input$car14m * factor_dt[Contributor %like% "> 1.4l", mFactor]),
cbind("Car diesel < 1.7l", input$diesel17l * factor_dt[Contributor %like% "< 1.7l", mFactor]),
cbind("Car diesel > 1.7l", input$diesel17m * factor_dt[Contributor %like% "> 1.7l", mFactor]),
cbind("Car elec (small)", input$elecSmall * factor_dt[Contributor %like% "small", mFactor]),
cbind("Car elec (medium)", input$elecMedium * factor_dt[Contributor %like% "medium", mFactor]),
cbind("Car elec (lqrge)", input$elecLarge * factor_dt[Contributor %like% "large", mFactor]),
cbind("Transport: Train", input$train * factor_dt[Contributor %like% "Train", mFactor]),
cbind("Transport: Bus", input$bus * factor_dt[Contributor %like% "Bus", mFactor]),
cbind("Transport: Air", input$air * factor_dt[Contributor %like% "Air", mFactor]),
cbind("Diet", input$diet)
)
# draw the bar chart
dt[, source := V1]
dt[, co2e := as.numeric(V2)]
ggplot2::ggplot(dt[co2e > 0], aes(x = source, y = co2e/1000, fill = V1)) +
geom_col() +
scale_fill_viridis_d(guide=FALSE) +
labs(y = "Tonnes CO2e",
x = "Source") +
coord_flip()
#totalCarbon <- sum(dt$co2e)
#p("Total carbon footprint:" , totalCarbon)
})
}
# Run the application
shinyApp(ui = ui, server = server)
carbonator/data/2018.csv 0 → 100644
+ 19
− 0
View file @ 539abc78
Contributor,mFactor,unit,Usage,kg CO2 e,Source:,url
Electricity,0.28307,kWh,12000,,BEIS 2018,https://assets.publishing.service.gov.uk/government/uploads/system/uploads/attachment_data/file/715425/Conversion_Factors_2018_-_Condensed_set__for_most_users__v01-01.xls
Gas,0.185,kWh,10000,,,
Wood,190,tonnes,,,,
Oil,2.53,litres,,,,
Coal,2881.65,tonnes,,,,
"car, petrol < 1.4l",0.25,miles,10000,2500,,
"car, petrol > 1.4l",0.457,miles,10000,4570,,
"car, diesel < 1.7l",0.234,miles,10000,2340,,
"car, diesel > 1.7l",0.346,miles,10000,3460,,
elec (small),0.08,miles,10000,810,BEIS 2018,https://assets.publishing.service.gov.uk/government/uploads/system/uploads/attachment_data/file/715425/Conversion_Factors_2018_-_Condensed_set__for_most_users__v01-01.xls
elec (medium),0.09,miles,10000,948,BEIS 2018,https://assets.publishing.service.gov.uk/government/uploads/system/uploads/attachment_data/file/715425/Conversion_Factors_2018_-_Condensed_set__for_most_users__v01-01.xls
elec (large),0.12,miles,10000,1157,BEIS 2018,https://assets.publishing.service.gov.uk/government/uploads/system/uploads/attachment_data/file/715425/Conversion_Factors_2018_-_Condensed_set__for_most_users__v01-01.xls
Bus,0.197,miles,10000,1970,,
Train,0.075,miles,10000,750,,
Air,0.255,miles,10000,2550,,
standard diet,2200,,,2200,,
"vegan, min processed, low waste",1100,,,,,
,,,,23256,,
carbonator/data/2018.xlsx 0 → 100644
+ 0
− 0
View file @ 539abc78
File added
carbonator/data/2019.csv 0 → 100644
+ 19
− 0
View file @ 539abc78
Contributor,mFactor,unit,Usage,kg CO2 e,Source:,url
Electricity,0.26,kWh,12000,3067,BEIS 2019, https://www.gov.uk/government/publications/greenhouse-gas-reporting-conversion-factors-2019
Gas,0.185,kWh,10000,1850,,
Wood,190,tonnes,2,380,,
Oil,2.53,litres,1000,2530,,
Coal,2881.65,tonnes,1,2882,,
"car, petrol < 1.4l",0.25,miles,10000,2500,,
"car, petrol > 1.4l",0.457,miles,10000,4570,,
"car, diesel < 1.7l",0.234,miles,10000,2340,,
"car, diesel > 1.7l",0.346,miles,10000,3460,,
elec (small),0.07,miles,10000,735,BEIS 2018,https://www.gov.uk/government/publications/greenhouse-gas-reporting-conversion-factors-2019
elec (medium),0.09,miles,10000,856,BEIS 2018,https://www.gov.uk/government/publications/greenhouse-gas-reporting-conversion-factors-2019
elec (large),0.11,miles,10000,1076,BEIS 2018,https://www.gov.uk/government/publications/greenhouse-gas-reporting-conversion-factors-2019
Bus,0.197,miles,10000,1970,,
Train,0.075,miles,10000,750,,
Air,0.255,miles,10000,2550,,
standard diet,2200,,,2200,,
"vegan, min processed, low waste",1100,,,,,
,,,,33716,,
\ No newline at end of file
carbonator/data/2019.xlsx 0 → 100644
+ 0
− 0
View file @ 539abc78
File added
carbonator/data/~$2018.xlsx 0 → 100644
+ 0
− 0
View file @ 539abc78
File added
carbonator/data/~$2019.xlsx 0 → 100644
+ 0
− 0
View file @ 539abc78
File added
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment