Lage kjøretøystatistikk

Eksempelet under viser hvordan man kan lage statistikk over alle registrerte kjøretøy i Norge, inkludert geografiske opplysninger knyttet til kjøretøyets eier som man kobler på kjøretøydatasettet via en personidentifikator.

I dette tilfellet bruker man et kjøretøydatasett som basis, siden det er kjøretøy som er i fokus (og ikke personer). Kjøretøy med manglende link til kommune skyldes at eieren ikke var bosatt i Norge på det gitte tidspunktet (1/1 2024). Disse klassifiseres som "Ikke bosatt i Norge" i den geografiske statistikken.

 require no.ssb.fdb:32 as db

// Lager kjøretøydatasett
create-dataset kjøretøy
import db/KJORETOY_KJT_GRUP 2023-12-31 as kjøretøygruppe
import db/KJORETOY_KJ_ART 2023-12-31 as kjøringens_art
import db/KJORETOY_FREG_AR 2023-12-31 as årsmodell
import db/KJORETOY_BRUKTIMP 2023-12-31 as bruktimportert

import db/KJORETOY_DRIVSTOFF_OMK 2023-12-31 as drivstofftype
import db/KJORETOY_TEKN_CO2_UTSLIPP 2023-12-31 as utslipp_co2
import db/KJORETOY_TEKN_DRIVSTOFF_FORBRUK 2023-12-31 as drivstoff_forbruk

import db/KJORETOY_EG_VEKT 2023-12-31 as egenvekt
import db/KJORETOY_KJORETOYID_FNR 2023-12-31 as idnr

textblock
Oversikt over typer kjøretøy og bruksområde
endblock
tabulate kjøretøygruppe
clone-variables kjøretøygruppe -> kjøretøygruppe_gr
destring kjøretøygruppe_gr
recode kjøretøygruppe_gr (101 = 1 'Personbil')(106/107 = 2 'Personbilambulanser')(201/215 = 3 'Buss')(301/315 = 4 'Varebil/kombinert bil')(316 = 5 'Campingbil')(320/336 = 6 'Lastebil')(360/381 = 6)(340 = 7 'Trekkbil')(350 = 8 'Beltebil')(401 = 9 'Traktor')(501/509 = 10 'Motorredskap')(601/621 = 11 'Moped/motorsykkel')(630 = 12 'Snøscooter')
piechart kjøretøygruppe_gr
tabulate kjøretøygruppe_gr, freq cellpct
tabulate kjøretøygruppe_gr kjøringens_art, rowpct

textblock
Kjøretøyets alder fordelt på kjøretøytype
endblock
generate alder = 2024 - årsmodell
tabulate kjøretøygruppe_gr, summarize(alder) rowsort
barchart(mean) alder, over(kjøretøygruppe_gr)

textblock
Andel bruktimporterte kjøretøy fordelt på kjøretøytype
endblock
tabulate kjøretøygruppe_gr bruktimportert, rowpct

destring drivstofftype
recode drivstofftype (3 4 6 9 10 11 12 13 14 15 = 9)(7 8 = 3 'Hybrid')(5 = 4 'Elektrisk')

generate personbil = kjøretøygruppe_gr == 1
generate fossilbil = inlist(drivstofftype,1,2) 
generate hybridbil = drivstofftype == 3
generate elbil = drivstofftype == 4

textblock
Kjøretøy fordelt på drivstofftype og kjøretøytype
endblock
tabulate kjøretøygruppe_gr drivstofftype, missing rowpct

textblock
Personbilers alder fordelt på drivstofftype (sortert på alder)
endblock
tabulate drivstofftype if personbil, summarize(alder) rowsort

textblock
Co2-utslipp fordelt på kjøretøytype (sortert på co2-utslipp)
endblock
tabulate kjøretøygruppe_gr, summarize(utslipp_co2) rowsort
barchart(mean) utslipp_co2, over(kjøretøygruppe_gr)

textblock
Drivstoff-forbruk fordelt på kjøretøytype (sortert på drivstoff-forbruk)
endblock
tabulate kjøretøygruppe_gr, summarize(drivstoff_forbruk) rowsort
barchart(mean) drivstoff_forbruk, over(kjøretøygruppe_gr)

textblock
Egenvekt fordelt på kjøretøytype (sortert på egenvekt)
endblock
tabulate kjøretøygruppe_gr, summarize(egenvekt) rowsort
barchart(mean) egenvekt, over(kjøretøygruppe_gr)

textblock
Kjøretøyet egenvekt fordelt på drivstofftype og kjøretøytype (sortert på kjøretøytypens gjennomsnittlige egenvekt)
endblock
tabulate kjøretøygruppe_gr drivstofftype, summarize(egenvekt) rowsort
barchart(mean) egenvekt, over(drivstofftype)


// Lager persondatasett og kobler bostedsopplysninger på kjøretøydatasettet
create-dataset befolkning
import db/BEFOLKNING_KOMMNR_FORMELL 2024-01-01 as kommune
merge kommune into kjøretøy on idnr


// Lager geografisk statistikk for kjøretøy
use kjøretøy
generate fylke = substr(kommune,1,2)
replace fylke = '99' if sysmiss(fylke)
define-labels fylkelbl '03' Oslo '11' Rogaland '15' 'Møre og Romsdal' '18' Nordland '31' Østfold '32' Akershus '33' Buskerud '34' Innlandet '39' Vestfold '40' Telemark '42' Agder '46' Vestland '50' Trøndelag '55' Troms '56' Finnmark '99' 'Ikke bosatt i Norge'
assign-labels fylke fylkelbl

//Kloner kommunevariabel og trekker ut storbyer fra den ene variabelen (resten plasseres i samlet kategori)
clone-variables kommune -> storby
replace storby = '9999' if sysmiss(storby)
replace storby = '8888' if !inlist(storby,'0301','1103','3201','3301','4204','4601','5001','5501','9999')
recode storby ('8888' = '8888' 'Øvrige kommuner')('9999' = '9999' 'Ikke bosatt i Norge')

textblock
Antall kjøretøy fordelt på eiers bosted
endblock
tabulate fylke
barchart(count) fylke

tabulate fylke kjøretøygruppe_gr, rowpct
tabulate storby kjøretøygruppe_gr, rowpct

barchart(count) kjøretøygruppe_gr, over(fylke) stack
barchart(percent) kjøretøygruppe_gr, over(fylke) stack

barchart(count) drivstofftype, over(fylke) stack
barchart(percent) drivstofftype, over(fylke) stack

barchart(percent) kjøretøygruppe_gr, over(storby) stack
barchart(percent) drivstofftype, over(storby) stack