script 4: added name of institute to table outupt of metric 14

@slgora for your info , I added this code to script 4 as in the table 2 all the institution names were missing, this code all the institute names to the table output of metric 14, note we still want to use.

institute_names_no_syn <- read_excel("../../Data_processing/Support_files/FAO_WIEWS/FAO_WIEWS_organizations_PG.xlsx")
# add organization name to metric 14 table
table_INSTCODE_to_name <- setNames(
  institute_names_no_syn[["Name of organization"]],
  institute_names_no_syn[["WIEWS instcode"]])

institution_accessions_summary$Institute_name = NA
institution_accessions_summary <- institution_accessions_summary %>%
  mutate(
    Institute_name = ifelse(
      is.na(Institute_name),
      table_INSTCODE_to_name[INSTCODE],
      Institute_name))