Integration with other components of the tilt system

Setup.

library(tiltToyData)
library(tiltIndicatorAfter)
library(tiltPlot)
library(dplyr, warn.conflicts = FALSE)
library(readr, warn.conflicts = FALSE)

options(readr.show_col_types = FALSE)

Data.

companies <- read_csv(toy_emissions_profile_any_companies())
products <- read_csv(toy_emissions_profile_products_ecoinvent())
co2 <- read_csv(toy_emissions_profile_products_ecoinvent())
europages_companies <- read_csv(toy_europages_companies())
ecoinvent_activities <- read_csv(toy_ecoinvent_activities())
ecoinvent_europages <- read_csv(toy_ecoinvent_europages())
isic_name <- read_csv(toy_isic_name())

Apply tilt methodology.

result <- profile_emissions(
  companies,
  products,
  europages_companies = europages_companies,
  ecoinvent_activities = ecoinvent_activities,
  ecoinvent_europages = ecoinvent_europages,
  isic = isic_name
  ) |> 
  unnest_product()

Visualize all companies.

bar_plot_emission_profile(result, benchmarks = c("all", "unit"), mode = "equal_weight")

Visualize one specific company.

first_company <- filter(result, companies_id %in% first(companies_id))
bar_plot_emission_profile(first_company, benchmarks = c("all", "unit"), mode = "equal_weight")