pivot_data: Make pivot data

In KWB-R/kwb.umberto: R package supporting UMERTO LCA at KWB

Make pivot data

Description

Make pivot data

Usage

pivot_data(
  rawdata_grouped,
  cols_to_ignore = "unit",
  key_col = "model",
  value_col = "quantity_sum"
)

Arguments

rawdata_grouped	grouped rawdata as retrieved by function group_data()
cols_to_ignore	column names not to be considered for transforming the data from the "list" to the "wide" format with tidyr::spread() (default: "unit")
key_col	column name containing the key for transforming the data from the "list" to the "wide" format with tidyr::spread() (default: "model")
value_col	column name containing the values that will be used during transforming the data from the "list" to the "wide" format with tidyr::spread() (default: "quantity_sum")

Value

data.frame with the aggregated results for all different"lci_method"

Examples

zipfile <- system.file("extdata/umberto-nxt_v7.1.0.13.503/Beispiel_Auswertung.zip", 
package = "kwb.umberto")
umberto7_csv_dir <- file.path(tempdir(), "Beispiel_Auswertung")
unzip(zipfile, exdir = umberto7_csv_dir)
umberto7_rawdata <- kwb.umberto::import_rawdata(csv_dir = umberto7_csv_dir)
umberto7_data_grouped <- kwb.umberto::group_data(umberto7_rawdata)
umberto7_data_pivot <- kwb.umberto::pivot_data(umberto7_data_grouped)
head(umberto7_data_pivot)

umberto10_csv_dir <- system.file("extdata/umberto-lca+_v10.1.0.3.146", 
package = "kwb.umberto")
umberto10_rawdata <- kwb.umberto::import_rawdata(csv_dir = umberto10_csv_dir)
umberto10_data_grouped <- kwb.umberto::group_data(umberto10_rawdata)
umberto10_data_pivot <- kwb.umberto::pivot_data(umberto10_data_grouped)
head(umberto10_data_pivot)

KWB-R/kwb.umberto documentation built on Dec. 12, 2022, 2:46 a.m.