Ny funksjon: ssb_skog_omsetning() + litt småfiks

R/ssb_skogsavvirkning.R

@@ -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)
+}
 

man/ssb_skog_omsetning.Rd

+% 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()
+}

man/t03895.Rd

@@ -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
 }