Commit 0657dfcb authored by Helmer Belbo's avatar Helmer Belbo
Browse files

Ny funksjon: ssb_skog_omsetning() + litt småfiks

parent 44369097
......@@ -26,11 +26,11 @@ t12750 <- function(){
dplyr::filter(., harpris > 0) %>%
dplyr::select(., Region) %>% dplyr::pull(.)
priser <- dplyr::as.tbl(pxdt[[1]]) %>%
dplyr::rename(., kategoritekst = sortiment, pris = value)
ds <- as.tbl(pxdt[[2]]) %>%
rename(., region_kode = Region, ar = Tid, virkeskategori = Treslag, Pris = value) #Modding variable names
priser <- priser %>%
priser <- dplyr::as.tbl(pxdt[[1]]) %>%
dplyr::rename(., ar = år, kategoritekst = sortiment, pris = value) %>%
dplyr::bind_cols(., (ds %>% dplyr::select(., region_kode, virkeskategori))) %>%
dplyr::filter(., region_kode %in% regioner_utvalg) %>%
dplyr::mutate(.,
......@@ -46,7 +46,8 @@ t12750 <- function(){
stringr::str_sub(virkeskategori, 1,2) %in% c("11", "21", "31") ~ "tømmer",
stringr::str_sub(virkeskategori, 1,2) %in% c("14", "24", "34") ~ "massevirke",
TRUE ~ "annet"
)
),
ar = as.numeric(ar)
)
return(priser)
}
......@@ -103,7 +104,8 @@ t06216 <- function(){ # NB: avslutta, tidsserie 1996 - 2017
stringr::str_sub(virkeskategori, 1,2) %in% c("11", "21", "31") ~ "tømmer",
stringr::str_sub(virkeskategori, 1,2) %in% c("14", "24", "34") ~ "massevirke",
TRUE ~ "annet"
)
),
ar = as.numeric(ar)
)
......@@ -113,7 +115,7 @@ t06216 <- function(){ # NB: avslutta, tidsserie 1996 - 2017
#' Skogsavvirkning volum t03895
#' Hogststatistikk for tømmer SSB tabell 03895
#' 1996 - 2018
#' #'
#'
#' Tabellen gir avvirkning for salg, etter sortiment, volum, kommune.
#' Volum e avregningsvolum, m3pris
#'
......@@ -152,13 +154,11 @@ t03895 <- function( geolevel = 'fylke'){ # 1996 - 2018
dplyr::filter(., volumtot > 0) %>%
dplyr::pull(., region)
volum <- dplyr::as.tbl(pxdt[[1]]) %>%
dplyr::rename(., kategoritekst = sortiment, volum_m3pris = value)
ds <- dplyr::as.tbl(pxdt[[2]]) %>%
dplyr::rename(., region_kode = Region, ar = Tid, virkeskategori = Treslag)
volum <- volum %>%
volum <- dplyr::as.tbl(pxdt[[1]]) %>%
dplyr::rename(., ar = år, kategoritekst = sortiment, volum_m3pris = value) %>%
dplyr::bind_cols(., (ds %>% dplyr::select(., region_kode, virkeskategori))) %>%
dplyr::filter(., region %in% regioner_utvalg) %>%
dplyr::mutate(.,
......@@ -174,12 +174,39 @@ t03895 <- function( geolevel = 'fylke'){ # 1996 - 2018
stringr::str_sub(virkeskategori, 1,2) %in% c("11", "21", "31") ~ "tømmer",
stringr::str_sub(virkeskategori, 1,2) %in% c("14", "24", "34") ~ "massevirke",
TRUE ~ "annet"
)
),
ar = as.numeric(ar)
)
return(volum)
}
#' SSB skogsavvirkning for salg: omsetning
#'
#' Denne henter tabellene for prishistorikk t12750 og hogstvolum t03895 og setter dem sammen.
#' https://www.ssb.no/statbank/list/skogav
#' @return en tibble med pris og volum fordelt på fylker og sortimentgrupper og år.
#' @export
#'
#' @examples
#' ssb_skog_omsetning()
ssb_skog_omsetning = function(){
priser_t12750 <- t12750()
volum_t03895 <- t03895()
begge <-
dplyr::full_join(
priser_t12750 %>%
select(., region, region_kode, ar, treslag, virkeskategori, sortimentgruppe, pris),
volum_t03895 %>%
dplyr::filter(., ar >= min(priser_t12750$ar)) %>%
dplyr::select(., region, region_kode, ar, treslag, volum_m3pris, virkeskategori, sortimentgruppe ) %>%
dplyr::group_by(., region, region_kode, ar, treslag, virkeskategori, sortimentgruppe) %>%
dplyr::summarize(., volum_m3pris = sum(volum_m3pris)),
by = c("region", "region_kode", "ar", "treslag", "virkeskategori", "sortimentgruppe")) %>%
dplyr::rowwise() %>%
mutate(., omsetning = as.double(pris) * volum_m3pris ) %>%
ungroup()
return(begge)
}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/ssb_skogsavvirkning.R
\name{ssb_skog_omsetning}
\alias{ssb_skog_omsetning}
\title{SSB skogsavvirkning for salg: omsetning}
\usage{
ssb_skog_omsetning()
}
\value{
en tibble med pris og volum fordelt på fylker og sortimentgrupper og år.
}
\description{
Denne henter tabellene for prishistorikk t12750 og hogstvolum t03895 og setter dem sammen.
https://www.ssb.no/statbank/list/skogav
}
\examples{
ssb_skog_omsetning()
}
......@@ -4,10 +4,7 @@
\alias{t03895}
\title{Skogsavvirkning volum t03895
Hogststatistikk for tømmer SSB tabell 03895
1996 - 2018
#'
Tabellen gir avvirkning for salg, etter sortiment, volum, kommune.
Volum e avregningsvolum, m3pris}
1996 - 2018}
\usage{
t03895(geolevel = "fylke")
}
......@@ -18,10 +15,6 @@ t03895(geolevel = "fylke")
en tibble
}
\description{
Skogsavvirkning volum t03895
Hogststatistikk for tømmer SSB tabell 03895
1996 - 2018
#'
Tabellen gir avvirkning for salg, etter sortiment, volum, kommune.
Volum e avregningsvolum, m3pris
}
......
Markdown is supported
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