--- title: "Fiskeri og fangst" subtitle: "Fangst og indhandling af fisk og skaldyr" icon: bi-tsunami listing: - id: fish-links template: ../../../../ejs/subtopics.ejs - id: fish-publications contents: ../../../releases/*.qmd date-format: "YYYY-MM-DD" include: tag: Fiskeri - id: fi-contact contents: ../../../../staff.yml template: ../../../../ejs/staff.ejs include: topics: FI release-date: 2026-04-30 next-release: 2026-06-30 --- ### Nøgletal ```{r} library (tidyverse)library (statgl)# KPI 1: Samlet fangst, seneste fulde år (alle kvartaler) <- statgl_fetch ("FID010" , quarter = "*" , .col_code = TRUE ) %>% filter (! is.na (value), value != 0 ) %>% filter (n_distinct (quarter) == 4 L, .by = time) %>% filter (time == max (time)) %>% summarise (value = sum (value), .by = time)<- format (round (catch_df$ value), big.mark = "." , decimal.mark = "," )<- catch_df$ time# KPI 2: Samlet indhandlingsværdi, seneste fulde år <- statgl_fetch ("FID012" , enhed = "DKK" , month = "*" , .col_code = TRUE , .val_code = "month" ) %>% filter (! is.na (value), value > 0 ) %>% filter (n_distinct (month) == 12 L, .by = time) %>% filter (time == max (time)) %>% summarise (value = sum (value), .by = time)<- format (round (trade_df$ value / 1000 , 0 ), big.mark = "." , decimal.mark = "," )<- trade_df$ time# KPI 3: Aktive fartøjer i alt, seneste år <- statgl_fetch ("FIDFLEET" , taar = px_top (), .col_code = TRUE ) %>% summarise (value = sum (value, na.rm = TRUE ), .by = taar)<- format (fleet_df$ value, big.mark = "." , decimal.mark = "," )<- fleet_df$ taar# KPI 4: Prisindeks rejer – ændring seneste kvartal ift. samme kvartal året før <- statgl_fetch ("FID009" ,suussusaa = "Saarullik, Katillugit" ,` kvartal-i ` = c ("Kv1" , "Kv2" , "Kv3" , "Kv4" ),.col_code = TRUE %>% filter (! is.na (value)) %>% arrange (ukioq, ` kvartal-i ` )<- idx_df %>% distinct (ukioq, ` kvartal-i ` ) %>% tail (2 )<- paste (periods$ ` kvartal-i ` [2 ], periods$ ukioq[2 ])<- (idx_df %>% slice (n ()) %>% pull (value) - idx_df %>% slice (n ()- 1 ) %>% pull (value)) / %>% slice (n ()- 1 ) %>% pull (value)) * 100 <- glue:: glue ("{ifelse(idx_pct >= 0, '▲ ', '▼ ')}{format(abs(idx_pct), digits = 3, decimal.mark = ',')} %" )``` `r catch_val` ton'`r catch_tid` '>}} ::: `r trade_val` mio. kr.'`r trade_tid` '>}} ::: `r fleet_val` '`r fleet_tid` '>}} ::: `r idx_val` '`r latest_period` '>}} ::: ### Emner ### Se også >}} >}} ### Seneste udgivelser ### Kontakt