#All Addresses Clean
    #Ed Lefley
    #2021 03 25
    #Revised 2021 03 29
    #Further revised 2021 08 25
    #Further revised 2021 08 30
    
    ##Purpose: Take the standardisation discovered from the Reorder.r script and apply to all address details.
    #Load packages:
    library(stringr)
    library(data.table)
    #Starting data = 474633
    
    #WoS_FA_U_DF_REV_S <- data.frame(str_split(WoS_FA_DF_REV_D_All,"~",n=Inf,simplify=TRUE)
    
    #
    #WoS_FA_DF_REV_All <- as.vector(as.matrix(WoS_FA_DF_REV_D_All))
    #Remove the leading character (https://stackoverflow.com/questions/46671796/conditionally-remove-leading-or-trailing-character-in-r)
    #
    WoS_Ag7U_REV_DD_S<- gsub('^,~', '', WoS_Ag7U_REV_DD$WoS_Ag7U_D_REV)
    WoS_Ag7U_REV_DD_S <- as.vector(as.matrix(WoS_Ag7U_REV_DD_S))
    WoS_Ag7U_REV_DD_S <- str_split(WoS_Ag7U_REV_DD_S,"~", n=Inf, simplify = TRUE)
    WoS_Ag7U_REV_DD_S <- as.matrix(WoS_Ag7U_REV_DD_S)
    WoS_Ag7U_REV_DD_S <- trimws(WoS_Ag7U_REV_DD_S,"both")
    WoS_Ag7U_REV_DD_S <- as.data.frame(WoS_Ag7U_REV_DD_S)
    
    #Rejoin
    WoS_Ag7U_REV_RJ <- as.vector(paste(WoS_Ag7U_REV_DD_S$V1,WoS_Ag7U_REV_DD_S$V2,WoS_Ag7U_REV_DD_S$V3,WoS_Ag7U_REV_DD_S$V4,WoS_Ag7U_D$X1, sep = " "))
    WoS_Ag7U_REV_RJ<- as.data.frame(WoS_Ag7U_REV_RJ)
    remove(WoS_Ag7U_REV_DD_S)
    
    #WoS_FA_U_RJ_OU_All <- unique(WoS_FA_RJ_O_All) #279935
    
    
    #WoS_FA_U_AA_DF_U<-unique(WoS_FA_U_AA_DF)
    ###High Level patterns
    #*,
    WoS_Ag7U_REV_RJ <- gsub("[*]", "", WoS_Ag7U_REV_RJ$WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(",,,", "", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("  ", " ", WoS_Ag7U_REV_RJ)
    #Australia Typos
    WoS_Ag7U_REV_RJ <- gsub("Austraian", "Australian ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Austraila", "Australia ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AustraIia", "Australia ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Austrailia", "Australia ", WoS_Ag7U_REV_RJ)
    #Other
    WoS_Ag7U_REV_RJ <- gsub("Hosp Australia|Hosp Australasia", "Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Hospital|Hopsital", "Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Australia", "Univ", WoS_Ag7U_REV_RJ)
    #WoS_Ag7U_REV_RJ <- gsub(", dc,|, DC,|, Dc,", ",", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ply Ltd", "Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cooperat,", "Cooperat Ltd,", WoS_Ag7U_REV_RJ)
    #Austria
    WoS_Ag7U_REV_RJ <- gsub("Australia, Graz", "Austria, Graz", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Feldkirch", "Austria, Feldkirch", WoS_Ag7U_REV_RJ)
    #Canada
    WoS_Ag7U_REV_RJ <- gsub("Australia, ON, Nepean", "Australia, NSW, Nepean", WoS_Ag7U_REV_RJ)
    #Peoples R China
    WoS_Ag7U_REV_RJ <- gsub("Australia, Kunming|Australia, Kunming 650201|Australia, NSW, Kunming|Australia, NSW, Kunming", "Peoples R China, Kunming", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Jiangsu", "Peoples R China, Jiangsu", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Xuzhou, Sch Mechatron Engn, China Univ Min & Technol China Univ Min & Technol", "Peoples R China, Xuzhou, Sch Mechatron Engn, China Univ Min & Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Ctr Excellence Tibetan Plateau Earth Sci, CAS", "Peoples R China, Ctr Excellence Tibetan Plateau Earth Sci, CAS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Melbourne, CAS Ctr Excellence Tibetan Plateau Earth Sci CAS Ctr Excellence Tibetan Plateau Earth Sci", "Peoples R China, Ctr Excellence Tibetan Plateau Earth Sci, CAS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Xian Univ Architecture & Technol Xian Univ Architecture & Technol|Australia, NSW, Sydney, Xian Univ Architecture & Technol Xian Univ Architecture & Technol", "Peoples R China, Xian Univ Architecture & Technol", WoS_Ag7U_REV_RJ)
    
    #Fixes from TH_Calc_V4
    #Cape Breton Canada
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW B1P 6L2, Sydney,", "Canada, Nova Scotia B1P 6L2, Sydney,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW B1Y 6L2, Sydney", "Canada, Nova Scotia B1Y 6L2", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Sch Business, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Biol, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Cardiol, Cape Breton Reg Hosp", "Canada, Nova Scotia, Sydney, Cape Breton Reg Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Heritage & Culture, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Polit Sci, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Shannon Sch Business, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Med, Cape Breton Canc Ctr", "Canada, Nova Scotia, Sydney, Cape Breton Canc Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Radiat Oncol, Cape Breton Canc Ctr", "Canada, Nova Scotia, Sydney, Cape Breton Canc Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Math, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Commun, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Financial & Informat Management, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Hist & Culture, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, MBA CED Program, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Community Econ Dev Program, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Med, Cape Breton Reg Hosp", "Canada, Nova Scotia, Sydney, Cape Breton Reg Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Philosophy & Religious Studies, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Mus Tradit, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Ethnomusicol, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Postind Communities, Cape Breton Univ", "Canada, Nova Scotia, Sydney, Cape Breton Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Cape Breton", "Canada, Nova Scotia, Sydney, Cape Breton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Joint St FX Cape Breton", "Canada, Nova Scotia, Sydney, Joint St FX Cape Breton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW B1R 2J6, Sydney", "Canada, Nova Scotia B1P 2J6, Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, BruNSWick North, Paqtnekek Mikmaq First Nat Paqtnekek Mikmaq First Nat", "Canada, Brunswick North, Paqtnekek Mikmaq First Nat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Brunswick North, Paqtnekek Mikmaq First Nat Paqtnekek Mikmaq First Nat", "Canada, Brunswick North, Paqtnekek Mikmaq First Nat", WoS_Ag7U_REV_RJ)
    #Other 2021 09 10
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 20685, St Leonards, Estuarine Res Ctr, Morgan State Univ", "USA MA 20685, St Leonards, Estuarine Res Ctr, Morgan State Univ", WoS_Ag7U_REV_RJ)
    #2021 09 13
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Hist, Hampden Sydney Coll", "USA VA 23943, Hampden-Sydney, Dept Hist, Hampden Sydney Coll", WoS_Ag7U_REV_RJ)
    #Mt Rescue England & Wales
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Mt", "England, Cumbria, Penrith, Mt", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Resuce", "Rescue", WoS_Ag7U_REV_RJ)
    #Google 2021 06 10
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 20685, St Leonards, Acad Nat Sci Estuarine Res Ctr", "MD 20685 USA, St Leonards, Acad Nat Sci Estuarine Res Ctr", WoS_Ag7U_REV_RJ) #correct is Maryland, USA
    #Google 2021 06 23
    WoS_Ag7U_REV_RJ <- gsub("Australia, Waltham On The Wolds, WALTHAM Ctr Pet Nutr WALTHAM Ctr Pet Nutr", "England, Waltham On The Wolds, WALTHAM Ctr Pet Nutr WALTHAM Ctr Pet Nutr", WoS_Ag7U_REV_RJ) #UK
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 2940, Newcastle, UKZN Barry Hertzog Pk|Australia, NSW 2940, Newcastle, 7 Cresswell Ave, UKZN Barry Hertzog Pk", "South Africa 2940, Newcastle, UKZN Barry Hertzog Pk", WoS_Ag7U_REV_RJ)
    #Google 2021 06 24
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, USDA Forest Serv", "USA, USDA Forest Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, US Court Appeals Ninth Circuit", "USA, US Court Appeals Ninth Circuit", WoS_Ag7U_REV_RJ)
    #2021 06 28
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 95661, Roseville, AtheroPoint|Australia, NSW 95661, Roseville, Monitoring & Diagnost Div, AtheroPoint|Australia, NSW, Roseville, AtheroPoint|Australia, NSW, Roseville, AtheroPointO|Australia, NSW, Roseville, Stroke Monitoring & Diagnost Div, AtheroPoint|Australia, NSW, Roseville, Monitoring & Diagnost Div, AtheroPointO", "CA 95661 USA, Roseville, AtheroPoint", WoS_Ag7U_REV_RJ)
    #Google 2021 06 29
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Bayer Akad Wissensch", "Germany, Bayer Akad Wissensch", WoS_Ag7U_REV_RJ)
    #Google 2021 06 30
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Ctr Brasileiro Pesquisas Fis|Australia, NSW, Sydney, Rua Dr Xavier Sigaud 150, Ctr Brasileiro Pesquisas Fis", "Brazil, Ctr Brasileiro Pesquisas Fis", WoS_Ag7U_REV_RJ)
    #2021 07 07
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Coordenacao Aperfeicoamento Pessoal Nivel Super", "Brazil, Coordenacao Aperfeicoamento Pessoal Nivel Super", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Comparat Biol Ctr", "England, Tyne & Wear, Newcastle, Comparat Biol Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 2308, Newcastle, Comparat Biol Ctr", "England, Tyne & Wear, Newcastle, Comparat Biol Ctr", WoS_Ag7U_REV_RJ)
    #2021 07 08
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Ctr Excellence Looked Children Scotland", "Scotland, Strathclyde, Ctr Excellence Looked Children Scotland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Ctr Interdisciplinario Estudios Sistema Nervioso", "Chile, Ctr Interdisciplinario Estudios Sistema Nervioso", WoS_Ag7U_REV_RJ)
    #2021 07 17
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Grantham Res Inst Climate Change & Environm", "England, London, Grantham Res Inst Climate Change & Environm", WoS_Ag7U_REV_RJ)
    #2021 07 19
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Greenfield Pk, Hop Charles LeMoyne|Australia, NSW, Greenfield Pk, Neuro Rive Sud, Hop Charles LeMoyne", "Canada, Qc, Greenfield Pk, Hop Charles LeMoyne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Inst Cell & Mol Biosciences", "England, Tyne & Wear, Newcastle, Inst Cell & Mol Biosciences", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Griffith, Irish Innocence Project", "Ireland, Griffith, Irish Innocence Project", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 2007, Sydney, Justervesenet Norwegian Metrol Serv", "Norway, Justervesenet Norwegian Metrol Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Kaiser Permanente Roseville Women & Childrens Ctr Kaiser Permanente Roseville Women & Childrens Ctr", "MD USA, Roseville, Kaiser Permanente Roseville Women & Childrens Ctre", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Dept Obstet & Gynecol, Kaiser Permanente", "MD USA, Roseville, Dept Obstet & Gynecol, Kaiser Permanente", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Dept Radiol, Kaiser Permanente Roseville Med Ctr", "MD USA, Roseville, Dept Radiol, Kaiser Permanente Roseville Med Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Roseville Med Ctr, Kaiser Permanente", "MD USA, Roseville, Roseville Med Ctr, Kaiser Permanente", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Dept Otolaryngol, Kaiser Permanente", "MD USA, Kensington, Dept Otolaryngol, Kaiser Permanente", WoS_Ag7U_REV_RJ)
    #2021 07 20
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW B78 3GL, Tamworth, LGC Forens LGC Forens", "England, B78 3GL, Tamworth, LGC Forens", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Clayton, British Columbia Injury Res & Prevent Unit British Columbia Injury Res & Prevent Unit", "Canada, BC, Clayton, British Columbia Injury Res & Prevent Unit", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Min Ind Human Resource Councils MiHR Min Ind Human Resource Councils MiHR", "Canada, Min Ind Human Resource Councils MiHR", WoS_Ag7U_REV_RJ)
    #2021 07 21
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Epping, NHS Fdn Trust, North Essex Partnership Univ", "England, Epping, NHS Fdn Trust, North Essex Partnership Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Epping, NE Essex PCT NE Essex PCT", "England, Epping, NE Essex PCT", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld, Hopital Charles LeMoyne, Neuro Rive Sud Neuro Rive Sud", "Canada, Qc, Hopital Charles LeMoyne, Neuro Rive Sud", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Newcastle Biomed Res Ctr", "England, Tyne & Wear, Newcastle, Newcastle Biomed Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, NIHR Newcastle Biomed Res Ctr", "England, Tyne & Wear, Newcastle, Newcastle Biomed Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Chem & Drug Metab Intramural Res Program, NIDA", "USA, Chem & Drug Metab Intramural Res Program, NIDA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Melbourne, NMAHP Res Unit NMAHP Res Unit", "England, NMAHP Res Unit", WoS_Ag7U_REV_RJ)
    #2021 07 25
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Wansbeck Gen & Royal Victoria Infirm, Northumbria & Newcastle NHS Trusts", "England, Newcastle, Wansbeck Gen & Royal Victoria Infirm, Northumbria & Newcastle NHS Trusts", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Univ Northumbria Newcastle Univ Northumbria Newcastle", "England, Newcastle, Univ Northumbria Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northumbria Univ Northumbria Univ", "England, Newcastle, Northumbria Univ Northumbria Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northumbria & Newcastle NHS Trusts, Wansbeck Gen & Royal Victoria Infirm", "England, Newcastle, Northumbria & Newcastle NHS Trusts, Wansbeck Gen & Royal Victoria Infirm", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northumbria & Newcastle Natl Hlth Serv Trusts, Wansbeck Gen & Royal Victoria Infirm", "England, Newcastle, Northumbria & Newcastle Natl Hlth Serv Trusts, Wansbeck Gen & Royal Victoria Infirm", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Geog & Environm Sci, Univ Northumbria", "England", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Mkt Operat & Syst, Univ Northumbria Newcastle", "England, Newcastle, Dept Mkt Operat & Syst, Univ Northumbria Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW NE1, Newcastle, Dept Comp Sci & Digital Technol, Univ Northumbria", "England, NE1, Newcastle, Dept Comp Sci & Digital Technol, Univ Northumbria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 2308, Callaghan, Northumbria Healthcare NHS Fdn Trust, Univ Newcastle", "England, Northumbria Healthcare NHS Fdn Trust, Univ Newcastle", WoS_Ag7U_REV_RJ)
    
    #UK
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Informat Team, Cumbria Constabulary", "England, Cumbria, Penrith, Informat Team, Cumbria Constabulary", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Res Team, Cumbria Constabulary", "England, Cumbria, Penrith, Res Team, Cumbria Constabulary", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Anal Team, Cumbria Constabulary", "England, Cumbria, Penrith, Anal Team, Cumbria Constabulary", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW CA11 0AH, Penrith, Natl Sch Forestry, Univ Cumbria", "England, Cumbria, Penrith CA11 0AH, Natl Sch Forestry, Univ Cumbria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW CA2 5NN, Penrith, Fac Sci & Nat Resources, Univ Cumbria", "England, Cumbria, Penrith CA2 5NN, Fac Sci & Nat Resources, Univ Cumbria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Cumbria Partnership NHS Fdn Trust", "England, Cumbria, Penrith, Cumbria Partnership NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Forestry Conservat & Appl Sci, Univ Cumbria", "England, Cumbria, Penrith, Forestry Conservat & Appl Sci, Univ Cumbria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Forestry Conservat & Appl Sci, Univ Cumbria", "England, Cumbria, Penrith, Forestry Conservat & Appl Sci, Univ Cumbria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Gray St Kogarah, Univ London St Georges Hosp Univ London St Georges Hosp", "England, London, Gray St Kogarah, Univ London St Georges Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Anesthesiol, Univ London St Georges Hosp", "England, London, Dept Anesthesiol, Univ London St Georges Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dept Med Oncol, Univ London St Georges Hosp", "England, London, Dept Med Oncol, Univ London St Georges Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Intens Care Unit, Univ London St Georges Hosp", "England, London, Intens Care Unit, Univ London St Georges Hosp", WoS_Ag7U_REV_RJ)
    
    #UK Newcastle Upon Tyne
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle Upon Tyne", "England, Tyne & Wear, Newcastle Upon Tyne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Newcastle Tyne Hosp NHS Fdn Trust Newcastle Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Newcastle Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Cardiovasc Surg, Newcastle Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Cardiovasc Surg, Newcastle Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Dermatol, Newcastle Upon Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Dermatol, Newcastle Upon Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Microbiol, Newcastle Tyne Hosp Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Microbiol, Newcastle Tyne Hosp Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Neurol, Newcastle Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Neurol, Newcastle Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Paediat Dermatol, Newcastle Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Paediat Dermatol, Newcastle Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Radiol, Newcastle Tyne Hosp NHS Trust", "England, Tyne & Wear, Newcastle, Dept Radiol, Newcastle Tyne Hosp NHS Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Res Innovat & Clin Effectiveness, North Tyne & Wear NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Dept Res Innovat & Clin Effectiveness, North Tyne & Wear NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Freeman Hosp, Newcastle Upon Tyne Hosp NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Freeman Hosp, Newcastle Upon Tyne Hosp NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Haemophilia Ctr, Newcastle Tyne Hosp NHS Fdn Trust NUTH", "England, Tyne & Wear, Newcastle, Haemophilia Ctr, Newcastle Tyne Hosp NHS Fdn Trust NUTH", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Newcastle Ctr Bowel Dis, Newcastle Upon Tyne Hosp", "England, Tyne & Wear, Newcastle, Newcastle Ctr Bowel Dis, Newcastle Upon Tyne Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Newcastle Upon Tyne", "England, Tyne & Wear, Newcastle, Newcastle Upon Tyne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northern Genet Serv, Newcastle", "England, Tyne & Wear, Newcastle, Northern Genet Serv, Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northern Vasc Ctr, Newcastle", "England, Tyne & Wear, Newcastle, Northern Vasc Ctr, Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Royal Victoria Infirm, Newcastle", "England, Tyne & Wear, Newcastle, Royal Victoria Infirm, Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Northumberland Tyne & Wear NHS Fdn Trust Northumberland Tyne & Wear NHS Fdn Trust", "England, Tyne & Wear, Newcastle, Northumberland Tyne & Wear NHS Fdn Trust", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Univ Newcastle On Tyne", "England, Tyne & Wear, Newcastle, Univ Newcastle On Tyne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Univ Newcastle Tyne", "England, Tyne & Wear, Newcastle, Univ Newcastle On Tyne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW NE7 7DN", "England, Tyne & Wear, Newcastle Upon Tyne NE7 7DN", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Biomed Res Unit, Newcastle NIHR", "England, Tyne & Wear, Newcastle Upon Tyne, Biomed Res Unit, Newcastle NIHR", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Ctr Bacterial Cell Biol, Inst Cell & Mol Biosciences", "England, Tyne & Wear, Newcastle Upon Tyne, Ctr Bacterial Cell Biol, Inst Cell & Mol Biosciences", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Sheriff Hwy Sheriff Hwy", "England, Tyne & Wear, Gateshead, Sheriff Hwy", WoS_Ag7U_REV_RJ)
    #Fixing others
    WoS_Ag7U_REV_RJ <- gsub("Australia, Tyne & Wear", "Australia, NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Avon", "England, Avon", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lancs 3072", "Australia, Vic 3072", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lancs 3121, Burnley", "Australia, Vic 3121", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lancs, Preston", "England, Lancs, Preston", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, London, Sch Hlth & Educ, Middlesex Univ Middlesex Univ", "England,London, Sch Hlth & Educ, Middlesex Univ Middlesex Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, London, Fac Management, Cass Business Sch Cass Business Sch", "England, London, Fac Management, Cass Business Sch, City Univ London", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, London, Cass Business Sch, City Univ London City Univ London", "England, London, Fac Management, Cass Business Sch, City Univ London", WoS_Ag7U_REV_RJ)
    
    #Merseyside
    WoS_Ag7U_REV_RJ <- gsub("Australia, Merseyside, Liverpool", "England, Merseyside, Liverpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Merseyside", "Australia, NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, W Yorkshire, Leeds, Sch Sociol & Social Policy, Univ Leeds","England, W Yorkshire, Leeds, Sch Sociol & Social Policy, Univ Leeds", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Trowbridge, Danone Baby Nutr Danone Baby Nutr","England, Trowbridge, Danone Baby Nutr Danone Baby Nutr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Paddington, The Haven The Haven","England, Paddington, The Haven The Haven", WoS_Ag7U_REV_RJ) #RBKC Sexual assault referral centre
      
    #London's Kensington
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Rhythm Studio","England, Kensington, Rhythm Studio", WoS_Ag7U_REV_RJ)
      
    #2021 11 15 & 16 - Fix up after geocoding attempt
    WoS_Ag7U_REV_RJ <- gsub("Australia, Adelaide,|Australia, Adelaine,|Australia, Adeliade,","Australia, SA, Adelaide,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Albany 6330","Australia, WA 6330, Albany", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Albury","Australia, Vic, Albury", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ald 4029","Australia, Qld 4029", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Alexandria 1435,","Australia, NSW 1435, Alexandria,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Alexandria,","Australia, NSW, Alexandria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Alligator Creek 4816","Australia, Qld 4816, Alligator Creek", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Alstonville","Australia, NSW, Alstonville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Archcrficld 4108|Australia, Archerfield 4108","Australia, Qld 4108, Archerfield", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Archerfield|Australia, QL, Archerlield","Australia, Qld, Archerfield", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Armadale","Australia, WA, Armadale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Armidale 2351","Australia, NSW 2351, Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Armidale","Australia, NSW, Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ashfield","Australia, NSW, Ashfield", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ashford","Australia, SA, Ashford", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Atherton 4883","Australia, Qld 4883, Atherton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Atherton","Australia, Qld, Atherton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Australia, Qld","Australia, Qld", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Auburn","Australia, NSW, Auburn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Avoca","Australia, NSW, Avoca", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2351, Orange","NSW, Orange", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2351 Coonabarabran","NSW, Coonabarabran", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wolstencraft","NSW, Wolstonecraft", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ballart","Australia, Vic, Ballarat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ballina","Australia, NSW, Ballina", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Balmain 2041","Australia, NSW 2041, Balmain", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Balmain","Australia, NSW, Balmain", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bangalow","Australia, NSW, Bangalow", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bangor 2234","Australia, NSW 2234, Bangor", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Barton 2600","Australia, ACT 2600, Barton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Barton","Australia, ACT, Barton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Batemans Bay 2536","Australia, NSW 2536, Batemans Bay", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Batemans Bay","Australia, NSW, Batemans Bay", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bathurst","Australia, NSW, Bathurst", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lucas Heights 2234|Australia, Lucas Heights","Australia, NSW 2234, Lucas Heights", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Melbourn|Australia, Melboure|Australia, Vic, E Melnourne","Australia, Vic, Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Gully, Paediat Clin 2 Mt Gate Dve Ferntree Paediat Clin 2 Mt Gate Dve Ferntree","Vic, Ferntree Gully, Paediat Clin 2 Mt Gate Dve", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, Moree","Australia, NSW, Moree", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Narrabri 2390,","Australia, NSW 2390, Narrabri,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Narrabri,","Australia, NSW, Narrabri,", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW1710","NSW 1710", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW2006","NSW 2006", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW2052","NSW 2052", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW2522","NSW 2522", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW2751","NSW 2751", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSWf 2007","NSW 2007", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("OLD 4069, Pullenvale","Qld 4069, Pullenvale", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld Qld|Australia, QLD|AUstralia, Qln|Australia, QM","Australia, Qld", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld Q","Australia, Qld ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld, 4558","Australia, Qld 4558,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld, 4566","Australia, Qld 4566", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, Sydney|Australia, Syndney","Australia, NSW, Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Taree","Australia, NSW, Taree", WoS_Ag7U_REV_RJ)
    
    #Overseas
    WoS_Ag7U_REV_RJ <- gsub("Australia, Dundee","Scotland, Dundee", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Maan Jordan, Dept Chem Engn","Jordan, Maan Jordan, Dept Chem Engn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Mbabane, 693 Somhlolo Rd","South Africa, Mbabane, 693 Somhlolo Rd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Pingdingshan 467036","China, Pingdingshan 467036", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Taunton, Somerset Cty Cricket Club Somerset Cty Cricket Club","England, Taunton, Somerset Cty Cricket Club Somerset Cty Cricket Club", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic SL5 7PY, Ascot","England, SL5 7PY, Ascot", WoS_Ag7U_REV_RJ)
    
    #USA - Follows state then USA
    WoS_Ag7U_REV_RJ <- gsub("Australia, MA 02115", "MA 02115 USA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, MA 02472", "MA 02472 USA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, MD", "Australia, NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Penn Coll Optometry, Salus Univ", "PA 19027 USA, Elkins Park, Penn Coll Optometry, Salus Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Penn State Univ Penn State Univ", "PA 16801 USA, Penn State Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Dept Radiol, Midatlantic Permanente Med Grp", "MD 20895 USA, Kensington, Dept Radiol, Midatlantic Permanente Med Grp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Kensington Res Inst Kensington Res Inst", "MD 20910 USA, Silver Spring, Kensington Res Inst", WoS_Ag7U_REV_RJ)
  
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Wollongong, Univ Loau Falemaama Moana Univ Loau Falemaama Moana", "Tonga, Univ Loau Falemaama Moana", WoS_Ag7U_REV_RJ)
    
    #China
    WoS_Ag7U_REV_RJ <- gsub("Australia, Guilin, Coll CS & IT, Guangxi Normal Univ Guangxi Normal Univ", "China, Guilin, Coll CS & IT, Guangxi Normal Univ Guangxi Normal Univ", WoS_Ag7U_REV_RJ)
    
    #Not sure which, but it's not Australia (UK, NZ or USA):
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lincoln, Lincoln Univ Lincoln Univ", "New Zealand, Lincoln, Lincoln Univ Lincoln Univ", WoS_Ag7U_REV_RJ)
    
    #m vs rn
    
    WoS_Ag7U_REV_RJ <- gsub("Westemead", "Westmead", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Southem", "Southern", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Northem", "Northern", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Eastem", "Eastern", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Westem", "Western", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Ausbalia", "Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Nedlandsus", "Nedlands", WoS_Ag7U_REV_RJ)
    
    #Forests
    WoS_Ag7U_REV_RJ <- gsub("Forsts", "Forests", WoS_Ag7U_REV_RJ)
    #NSW
    #State wide
    WoS_Ag7U_REV_RJ <- gsub("Nsw|nsw|Nbsw", "NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("New S Wales|New South Wales|Now S Wales", "NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("New S Wakes", "NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("New Sound Wales", "NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydeny|Syndey", "Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("N Ryde", "North Ryde", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("North Ryde Bc", "North Ryde", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ourimbath", "Ourimbah", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Beds", "Australia, Tas", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, BC|Australia, Bc|Australia, DC|Australia, Dc", "Australia,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wagga Wrgga|Waga Waga", "Wagga Wagga", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Wagga,", ", Wagga Wagga,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Woolloomoolloo", "Woolloomooloo", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Freemantle", "Fremantle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Hetitage", "Heritage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Quuenscliff", "Queenscliff", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Macleod", "Australia, Vic, Macleod", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cassills", "Cassilis", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Inglebum", "Ingleburn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, VT 3133, Vic", "Australia, Vic 3133, Vermont", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Matrickville", "Marrickville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wales, NSW, Sydney", "Australia, NSW, Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 6151, Kensington,", "Australia, WA 6151, Kensington,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NH, Kensington", "Australia, NSW, Kensington", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW2052, Kensington", "Australia, NSW 2052, Kensington", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("HighSt", "High St", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 4064", "Qld 4064", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 3018, Altona", "Vic 3018, Altona", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Highway|HWY|Highwy", "Hwy", WoS_Ag7U_REV_RJ)
    
    ####Universities based on https://www.studyinaustralia.gov.au/English/Australian-Education/Universities-Higher-Education/list-of-australian-universities
    ###Australian Capital Territory
    WoS_Ag7U_REV_RJ <- gsub("ACT 200,", "ACT 2000,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ACT 260,", "ACT 2600,", WoS_Ag7U_REV_RJ)
    #Australian National University
    WoS_Ag7U_REV_RJ <- gsub("Australia Natl Univ|Australian Natl Univ|Australian Nation Univ", "ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANU ANU", "ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANUn Natl Univ", "ANU", WoS_Ag7U_REV_RJ)
    #University of Canberra
    WoS_Ag7U_REV_RJ <- gsub("Univ Canberra Bruce", "Univ Canberra", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Canberra Univ Canberra", "Univ Canberra", WoS_Ag7U_REV_RJ)
    ###New South Wales
    #Australian Catholic University
    WoS_Ag7U_REV_RJ <- gsub("ACU Natl", "Australian Catholic Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ACU", "Australian Catholic Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Catholic Univ Natl", "Australian Catholic Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Catholic Univ Australian Catholic Univ", "Australian Catholic Univ", WoS_Ag7U_REV_RJ)
    #Charles Sturt University
    ##Typos
    WoS_Ag7U_REV_RJ <- gsub("Charles Stun Univ|Charles Stunt Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sart Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Shut Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Starr Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Start Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles State Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Strurt Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Strut Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Stuart Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Stud Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    ##Campuses
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Sydney", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Albury", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Wagga Wagga|Charles Sturt Univ Wagga", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Riverina", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Dubbo", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Orange", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ CSU", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Bathurst", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSU", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Sturt Univ Charles Sturt Univ", "Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    #Macquarie University
    WoS_Ag7U_REV_RJ <- gsub("Macquairie", "Macquarie", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Univ Sydney|Macquarie Unviers", "Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Univ Australia", "Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Univ N Ryde", "Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Univ Macquarie Univ", "Macquarie Univ", WoS_Ag7U_REV_RJ)
    #Southern Cross University
    WoS_Ag7U_REV_RJ <- gsub("So Cross Univ", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Southern Cross Univ Australia", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lismore, SCU", "Lismore, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Southern Cross Univ SCU", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Southern Cross Univ Southern Cross Univ", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sch Environm Sci & Management SCU Sch Environm Sci & Management SCU" , "Sch Environm Sci & Management, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Plant Conservat Genet SCU Ctr Plant Conservat Genet SCU", "Ctr Plant Conservat Genet, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Scu Lismore, Forest Sci Ctr, Sch Environm Sci & Engn, Lismore", "Sch Environm Sci & Engn, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("SCU Business Sch, Business Sch", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lismore, POB 157, SCU, Lismore", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lismore, Sch Law & Justice, SCU", "Sch Law & Justice, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("East Lismore, Mil Rd, SCU, Lismore", "Mil Rd, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ARL, SCU", "Southern Cross Univ", WoS_Ag7U_REV_RJ)
    
    #University of New England
    WoS_Ag7U_REV_RJ <- gsub("UNE","Univ New England", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Uni New England","Univ New England", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2315|NS 2351", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 235,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 23251", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2357,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 3251,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2531,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 23518,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 235121,", "NSW 2351", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("2351 Armidale", "2351, Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("2515, Armidale", "2351, Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("2051, Armidale", "2351, Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Aemidale", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Amidale", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Annidale", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Armadale, Univ New England", "Armidale, Univ New England", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Armidaie", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Arrnidale|Arnidale|Artnidale", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Armidale DC", "Armidale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ New England Univ New England", "Univ New England", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ New EnglandSCO","UNESCO", WoS_Ag7U_REV_RJ)
    ##AGBU
    WoS_Ag7U_REV_RJ <- gsub("Anim Genet & Breeding Unit", "AGBU", WoS_Ag7U_REV_RJ)
    #University of New South Wales
    WoS_Ag7U_REV_RJ <- gsub("Univ South Wales|Univ New South Wales|Unvers NSW|Univ South New Wales|Univ New South Vvales", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ S Wales", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Uni NSW", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ NSW|Univers NSW", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ N S Wales", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW Australia", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW Sydney", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSWs", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW UNSW", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW, UNSW", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Nacl Invest Alcohol & Drogas, Univ Nueva Gales Sur", "Natl Drug & Alcohol Res Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Nacl Prevenc & Informac Cannabis, Univ Nueva Gales Sur", "Natl Cannabis Prevent & Informat Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW Med UNSW Med|UNSW Med UNSW|Med UNSW", "UNSW", WoS_Ag7U_REV_RJ)
    
    #University of Newcastle
    WoS_Ag7U_REV_RJ <- gsub("Newcastel|Nevcastle", "Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Unvers Newcastle", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle Ourimbah", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle Ourimbah Campus", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle Callaghan", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle UoN|Univ Newcastle UON","Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ New Castle UoN","Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Callaghan, UoN|Callaghan, UON","Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Newcastle, UoN","Newcastle, Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle Australia","Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Newcastle Univ Newcastle", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    #University of Sydney
    WoS_Ag7U_REV_RJ <- gsub("University of Sydney", "Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("USYD|Usyd|USyd", "Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sydney Univ Sydney", "Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Farm Anim Hlth Grp, Univ Sydney|Farm Anim & Vet Publ Hlth, Univ Sydney|Farm Anim & Vet Publ Hlth Grp, Univ Sydney", "Dept Farm Anim & Vet Publ Hlth, Univ Sydney", WoS_Ag7U_REV_RJ)
    
    #University of Technology, Sydney
    WoS_Ag7U_REV_RJ <- gsub("Univ Technol Sydney", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Technol UTS", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UTS Sydney", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univers of Technol", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UTS Australia", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UTS UTS", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("USTC", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Technol", "UTS", WoS_Ag7U_REV_RJ)
    #Western Sydney University
    WoS_Ag7U_REV_RJ <- gsub("WSU", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Western Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Westerm Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ W Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WEstern Sydney Univ", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UWS", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("w Sydney Univ", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Western Sydney Macarthur", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Western Sydney Hawkesbury", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ ofWestern Sydney|Unviers Western Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Univ Western Sydney Western Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Univ Western Sydney Univ", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    #University of Wollongong
    WoS_Ag7U_REV_RJ <- gsub("UOW|UoW", "Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ ofWollongong", "Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wollongong Univ", "Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wallongong", "Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Wollongong Univ Wollongong", "Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("N Wollongong", "North Wollongong", WoS_Ag7U_REV_RJ)
    ###Northern Territory
    #Charles Darwin University
    ###Queensland
    #Bond University
    WoS_Ag7U_REV_RJ <- gsub("Bond Univ Australia", "Bond Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Premion & Bond Univ", "Bond Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bond Univ Bond Univ", "Bond Univ", WoS_Ag7U_REV_RJ)
    #CQ University
    WoS_Ag7U_REV_RJ <- gsub("Univ Cent Queensland", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniversity", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQU ", "CQUniv ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv Australia", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv Sydney", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv Mackay", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv Rockhampto", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cent Queensland Univ", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv CQUniv", "CQUniv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CQUniv|CQ Univ CQ Univ", "CQ Univ", WoS_Ag7U_REV_RJ)
    #Federation University of Australia
    ##See Victoria
    #Griffith University
    WoS_Ag7U_REV_RJ <- gsub("Griffith Univ Gold Coast", "Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Griffith Univ *. Campus|Griffith Univ Gold Coast", "Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Gold Coast Campus Griffith Univ|Gold Coast Campus, Griffith Univ", "Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Griffith Univ Griffith Univ", "Griffith Univ", WoS_Ag7U_REV_RJ)
    #James Cook University
    WoS_Ag7U_REV_RJ <- gsub("JCU", "James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("James Cook Univ N Queensland", "James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("James Cook Univ North Queensland", "James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("James Cook Univ Queensland", "James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("James Cook Univ Australia", "James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("James Cook Univ James Cook Univ", "James Cook Univ", WoS_Ag7U_REV_RJ)
    #Queensland University of Technology
    WoS_Ag7U_REV_RJ <- gsub("Queensland Univ ofTechnol", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Queensland UTS", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("QUT", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("QUT QUT", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("QLD Univ Technol", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Queensland Univ Technol Queensland Univ Technol", "Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    #University of Queensland
    WoS_Ag7U_REV_RJ <- gsub("Univ Queensland Univ Queensland", "Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ QLD|Univ Qld", "Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UQCCR", "Univ Queensland CCR", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UQ", "Univ Queensland", WoS_Ag7U_REV_RJ)
    #University of Southern Queensland
    WoS_Ag7U_REV_RJ <- gsub("Univ So Queensland", "Univ Southern Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Southern QLD", "Univ Southern Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Southern Queensland Univ Southern Queensland", "Univ Southern Queensland", WoS_Ag7U_REV_RJ)
    #University of the Sunshine Coast
    WoS_Ag7U_REV_RJ <- gsub("Maroochydoore|Maroochydoore Dd|Maroochydoore Dc", "Maroochydore", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sunshine Coast Univ Sunshine Coast", "Univ Sunshine Coast", WoS_Ag7U_REV_RJ)
    ###South Australia
    #Typos
    WoS_Ag7U_REV_RJ <- gsub("Adelaidex", "Adelaide", WoS_Ag7U_REV_RJ)
    #Carnegie Mellon University
    #None
    #Flinders University
    WoS_Ag7U_REV_RJ <- gsub("Flinders Univ South Australia", "Flinders Univ S Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Flinders Univ S Australia Flinders Univ S Australia", "Flinders Univ S Australia", WoS_Ag7U_REV_RJ)
    #Torrens University Australia
    #University of Adelaide
    #University of South Australia
    WoS_Ag7U_REV_RJ <- gsub(", Univ S Australia", ", Univ South Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ South Australia Univ S Australia", "Univ South Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ South Australia Univ South Australia", "Univ South Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ South Australia UniSA Univ S Australia UniSA|UniSA UniSA", "Univ South Australia", WoS_Ag7U_REV_RJ)
    
    ###Tasmania
    #University of Tasmania
    WoS_Ag7U_REV_RJ <- gsub("NSW, Hobart", "Tas, Hobart", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 7005, Hobart", "Tas 7005, Hobart", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Tasmania", "Australia, Tas", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UTAS", "Univ Tasmania", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Tasmania Hobart", "Univ Tasmania", WoS_Ag7U_REV_RJ)
    ###Victoria
    WoS_Ag7U_REV_RJ <- gsub("Melborne|Melboume", "Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Victoria,", ", Vic,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BruNSWick,", "Brunswick,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BruNSWick 3", "Brunswick 3", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BruNSWick ", "Brunswick ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 300,", "Vic 3000,", WoS_Ag7U_REV_RJ)
    #Deakin University
    WoS_Ag7U_REV_RJ <- gsub("Deakin Univ Waurn Ponds|Deakin Univ Burwood Campus|Deakin Univ Geelong|Burwood Campus Deakin Univ|Deakin Univ Victoria", "Deakin Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Deakin Univ Deakin Univ", "Deakin Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mpunt", "Mt", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mount Helen", "Mt Helen", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Ballarat", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sch Business, Federat Univ", "Sch Business, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ag7c Business, Federat Univ", "Sch Business, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mt Helen, Federat Univ", "Mt Helen, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Ballarat", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ballarat, Federat Univ", "Ballarat, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Churchill, Federat Univ", "Churchill, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Melbourne, Federat Univ", "Melbourne, Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Federat Univ", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Federat Univ", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Australia Ballarat", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Australia Australia", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Australia Federat Univ Australia", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Australia AustraliaDef Sci & Technol GrpFederat Univ Australia Austalia", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Federat Univ Australia Ballarat|Federat Univ Australia B|Federat Univ Australia Mt Helen", "Federat Univ Australia", WoS_Ag7U_REV_RJ)
    #La Trobe University
    WoS_Ag7U_REV_RJ <- gsub("Latrobe", "La Trobe", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ La Trobe Sydney Campus", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ La Trobe", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("La Trobe Univ Melbourne Bundoora", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("La Trobe Univ Melbourne", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("La Trobe Univ Bundoora Campus", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("La Trobe Univ La Trobe Univ", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    #Monash University
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Gippsland", "Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Parkville Campus", "Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Parkville", "Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Peninsula Campus", "Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Melbourne", "Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Univ Monash Univ", "Monash Univ", WoS_Ag7U_REV_RJ)
    #RMIT University
    WoS_Ag7U_REV_RJ <- gsub("RMIT Univ Melbourne", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ RMIT", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT UNiv", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT Melbourne", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT Technol", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT Australia", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Melbourne Inst Technol", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT Univ RMIT Univ", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT RMIT Univ", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT RMIT", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMTT univ", "RMIT Univ", WoS_Ag7U_REV_RJ)
    #Swinburne University of Technology
    WoS_Ag7U_REV_RJ <- gsub("Swinburne UTS", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinburne Univ", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinburne Univ Technol Technol|Swinburne Univ Technol Tech", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinburne Univ Technol Hawthorn|Swinburne Univ Technol Melbourne", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinburne Univ Technol Swinburne Univ Technol", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    #University of Divinity
    #None needed
    #University of Melbourne
    WoS_Ag7U_REV_RJ <- gsub("Univ ofMelbourne", "Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Melbourne Melbourne", "Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Melbourne Parkville", "Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Melbourne Univ Melbourne", "Univ Melbourne", WoS_Ag7U_REV_RJ)
     
    #Victoria University
    WoS_Ag7U_REV_RJ <- gsub("Victoria UTS", "Victoria Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Victoria Univ Technol", "Victoria Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Victoria Univ Wellington", "Victoria Univ", WoS_Ag7U_REV_RJ)
    ###Western Australia
    WoS_Ag7U_REV_RJ <- gsub("Australia, Western Austral|Australia, Western Australia","Australia, WA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Western Australia,","Australia, WA", WoS_Ag7U_REV_RJ)
    #Curtin University
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Technol Technol", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Techn Univ", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Technol Australia", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Sci & Technol", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Bentley", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Perth", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin UTS", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Kensington, Curtin", "WA, Kensington, Curtin", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Univ Technol Curtin Univ Technol", "Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    #Edith Cowan University
    WoS_Ag7U_REV_RJ <- gsub("Perth, ECU", "Perth, Edith Cowan Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Edith Cowen Univ Perth", "Edith Cowan Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Edith Cowen Univ", "Edith Cowan Univ", WoS_Ag7U_REV_RJ)
    #Murdoch University
    #University of Notre Dame Australia
    WoS_Ag7U_REV_RJ <- gsub("Univ Notre Dame Australia", "Univ Notre Dame", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Notre Dame Univ Notre Dame", "Univ Notre Dame", WoS_Ag7U_REV_RJ)
    #University of Western Australia
    WoS_Ag7U_REV_RJ <- gsub("Western Australia Univ","Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ ofWestern Australia", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ West Australia", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ WA", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ W Australia", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Perth, UWA", "Perth, Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Crawley, UWA", "Crawley, Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Westem,", "Western", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WA USA, Perth,", "Australia, WA, Perth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WA USA, Crawley,", "Australia, WA, Perth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WA USA, Broome,", "Australia, WA, Perth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WA 6986 USA, Welshpool,", "Australia, WA 6986, Welshpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WA 6332 USA, Albany,", "Australia, WA 6332, Albany", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Western Australia Univ Western Australia", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Univ Western Australia Western Australia", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UWA", "Univ Western Australia", WoS_Ag7U_REV_RJ)
    ##NSW Other Depts
    WoS_Ag7U_REV_RJ <- gsub("Tauylots", "Taylors", WoS_Ag7U_REV_RJ)
    #NSW Bur Crime Stat & Res
    WoS_Ag7U_REV_RJ <- gsub("Bur Crime Stat & Res", "NSW Bur Crime Stat & Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW NSW", "NSW", WoS_Ag7U_REV_RJ)
    #Zool Pks NSW
    WoS_Ag7U_REV_RJ <- gsub("Zool Pks Board NSW", "Zool Parks Board NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Zool Pk Board NSW", "Zool Parks Board NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Zook Pks Board NSW", "Zool Parks Board NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Zook Pk Board NSW", "Zool Parks Board NSW", WoS_Ag7U_REV_RJ)
    #DPI
    WoS_Ag7U_REV_RJ <- gsub("NSW Dept Primary Ind", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSWDPI", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW DPI Port Stephens Fisheries Ctr", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW DPI Fisheries", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW DPI DPI Fisheries", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW DPI NSW DPI", "NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW NSW DPI DPI", "NSW DPI", WoS_Ag7U_REV_RJ)
    #PSFI
    WoS_Ag7U_REV_RJ <- gsub("PSFI", "NSW DPI", WoS_Ag7U_REV_RJ)
    #NSW Fire Brigades
    WoS_Ag7U_REV_RJ <- gsub("NSW Fire Brigades", "NSW Fire Brigade", WoS_Ag7U_REV_RJ)
    #NFEIC
    WoS_Ag7U_REV_RJ <- gsub("NIFEC", "NFEIC", WoS_Ag7U_REV_RJ)
    ####
    ##QLD
    WoS_Ag7U_REV_RJ <- gsub("Q,", "Qld,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Old 4", ", Qld 4", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Old,", ", Qld,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Q 4", "Qld 4", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("QLD 4", "Qld 4", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Brsibane", "Brisbane", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Brisbane", "Australia, Qld, Brisbane", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Cairns", "Australia, Qld, Cairns", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Gold Coast, Australia", "Australia, Qld, Gold Coast", WoS_Ag7U_REV_RJ)
    #AgriSci Queensland
    WoS_Ag7U_REV_RJ <- gsub("Agri Sci Queensland", "Agrisci Queensland", WoS_Ag7U_REV_RJ)
    ##South Australia
    #SARDI
    WoS_Ag7U_REV_RJ <- gsub("S Australian Res & Dev Inst SARDI", "SARDI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("S Australian Res & Dev Inst", "SARDI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("S Australia Res & Dev Inst", "SARDI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("South Australian Res Dev Inst", "SARDI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("South Australian Res & Dev Inst", "SARDI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("SARDI SARDI", "SARDI", WoS_Ag7U_REV_RJ)
    ##Victoria
    #AgriBio Ctr
    WoS_Ag7U_REV_RJ <- gsub("AgriBio Ctr AgriBiosci", "AgriBio Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AgriBio Ctr", "AgriBio Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AgriBioCtr", "AgriBio Ctr,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AgriBio", "AgriBio Ctr,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AgriBiosci Ctr,", "AgriBio Ctr,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AgriBio Ctr Ctr", "AgriBio Ctr,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Agribio Ctr AgriBio Ctr", "AgriBio Ctr,", WoS_Ag7U_REV_RJ)
    ##TAS
    WoS_Ag7U_REV_RJ <- gsub("Australia, Hobart", "Australia, Tas, Hobart", WoS_Ag7U_REV_RJ)
    ##Western Australia
    #
    WoS_Ag7U_REV_RJ <- gsub("Australia, Perth", "Australia, WA, Perth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Crawley", "Australia, WA, Crawley", WoS_Ag7U_REV_RJ)
    ###
    ##Australia Wide
    #Hosp & Health
    #South Western Sydney Health
    WoS_Ag7U_REV_RJ <- gsub("S Western Sydney ", "South Western Sydney ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Southwestern Sydney ", "South Western Sydney ", WoS_Ag7U_REV_RJ)
    #Westmead
    WoS_Ag7U_REV_RJ <- gsub("West Mead|Wesfmead", "Westmead", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cllin", "Clin", WoS_Ag7U_REV_RJ)
    #Bankstown
    WoS_Ag7U_REV_RJ <- gsub("Bankstowne", "Bankstown", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bankstown", "Australia, NSW, Bankstown", WoS_Ag7U_REV_RJ)
    #Newcastle Hospitals
    #John Hunter
    WoS_Ag7U_REV_RJ <- gsub("John Hunters Childrens Hosp", "John Hunter Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("John Hunter Hosp Campus", "John Hunter Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("John Hunter Hosp John Hunter Hosp", "John Hunter Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("John Hunter Childrens Hosp John Hunter Childrens Hosp", "John Hunter Childrens Hosp", WoS_Ag7U_REV_RJ)
    #Mater/Calvary
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Hosp Newcastle", "Calvary Mater Newcastle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Newcastle", "Calvary Mater Newcastle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Newcastle Hosp Calvary Mater Newcastle Hosp", "Calvary Mater Newcastle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Newcastle Hosp Hosp", "Calvary Mater Newcastle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Newcastle Mater Misericordiae Hosp Newcastle Mater Misericordiae Hosp", "Newcastle Mater Misericordiae Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Newcastile Mater Hosp Newcastile Mater Hosp", "Newcastle Mater Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Newcastle Mater Hosp Newcastle Mater Hosp", "Newcastle Mater Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Newcastle Hosp Mater Hosp", "Calvary Mater Newcastle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calvary Mater Hosp Calvary Mater Hosp", "Calvary Mater Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mater Hosp Mater Hosp", "Mater Hosp", WoS_Ag7U_REV_RJ)
    #VCCRI
    WoS_Ag7U_REV_RJ <- gsub("VCCRI", "Victor Chang Cardiac Research Institute", WoS_Ag7U_REV_RJ)
    ##Fed Agencies
    #ANSTO
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Technol", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl & Sci Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Technol Org Australian Nucl & Sci Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Tech Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl & Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Assoc Inc", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Technol & Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci & Technol Assoc", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Nucl Sci Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Sci & Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australias Nucl Sci & Technol Org", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANSTO ANSTO", "ANSTO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANSTO Life Sci", "ANSTO LifeSci", WoS_Ag7U_REV_RJ)
    #BoM
    WoS_Ag7U_REV_RJ <- gsub("CAWRC", "CAWCR", WoS_Ag7U_REV_RJ)
    #Def Sci & Technol Grp
    WoS_Ag7U_REV_RJ <- gsub("Def Sci & Technol Grp", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("DSTO", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Def Sci & Technol Org Def Sci & Technol Org", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Def Sci & Technol Org DSTO", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Def Sci & Technol Org Melbourne", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Def Sci & Technol Org Fishermans Bend", "Def Sci & Technol Org", WoS_Ag7U_REV_RJ)
    ###CSIRO
    WoS_Ag7U_REV_RJ <- gsub("Commonwealth Sci & Ind Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Commonwealth Sci & Ind Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Commonwealth Sci Ind Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Commonwealth Scienhf & Ind Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Commonwealth Sci & Res Org|Common Wealth Sci & Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Common Wealth Sci & Ind Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Comonwealth Sci & Ind Res Org", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CISRO|CSIR0", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia Telescope Natl Ag7cil", "CSIRO Australia Telescope Natl Ag7cil", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO CSIRO", "CSIRO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO Marine & Atmospher Res CSIRO Marine & Atmospher Res", "CSIRO Marine & Atmospher Res", WoS_Ag7U_REV_RJ)
    #FD McMaster
    WoS_Ag7U_REV_RJ <- gsub("FD McMaster Lab Chiswick|FD McMaster Labs", "CSIRO FD McMaster Lab", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO Livestock Ind FD McMaster Lab", "CSIRO FD McMaster Lab", WoS_Ag7U_REV_RJ)
    #CSIRO Data61
    WoS_Ag7U_REV_RJ <- gsub("Data 61|DATA 61|DATA61", "Data61", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Data61 CSIRO", "CSIRO Data61", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Data61", ", CSIRO Data61", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO Data61 CSIRO Data61", "CSIRO Data61", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO CSIRO Data61 Data61", "CSIRO Data61", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSIRO Data61, CSIRO", "CSIRO Data61", WoS_Ag7U_REV_RJ)
    #CRCs
    WoS_Ag7U_REV_RJ <- gsub("Cooperat Res Ctr", "CRC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cooporat Res Ctr", "CRC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Coop Res Ctr", "CRC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CRC CRC", "CRC", WoS_Ag7U_REV_RJ)
    #AAO
    WoS_Ag7U_REV_RJ <- gsub("AAO", "Anglo Australian Observ", WoS_Ag7U_REV_RJ)
    #ABARES
    WoS_Ag7U_REV_RJ <- gsub("Australian Bur Agr & Resource Econ & Sci", "Australian Bur Agr Resource Econ & Sci", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ABARE|ABARES", "Australian Bur Agr Resource Econ & Sci", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Bur Agr & Resource Econ,", "Australian Bur Agr Resource Econ & Sci,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Bur Agr Resource Econ & Sci Australian Bur Agr Resource Econ & Sci", "Australian Bur Agr Resource Econ & Sci", WoS_Ag7U_REV_RJ)
    #Prod Commiss
    WoS_Ag7U_REV_RJ <- gsub("Prod Commiss", "Prod Commission", WoS_Ag7U_REV_RJ)
    #RSPCA Australia
    WoS_Ag7U_REV_RJ <- gsub("RSPCA Australia", "RSPCA Australia Inc", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RSPCA Australia Inc Inc", "RSPCA Australia Inc", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Soc Prevent Cruelty Anim RSPCA", "RSPCA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RSPCA Queensland Wildlife Hosp", "RSPCA Queensland", WoS_Ag7U_REV_RJ)
    #MLA
    WoS_Ag7U_REV_RJ <- gsub("Meat & Livestock Australia", "Meat & Livestock Australia Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Meat & Livestock Australia Ltd Ltd", "Meat & Livestock Australia Ltd", WoS_Ag7U_REV_RJ)
    #Garvan Inst Med Res 37
    WoS_Ag7U_REV_RJ <- gsub("Gavan", "Garvan", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Garvan Inst", "Garvan Inst Med Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Garvan Inst Res", "Garvan Inst Med Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Garvan Insitute Med Res", "Garvan Inst Med Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Garvan Inst Biomed Res", "Garvan Inst Med Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Med Res Med Res", "Med Res", WoS_Ag7U_REV_RJ)
    #Garvan Insitute Med Res
    ##Final Federal Level tidy up
    WoS_Ag7U_REV_RJ <- gsub("Australia, , ", "Australia, ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(",  ", "", WoS_Ag7U_REV_RJ)
    
    #CASS CSIRO
    WoS_Ag7U_REV_RJ <- gsub("Epping, POB 76, CSIRO Astron & Space Sci CASS|Epping, POB 76, CASS|Epping, POB 76, CSIRO CASS ATNF|Epping, CSIRO Astron & Space Sci CASS CSIRO Astron & Space Sci CASS|Epping, CASS CASS|Epping, Astron & Space Sci CASS, CSIRO|Epping, CASS, CSIRO", "Epping, CSIRO Astron & Space Sci CASS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Marsfield, CSIRO Astron & Space Sci CASS CSIRO Astron & Space Sci CASS|Marsfield, CSIRO Astron & Space Sci CASS CSIRO Astron & Space Sci CASS|Marsfield, CASS CASS|Mansfield, CASS CASS", "Marsfield, CSIRO Astron & Space Sci CASS", WoS_Ag7U_REV_RJ)
    
    #Future Farm Ind CRC
    WoS_Ag7U_REV_RJ <- gsub("Future Farm Ind CRC Future Farm Ind CRC|CRC Future Farm Ind CRC Future Farm Ind", "Future Farm Ind CRC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CRC Future Farm Ind", "Future Farm Ind CRC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Future Farm Ind CRC M081, Univ Western Australia|Future Farm Ind CRC, Univ Western Australia M081|Future Farm Ind CRC, Univ Western Australian|Future Farm Ind CRC, UWA", "Future Farm Ind CRC, Univ Western Australia", WoS_Ag7U_REV_RJ)
    
    #Fisheries
    WoS_Ag7U_REV_RJ <- gsub("Cronulla, Wild Fisheries Program, NSW DPI|Cronulla, Cronulla Fisheries Res Ctr, Wild Fisheries Program|Cronulla, Wild Fisheries Program, Cronulla Fisheries Res Ctr", "Cronulla, Wild Fisheries Program, Cronulla Fisheries Res Ctr, NSW DPI", WoS_Ag7U_REV_RJ)
    
    #Adding States
    WoS_Ag7U_REV_RJ <- gsub("Australia, Canberran,|Australia, Canberra,|Australia, Canberra Bc", "Australia, ACT, Canberra", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Melbourne", "Australia, Vic, Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Brisbane|Australia, Brisbone", "Australia, Qld, Brisbane", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bendigo", "Australia, Vic, Bendigo", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ballarat", "Australia, Vic, Ballarat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Penrith NSW Dc", "Australia, NSW, Penrith", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Penrith NSW", "Australia, NSW, Penrith", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Sydney,", "Australia, NSW, Sydney,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Liverpool", "Australia, NSW, Liverpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lismore", "Australia, NSW, Lismore", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Lidcombe", "Australia, NSW, Lidcombe", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Burwood", "Australia, Vic, Burwood", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Broadway", "Australia, NSW, Broadway", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bondi", "Australia, NSW, Bondi", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Broken Hill", "Australia, NSW, Broken Hill", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Broome", "Australia, WA, Broome", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bruce", "Australia, ACT, Bruce", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Birtinya", "Australia, Qld, Birtinya", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Casuarina", "Australia, NT, Casuarina", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Caulfield", "Australia, Vic, Caulfield", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Coffs Harbour", "Australia, NSW, Coffs Harbour", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Concord", "Australia, NSW, Concord", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, East Melbourne", "Australia, Vic, East Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Eveleigh,", "Australia, NSW, Eveleigh,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Gold Coast", "Australia, Qld, Gold Coast", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Gosford,", "Australia, NSW, Gosford,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Hornsby", "Australia, NSW, Hornsby", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Hurstville", "Australia, NSW, Hurstville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Hurston", "Australia, Qld, Hurston", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Heidelberg", "Australia, Vic, Heidelberg", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Haymarket", "Australia, NSW, Haymarket", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Joondalup", "Australia, WA, Joondalup", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Kelvin Grove", "Australia, Qld, Kelvin Grove", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Kirrawee", "Australia, NSW, Kirrawee", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Maroochydore", "Australia, Qld, Maroochydore", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Mawson Lakes", "Australia, SA, Mawson Lakes", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Midlothian", "Australia, SA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, New Lambton", "Australia, NSW, New Lambton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Newcastle", "Australia, NSW, Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ourimbah", "Australia, NSW, Ourimbah", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Parramatta", "Australia, NSW, Parramatta", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Port Macquarie", "Australia, NSW, Port Macquarie", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Richmond", "Australia, Vic, Richmond", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Penrith", "Australia, NSW, Penrith", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ryde", "Australia, NSW, Ryde", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Redfern", "Australia, NSW, Redfern", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, South Brisbane", "Australia, Qld, South Brisbane", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Surry Hills", "Australia, NSW, Surry Hills", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Sunshine Coast", "Australia, Qld, Sunshine Coast", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Ultimo", "Australia, NSW, Ultimo", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Victoria", "Australia, Vic", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, VC", "Australia, Vic", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Woolloomooloo", "Australia, NSW, Woolloomooloo", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Wollongong", "Australia, NSW, Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Wentworthville", "Australia, NSW, Wentworthville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Waurn Ponds,", "Australia, Vic, Waurn Ponds,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Waratah", "Australia, NSW, Waratah", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Wallsend", "Australia, NSW, Wallsend", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Wahroonga", "Australia, NSW, Wahroonga", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Roseworthy", "Australia, SA, Roseworthy", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Rosedale", "Australia, SA, Rosedale", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("23 Windsor Str", "23 Windsor St", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("NSW 4226, Robina", "Qld 4226, Robina", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, Robina 4226", "Australia, Qld 4226, Robina", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, Robina,", "Australia, Qld, Robina", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, CA, Claremont,", "Australia, WA, Claremont,", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, Acton", "Australia, ACT, Acton,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Kiama 2533|NSW, Kiama", "NSW 2533, Kiama", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Abbotsford 3067,|Australia, Abbotsford,", "Australia, Vic 3067, Abbotsford,", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Coffs Harbor", "Coffs Harbour", WoS_Ag7U_REV_RJ)
    
    #BC/DC
    WoS_Ag7U_REV_RJ <- gsub("Liverpool Bc|Liverpool BC", "Liverpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("1871, Bc,", "1871, Liverpool,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Adelaide Bc|Adelaide BC", "Adelaide", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Brisbane Bc", "Brisbane", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Milton Bc", "Milton", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Archerfield Bc", "Archerfield", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Noosaville Bc", "Noosaville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sumner Pk BC|Sumner Pk Bc|Summer Pk Bc", "Sumner Pk", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Fortitude Valley Bc", "Fortitude Valley", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Parramatta Bc|Parramatta BC", "Parramatta", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Hurstville Bc|Hurstville BC", "Hurstville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canberra Bc", "Canberra", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Welshpool Dc|Welshpool DC", "Welshpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bentley DC|Bentley Dc", "Bentley", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Joondalup Dc", "Joondalup", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Clayton Sth MDC|Mdc, Clayton South MSC|Clayton Sth Mdc|Clalyton S Mdc", "Clayton S", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ferntree Gully Dc", "Ferntree Gully", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Marleston Dc", "Marleston", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Arundel Dc", "Arundel", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Gladstone Dc", "Gladstone", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bundaberg Dc", "Bundaberg", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Noosaville Dc", "Noosaville", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Maroochydore DC|Maroochydore Dc|Marochydore Dc", "Maroochydore", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("4558, Dc", "4558, Maroochydore", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tingalpa DC", "Tingalpa", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Logan City Dc", "Logan City", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Albion Dc", "Albion", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Penrith South DC|South Penrith DC|South Penrith Dc|Penrith Sth Dc|Penrith Soutah Dc|PenrithSouth DC|Lopenrith S Dc|Benrith S Dc|Au Penrith Sth Dc", "Penrith South", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, South DC,|NSW, Dc,", "NSW, Penrith South,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2751, Dc", "NSW 2751, Penrith South", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Minto Dc", "Minto", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Kirawee", "Kirrawee", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Kirrawee Dc|Kirrawee DC|Kinawee DC", "Kirrawee", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2232, Dc|NSW 232, Kirrawee|NSW 223, Kirrawee", "NSW 2232, Kirrawee", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wollongong Dc", "Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lismore Dc", " Lismore", WoS_Ag7U_REV_RJ)
    
    #Double Names
    WoS_Ag7U_REV_RJ <- gsub("Queen Elizabeth Hosp Queen Elizabeth Hosp","Queen Elizabeth Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Woollongong Univ Woollongong","Univ Woollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Knowledge Exchange Australia Knowledge Exchange Australia","Knowledge Exchange Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Natl Ctr Epidemiol & Populat Hlth Natl Ctr Epidemiol & Populat Hlth","Natl Ctr Epidemiol & Populat Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mt Stromlo & Siding Spring Observ Mt Stromlo & Siding Spring Observ","Mt Stromlo & Siding Spring Observ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Natl Museum Australia Natl Museum Australia","Natl Museum Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Environm & Climate Change NSW Dept Environm & Climate Change NSW","Dept Environm & Climate Change NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Digitalcore Pty Ltd Digitalcore Pty Ltd","Digitalcore Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Natl Informat & Commun Technol ICT Australia Natl Informat & Commun Technol ICT Australia","Natl Informat & Commun Technol ICT Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian CRC Greenhouse Gas Techno Australian CRC Greenhouse Gas Techno","Australian CRC Greenhouse Gas Techno", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CRC Greenhouse Gas Techno CRC Greenhouse Gas Techno","Australian CRC Greenhouse Gas Techno", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CRC Greenhouse Gas Technol CRC Greenhouse Gas Technol","Australian CRC Greenhouse Gas Techno", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Food Stand Australia & New Zealand Food Stand Australia & New Zealand","Food Stand Australia & New Zealand", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Food Stand Australian New Zealand Food Stand Australian New Zealand","Food Stand Australia & New Zealand", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Grains Res & Dev Corp Grains Res & Dev Corp","Grains Res & Dev Corp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("IBM Corp IBM Corp","IBM Corp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Injecting & Illicit Drug Users League Australian Injecting & Illicit Drug Users League","Australian Injecting & Illicit Drug Users League", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Intravenous & Injecting League AIVL Australian Intravenous & Injecting League AIVL","Australian Injecting & Illicit Drug Users League", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Wildlife Serv Australian Wildlife Serv","Australian Wildlife Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("AMC AMC","AMC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANCORS ANCORS|Ancors","ANCORS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Androl Australia","Androl Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANZIC Res Ctr ANZIC Res Ctr","ANZIC Res Ct", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wentworth Inst Wentworth Inst","Wentworth Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("WARRA WARRA","WARRA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Hanson Inst Hanson Inst","Hanson Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Griffith Griffith","Griffith", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Ctr Financial Studies Australian Ctr Financial Studies","Australian Ctr Financial Studies", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Inst Biomed Res Australian Inst Biomed Res","Australian Inst Biomed Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Baker Inst Baker Inst","Baker Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Batchelor Inst Batchelor Inst|Batchelor Inst Indigenous Tertiary Educ Batchelor Inst Indigenous Tertiary Educ","Batchelor Inst Indigenous Tertiary Educ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ANU ANU", "ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Monash Monash", "Monash", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW UNSW", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Inst Suicide Res & Prevent Australian Inst Suicide Res & Prevent", "Australian Inst Suicide Res & Prevent, Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("B7-50 Southern Cross Dr B7-50 Southern Cross Dr|Southern Cross Dr, Gold Coast Campus", "Southern Cross Dr, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Plant DNA Bank Australian Plant DNA Bank", "Australian Plant DNA Bank", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Res Ctr Excellence Bioinformat Australian Res Ctr Excellence Bioinformat", "Australian Res Ctr Excellence Bioinformat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BABS BABS", "BABS, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BERF BERF", "BERF, Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BOSCH Inst BOSCH Inst", "Bosch Inst, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cairns Inst Cairns Inst", "Cairns Inst, James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CCORE CCORE", "CCORE", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CEEM CEEM", "CEEM, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CAPPE CAPPE", "CAPPE, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CEPAR CEPAR", "CEPAR", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("SAE Creat Media Inst SAE Creat Media Inst", "SAE Creat Media Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dairy Sci Grp Dairy Sci Grp", "Dairy Sci Grp, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Charles Perkins Ctr Charles Perkins Ctr", "Charles Perkins Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CHIRI CHIRI", "CHIRI, Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Climate Change Res Ctr Climate Change Res Ctr", "Climate Change Res Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Save Sight Inst Save Sight Inst", "Save Sight Inst, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Opt Fiber Technol Ctr Opt Fiber Technol Ctr", "Opt Fiber Technol Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("COFS COFS", "COFS, Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Connected Intelligence Ctr Connected Intelligence Ctr", "Connected Intelligence Ctr, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Mark Wainwright Analyt Ctr Mark Wainwright Analyt Ctr", "Mark Wainwright Analyt Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NMR Facil, Mark Wainwright Analyt Ctr", "NMR Facil, Mark Wainwright Analyt Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Room G61, Mark Wainwright Analyt Ctr", "Room G61, Mark Wainwright Analyt Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bioanalyt Mass Spectrometry Facil, Mark Wainwright Analyt Ctr", "Bioanalyt Mass Spectrometry Facil, Mark Wainwright Analyt Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Stats Cent, Mark Wainwright Analyt Ctr", "Stats Cent, Mark Wainwright Analyt Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Accid Res & Rd Safety Ctr Accid Res & Rd Safety", "Ctr Accid Res & Rd Safety, Queensland Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Acton, Ctr Appl Macroecon Anal Ctr Appl Macroecon Anal", "Acton, Ctr Appl Macroecon Anal, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canberra, Ctr Appl Macroecon Anal Ctr Appl Macroecon Anal", "Canberra, Ctr Appl Macroecon Anal, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney, Ctr Appl Macroecon Anal Ctr Appl Macroecon Anal", "Sydney, Ctr Appl Macroecon Anal, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Atyp Neurodev Ctr Atyp Neurodev", "Ctr Atyp Neurodev, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr No Theory Res Ctr No Theory Res", "Ctr No Theory Res, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Autonomous Syst Ctr Autonomous Syst", "Ctr Autonomous Syst, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Ecosyst Sci Biol Earth & Environm Sci", "Ctr Ecosyst Sci Biol Earth & Environm Sci, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Ecosyst Sci Biol Earth & Environm Sci Ctr Ecosyst Sci Biol Earth & Environm Sci, UNSW", "Ctr Ecosyst Sci Biol Earth & Environm Sci, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Energy & Environm Markets Ctr Energy & Environm Markets", "Ctr Energy & Environm Markets, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vasc Biol Program, Ctr Endothelium", "Vasc Biol Program Ctr Endothelium, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Tas, Newtown, Vasc Biol Program", "Australia, NSW, Newtown, Vasc Biol Program", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Engn Quantum Syst Ctr Engn Quantum Syst", "Ctr Engn Quantum Syst, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Northfields Ave, Ctr Geomech & Railway Engn", "Northfields Ave, Ctr Geomech & Railway Engn, Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Integrated Res & Understanding Sleep Ctr Integrated Res & Understanding Sleep", "Ctr Integrated Res & Understanding Sleep, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Integrat Res & Understanding Sleep Ctr Integrat Res & Understanding Sleep", "Ctr Integrated Res & Understanding Sleep, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EMBL ABR EMBL ABR", "EMBL ABR", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EMBL Australia EMBL Australia", "EMBL Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Excellence Environm Decis Ctr Excellence Environm Decis", "Ctr Excellence Environm Decis, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ARC Ctr Excellence Free Radical Chem & Biotechnol ARC Ctr Excellence Free Radical Chem & Biotechnol", "ARC Ctr Excellence Free Radical Chem & Biotechnol, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ARC Ctr Excellence Populat Ageing Res CEPAR ARC Ctr Excellence Populat Ageing Res CEPAR", "ARC Ctr Excellence Populat Ageing Res CEPAR, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Excellence Populat Ageing Res Ctr Excellence Populat Ageing Res", "ARC Ctr Excellence Populat Ageing Res, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("2052, Sydney, Ctr Excellence Quantum Computat & Commun Technol Ctr Excellence Quantum Computat & Commun Technol", "2052, Sydney, Ctr Excellence Quantum Computat & Commun Technol, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Melbourne, Ctr Excellence Quantum Computat & Commun Technol Ctr Excellence Quantum Computat & Commun Technol", "Melbourne, Ctr Excellence Quantum Computat & Commun Technol, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Quantum Computat & Commun Technol Ctr Quantum Computat & Commun Technol", "Ctr Quantum Computat & Commun Technol, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Excellence Ultrahigh Bandwidth Devices Opt Sy Ctr Excellence Ultrahigh Bandwidth Devices Opt Sy", "Ctr Excellence Ultrahigh Bandwidth Devices Opt Sy, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ARC Ctr Excellence Ultrahigh Bandwidth Devices Op ARC Ctr Excellence Ultrahigh Bandwidth Devices Op", "ARC Ctr Excellence Ultrahigh Bandwidth Devices Op, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Ultrahighbandwidth Devices Opt Syst Ctr Ultrahighbandwidth Devices Opt Syst|Ctr Ultrahighbandwidth Devices Opt Syst, Univ Sydney", "ARC Ctr Excellence Ultrahigh Bandwidth Devices Op, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("2006, Sydney, ARC Ctr Excellence Ultrahigh Bandwidth Devices Op ARC Ctr Excellence Ultrahigh Bandwidth Devices Op|2006, Sydney, ARC Ctr Excellence Ultrahigh bandwidth Devices Op, Univ Sydney|2006, Sydney, ARC Ctr Excellence Ultrahigh Bandwidth Devices Op, Univ Sydney|2006, Sydney, Ctr Excellence Ultrahigh Bandwidth Devices Opt S, Univ Sydney|2006, Sydney, Ctr Excellence Ultrahigh Bandwidth Devices Opt Sy, Univ Sydney", "2006, Sydney, ARC Ctr Excellence Ultrahigh Bandwidth Devices Op, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Explorat & Targeting Ctr Explorat & Targeting", "Ctr Explorat & Targeting, Univ Western Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Quantum Sci, Ctr Gravitat Phys", "Ctr Gravitat Phys, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Biodivers Anal Ctr Biodivers Anal", "Ctr Biodivers Anal, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Inflammatory Dis Ctr Inflammatory Dis", "Ctr Inflammatory Dis, Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Anita Lawrence Chair High Performance Architectur Anita Lawrence Chair High Performance Architectur", "Anita Lawrence Chair High Performance Architectur, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("World Safety Org Collaborating Ctr Injury Prevent World Safety Org Collaborating Ctr Injury Prevent", "World Safety Org Collaborating Ctr Injury Prevent, James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Work Effectiveness & Leadership Lab Work Effectiveness & Leadership Lab|Work Effectiveness & Leadership Lab WELL Work Effectiveness & Leadership Lab WELL", "Work Effectiveness & Leadership Lab, ANU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Digital Futures Inst Australian Digital Futures Inst", "Australian Digital Futures Inst, Univ Southern Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Inst Bioengn & Nanotechnol Australian Inst Bioengn & Nanotechnol", "Australian Inst Bioengn & Nanotechnol, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Infrastruct Engn & Safety Ctr Infrastruct Engn & Safety", "Ctr Infrastruct Engn & Safety, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNSW Ctr Infrastruct Engn & Safety UNSW Ctr Infrastruct Engn & Safety", "Ctr Infrastruct Engn & Safety, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Law Markets & Regulat Ctr Law Markets & Regulat|Ctr Law Markets & Regulat, UNSW Law|Ctr Law Markets & Regulat, UNSW Business Sch|Ctr Law Mkt & Regulat Ctr Law Mkt & Regulat", "Ctr Law Markets & Regulat, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Management & Org Studies Res", "Ctr Management & Org Studies Res, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Brisbane, Ctr Microscopy & Microanal Ctr Microscopy & Microanal", "Brisbane, Ctr Microscopy & Microanal, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Ctr Microscopy & Microanal Australian Ctr Microscopy & Microanal|Australian Key Ctr Microscopy & Microanal Australian Key Ctr Microscopy & Microanal", "Australian Ctr Microscopy & Microanal, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Res Excellence Recovery Following Rd Traff In Ctr Res Excellence Recovery Following Rd Traff In", "Ctr Res Excellence Recovery Following Rd Traff In, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Phytochem & Pharmacol Ctr Phytochem & Pharmacol", "Ctr Phytochem & Pharmacol, Southern Cross Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Quantum Computat & Intelligent Syst Ctr Quantum Computat & Intelligent Syst", "Ctr Quantum Computat & Intelligent Syst, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Res Excellence Injecting Drug Use Ctr Res Excellence Injecting Drug Use|Ctr Res Excellence Injecting Drug Use & Burnet In Ctr Res Excellence Injecting Drug Use & Burnet In", "Ctr Res Excellence Injecting Drug Use, Burnet Inst", WoS_Ag7U_REV_RJ)
    
    #EH Graham Tidy Up
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat Ind & Investment NSW EH Graham Ctr Agr Innovat Ind & Investment NSW|EH Graham Ctr Agr Innovat & Ind & Investment NSW", "EH Graham Ctr Agr Innovat Ind & Investment NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Innovat Agr & Ind & Investment NSW EH Graham Ctr Innovat Agr & Ind & Investment NSW", "EH Graham Ctr Agr Innovat Ind & Investment NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW DPI, EH Graham Ctr Agr Innovat", "EH Graham Ctr Agr Innovat, NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat EH Graham Ctr Agr Innovat", "EH Graham Ctr Agr Innovat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW Dept Ind & Investment, EH Graham Ctr Agr Innovat", "EH Graham Ctr Agr Innovat, NSW Dept Ind & Investment", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat, Ind & Investment NSW Charles Sturt Univ|EH Graham Ctr Agr Innovat, Charles Sturt Univ & Ind & Investment NSW", "EH Graham Ctr Agr Innovat, Ind & Investment NSW Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat Ind & Innovat NSW EH Graham Ctr Agr Innovat Ind & Innovat NSW","EH Graham Ctr Agr Innovat Ind & Innovat NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat NSW DPI EH Graham Ctr Agr Innovat NSW DPI","EH Graham Ctr Agr Innovat NSW DPI", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Innovat Agr EH Graham Ctr Innovat Agr","EH Graham Ctr Innovat Agr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EH Graham Ctr Agr Innovat Ind & Innovat NSW","EH Graham Ctr Agr Innovat, Ind & Innovat NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wagga,EH","Wagga, EH", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Ctr Real Time Informat Networks Ctr Real Time Informat Networks","Ctr Real Time Informat Networks, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Res Assessment & Digital Learning CRADLE Ctr Res Assessment & Digital Learning CRADLE","Ctr Res Assessment & Digital Learning CRADLE, Deakin Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Res Excellence Early Prevent Obes Childhood Ctr Res Excellence Early Prevent Obes Childhood|Early Prevent Obes Childhood Ctr Res Excellence Early Prevent Obes Childhood Ctr Res Excellence", "Ctr Res Excellence Early Prevent Obes Childhood, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Sustainable Trop Fisheries & Aquaculture Ctr Sustainable Trop Fisheries & Aquaculture", "Ctr Sustainable Trop Fisheries & Aquaculture, James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Ctr Youth Subst Abuse Res Ctr Youth Subst Abuse Res", "Ctr Youth Subst Abuse Res, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Crit Care Res Collaborat & Evidence Translat CCRi Crit Care Res Collaborat & Evidence Translat CCRi", "Crit Care Res Collaborat & Evidence Translat CCRI, Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Curtin Monash Accid Res Ctr Curtin Monash Accid Res Ctr|Curtin Monash Accid Res Ctr C Marc, Curtin Univ Technol", "Curtin Monash Accid Res Ctr C MARC, Curtin Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Doherty Inst", ", Peter Doherty Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Peter Doherty Inst Doherty Inst", "Peter Doherty Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Peter Doherty Inst Doherty Inst", "Peter Doherty Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Earth & Planetary Sci Dept Earth & Planetary Sci", "Dept Earth & Planetary Sci, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Geog & Planning Dept Geog & Planning", "Dept Geog & Planning, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Econometr & Business Stat Dept Econometr & Business Stat|Dept Econometr & Business Stat, Monash Business Sch", "Dept Econometr & Business Stat, Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Austin, Dept Med Dept Med", "Austin, Dept Med", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Melbourne, Dept Med Dept Med", "Melbourne, Dept Med", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Microbiol Dept Microbiol", "Dept Microbiol, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Disabil Studies & Res Ctr Disabil Studies & Res Ctr", "Disabil Studies & Res Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Disabil Studies & Res Inst Disabil Studies & Res Inst", "Disabil Studies & Res Inst, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Indigenous Law Ctr Indigenous Law Ctr", "Indigenous Law Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Private Law Policy & Res Grp Private Law Policy & Res Grp", "Private Law Policy & Res Grp, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Kirby Inst Kirby Inst", "Kirby Inst, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Electoral Integr Project Electoral Integr Project", "Electoral Integr Project, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("EnTox EnTox|Natl Res Ctr Environm Toxicol Entox, Univ Queensland|Natl Res Ctr Environm Toxicil EnTox, Univ Queensland", "Natl Res Ctr Environm Toxicol EnTox, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Legal Intersect Res Ctr Legal Intersect Res Ctr", "Legal Intersect Res Ctr, Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("235 Jones St, UTS|235 Jones St, Brain Resource|235 Jones, Australian Prevent Partnership Ctr|235 Jones St, UTS|235 Jones St, Sax Inst|235 Jones St, Level 7|235 Jones St, Inst Sustainabil Futures|235 Jones St POB 123, UTS|235 253 Jones St, UTS", "235 Jones St, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Forced Migrat Res Network FMRN UNSW|Forced Migrat Res Network Forced Migrat Res Network|UNSW Forced Migrat Res Network UNSW Forced Migrat Res Network", "Forced Migrat Res Network, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Inst Water & Environm Resource Management Inst Water & Environm Resource Management|Inst Water & Environm Resource Management, Tech Univ", "Inst Water & Environm Resource Management, UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Appl Finance Ctr Macquarie Appl Finance Ctr", "Macquarie Appl Finance Ctr, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarine Ctr Cognit Sci Macquarine Ctr Cognit Sci|Macquarie Ctr Cognit Sci Macquarie Ctr Cognit Sci", "Macquarie Ctr Cognit Sci, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Macquarie Pk, Macquarie Macquarie", "Macquarie Pk, Macquarie Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Life Course Ctr Life Course Ctr", "Life Course Ctr, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lincoln Marine Sci Ctr Lincoln Marine Sci Ctr", "Flinders Univ S Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Opt Fibre Technol Ctr Opt Fibre Technol Ctr", "Opt Fibre Technol Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sydneys Plant Breeding Inst Cobbitty, Univ Sydney|Plant Breeding Inst Cobbitty, Univ Sydney|Plant Breeding Inst Plant Breeding Inst|Univ Sydney Plant Breeding Inst Cobbitty Univ Sydney Plant Breeding Inst Cobbitty", "Plant Breeding Inst, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("QFAB Bioinformat QFAB Bioinformat", "QFAB Bioinformat, Univ Queensland", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Queensland Res Ctr Peripheral Vasc Dis Queensland Res Ctr Peripheral Vasc Dis", "Queensland Res Ctr Peripheral Vasc Dis, James Cook Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Res Inst Environm & Livelihoods Res Inst Environm & Livelihoods|Res Inst Environm & Livelihoods, Charles Darwin Univ Charles Darwin Univ", "Res Inst Environm & Livelihoods, Charles Darwin Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Northwest Terri", "Australia, NT", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wollongong, SECTE SECTE|Wollongong, SECTE, Univ Univ Wollongong Wollongong", "Wollongong, SECTE, Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wollongong, SMART Infrastruct Facil SMART Infrastruct Facil|Wollongong, Smart Infrastruct Facil, Univ Wollongong", "Wollongong, SMART Infrastruct Facil, Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sydney Nano Inst Sydney Nano, Univ Sydney|Sydney Nano Sydney Nano|Sydney Nano Inst, Univ Sydney|Nano Inst Sydney Nano, Univ Sydney|Univ Sydney Nano Inst, Univ Sydney|Univ Sydney Nano Inst Univ Sydney Nano Inst|Univ Sydney Nano Inst Sydney Nano, Univ Sydney|Sydney Nanosci Hub, Univ Sydney|Sydney Nano, Univ Sydney|Sydney Nano Inst, Univ Sydney|Sydney Nano Inst Sydney Nano, Univ Sydney|Nano Inst Sydney Nano, Univ Sydney|Univ Sydney Nano Inst, Univ Sydney|Sydney Nanosci Inst, Univ Sydney|Sydney Nano, Univ Sydney|Sydney Nano Inst, Univ Sydney|Nano Inst Sydney Nano, Univ Sydney", "Sydney Nano Inst, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney Neuroimaging Anal Ctr Sydney Neuroimaging Anal Ctr|Australia Sydney Neuroimaging Anal Ctr Australia Sydney Neuroimaging Anal Ctr", "Sydney Neuroimaging Anal Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("94 Mallett St, Sydney Neuroimaging Anal Ctr", "94 Mallett St, Sydney Neuroimaging Anal Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney Southeast Asia Ctr Sydney Southeast Asia Ctr", "Sydney Southeast Asia Ctr, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Qual Use Med Network Qual Use Med Network", "Qual Use Med Network, Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("SIT SIT", "SIT, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Human Rights Ctr Australian Human Rights Ctr", "Australian Human Rights Ctr, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Craniofacial Inst Australian Craniofacial Inst", "Australian Craniofacial Inst, Univ Adelaide", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Ocean Data Network Australian Ocean Data Network","Australian Ocean Data Network, Univ Tasmania", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Res Alliance Children & Youth Australian Res Alliance Children & Youth","Australian Res Alliance Children & Youth, Univ Canberra", WoS_Ag7U_REV_RJ)
    
    #Health
    WoS_Ag7U_REV_RJ <- gsub("Canc, Council", "Canc Council", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW Canc Council", "Canc Council NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council NSW  Canc Council NSW|Canc Council NSW Canc Council NSW", "Canc Council NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council Canc Council NSW NSW", "Canc Council NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council Canc Council NSW NSW", "Canc Council NSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council Western Australia", "Canc Council WA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council WA Canc Council WA", "Canc Council WA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council Queensland", "Canc Council QLD", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Canc Council QLD Canc Council QLD", "Canc Council QLD", WoS_Ag7U_REV_RJ)
    
    #Gov
    WoS_Ag7U_REV_RJ <- gsub("Australian Marine Mammal Res Ctr, Zool Parks Board NSW|Australian Marine Mammal Res Ctr Australian Marine Mammal Res Ctr, Zool Parks Board NSW", "Zool Parks Board NSW, Australian Marine Mammal Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Batemans Marine Pk Batemans Marine Pk", "Batemans Marine Pk", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CMSE CMSE|CMSE, CSIRO|CMSE CMIS CSIRO, CSIRO|CSIRO Mat Sci & Engn CMSE CSIRO Mat Sci & Engn CMSE|CSIRO Mat Sci & Engn CMSE", "CSIRO Mat Sci & Engn CMSE", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Sydney, NSW Minist Hlth, Ctr Epidemiol & Evidence|Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth|Sydney, Ctr Epidemiol & Evidence, NSW Hlth", "Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2060, Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth|NSW 2060, Sydney, 73 Miller St, Ctr Epidemiol & Evidence", "NSW 2060, Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2059, Sydney, NSW Minist Hlth, Ctr Epidemiol & Evidence|NSW 2059, Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth LMB 961", "NSW 2059, Sydney, Ctr Epidemiol & Evidence, NSW Minist Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Lyell McEwin Hosp Lyell McEwin Hosp|Lyell McEwin Lyell McEwin", "Lyell McEwin Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("SA Hlth SA Hlth", "SA Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Life Sci Computat Ctr Life Sci Computat Ctr", "Life Sci Computat Ctr, Victorian Life Sci Computat Initiat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("MedSTAR Emergency Med Retrieval Serv, MedSTAR|MedSTAR Emergency Med Retrieval Serv MedSTAR Emergency Med Retrieval Serv|South Australia Ambulance Serv, MedSTAR", "MedSTAR, South Australia Ambulance Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Marine & Coastal Environm Grp Marine & Coastal Environm Grp", "Marine & Coastal Environm Grp, Geosci Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW ACI NSW ACI|ACI NSW ACI NSW", "NSW ACI", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Forens Serv Dept, Off Chief Forens Scientist, Victoria Police|Off Chief Forens Scientist, Victoria Police Forens Serv Ctr Victoria Police Forens Serv Ctr|Victoria Police Forens Serv Dept, Off Chief Forens Scientist|Off Chief Forens Scientist, Victoria Police|Off Chief Forens Scientist, Victorian Police Forens Serv Dept", "Off Chief Forens Scientist, Victoria Police Forens Serv Dept", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW, Cowra, NSW DPI, Ctr Red Meat & Sheep Dev|NSW, Cowra, Ctr Red Meat & Sheep Dev, NSW DPI", "NSW 2974, Cowra, Ctr Red Meat & Sheep Dev, NSW DPI", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW 27940, Cowra, Ctr Red Meat & Sheep Dev, NSW DPI|NSW 2794, Cowra, POB 129, Ctr Red Meat & Sheep Dev|NSW 2794, Cowra, NSW Primary Ind, Ctr Red Meat & Sheep Dev|NSW 2794, Cowra, NSW DPI, Ctr Red Meat & Sheep Dev|NSW 2794, Cowra, NSW Dept Primal Ind, Ctr Red Meat & Sheep Dev|NSW 2794, Cowra, Ctr Red Meat & Sheep Dev, NSW DPI|NSW 2794, Cowra, Ctr Red Meat & Sheep Dev, NSW Dept Primaty Ind|NSW 2794, Cowra, Ctr Red Meat & Sheep Dev, Ind & Investment NSW Primary Ind|NSW 2794, Cowra, Ctr Red Meat & Sheep Dev, Ind & Investment NSW|NSW 2794, Cowra, Ctr Red Meat & Sheep Dev Ctr Red Meat & Sheep Dev|NSW 2794, Corowa, Ctr Red Meat & Sheep Dev, NSW DPI|Cowra 2794, Ctr Red Meat & Sheep Dev, NSW DPI", "NSW 2974, Cowra, Ctr Red Meat & Sheep Dev, NSW DPI", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Off Environm & Heritage NSW Off Environm & Heritage NSW|NSW Off Environm & Heritage NSW Off Environm & Heritage", "NSW Off Environm & Heritage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Off Environm & Heritage NSW", "NSW Off Environm & Heritage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dept Environm & Heritage Dept Environm & Heritage", "Dept Environm & Heritage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Off Environm & Heritage Off Environm & Heritage", "NSW Off Environm & Heritage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Technol Pk Australian Technol Pk", "Australian Technol Pk", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Reptile Pk Australian Reptile Pk", "Australian Reptile Pk", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Premiers Council Act Living Premiers Council Act Living|NSW Premiers Council Act Living PCAL NSW Premiers Council Act Living PCAL", "NSW Premiers Council Act Living PCAL", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Environm Res Inst Supervising Scientis Environm Res Inst Supervising Scientis|Environm Res Inst Supervising Scientist Eriss Environm Res Inst Supervising Scientist Eriss", "Environm Res Inst Supervising Scientist", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Parkville, Royal Childrens Royal Childrens|Parkville, Royal Childrens Hosp Royal Childrens Hosp|Parkville, Royal Childrens Hosp Melbourne Royal Childrens Hosp Melbourne", "Parkville, Royal Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Parkville, Royal Childrens Hosp Melbourne, Univ Melbourne", "Parkville, Royal Childrens Hosp, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW Bur Crime Stat & Res, St James Ctr", "St James Ctr, NSW Bur Crime Stat & Res", WoS_Ag7U_REV_RJ)
    
    #Industry
    WoS_Ag7U_REV_RJ <- gsub("Resource Evaluat & Dev Resource Evaluat & Dev|Resource Evaluat & Dev Ltd Resource Evaluat & Dev Ltd","Resource Evaluat & Dev Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Signal Network Technol Signal Network Technol|Signal Network Technol Pty Ltd Signal Network Technol Pty Ltd","Signal Network Technol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Wetland & Ecol Treatment Syst Wetland & Ecol Treatment Syst|Wetland & Ecol Treatment Syst Ltd Wetland & Ecol Treatment Syst Ltd","Wetland & Ecol Treatment Syst Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("R&D, Vecor","R&D, Vecor Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vecor Pty Ltd Vecor Pty Ltd","Vecor Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tribe Res Pty Ltd Tribe Res Pty Ltd|Tribe Res Tribe Res","Tribe Res Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney Adventist Hosp Sydney Adventist Hosp","Sydney Adventist Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australasian Res Inst Australasian Res Inst|Sydney Adventist Hosp, Australasian Res Inst","Australasian Res Inst, Sydney Adventist Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australasian Res Inst Australasian Res Inst|Sydney Adventist Hosp, Australasian Res Inst","Australasian Res Inst, Sydney Adventist Hosp", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Killara, POB 212, Water Futuress Pty Ltd|Killara, Water Futures Pty Ltd Water Futures Pty Ltd", "Killara, Water Futures Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney, Water Futures Pty Ltd Water Futures Pty Ltd", "Sydney, Water Futures Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dundas Valley, Water Futures Water Futures|Dundas Valley, Water Future Water Future", "Dundas Valley, Water Futures Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Pymble, Water Futures Pty Ltd Water Futures Pty Ltd|Pymble, Water Futures Water Futures", "Pymble, Water Futures Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Caboolture Community Med Caboolture Community Med|Caboolture Community Med Ctr Caboolture Community Med Ctr", "Caboolture Community Med Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("URS URS", "URS Australia Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Kingscote, POB 966, Terrain Ecol|Kingscote, Terrain Ecol Terrain Ecol", "Kingscote, Terrain Ecol", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Corowa, Rivalea Rivalea|Corowa, Rivalea Pty Ltd Rivalea Pty Ltd|Corowa, Rivalea Australia Rivalea Australia|Corowa, Rivalea Australia Pty Ltd Rivalea Australia Pty Ltd|Australia, NSW 2646, Corowa, Rivalea Australia Rivalea Australia|Corowa, Rivalea Australia Pty Ltd Rivalea Australia Pty Ltd|Corowa, Lot 411 Redlands Rd, Rivalea Australia Pty Ltd", "Corowa, Rivalea Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Corowa, Res & Innovat, Rivalea Australia Pty Ltd|Corowa, Res & Innovat, Rivalea Australia Pty Ltd|Corowa, Res & Innovat Unit, Rivalea Ltd", "Corowa, Res & Innovat Unit, Rivalea Australia Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 2390, Burren Junction, 535 Tareela Ln, Ag Econ", "NSW 2386, Burren Junction, 535 Tareela Lane, Ag Econ", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW, Karuah, Australian Crayfish Project, Australian Aquat Biol PL", "NSW, Karuah, Australian Crayfish Project, Australian Aquat Biol Pty Ltd", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW 2324, Karuah, POB 3, Australian Aquat Biol Pty Ltd|NSW 2324, Karuah, Australian Crayfish Project, Australian Aquat Biol Pty Ltd|NSW 2324, Karuah, Australian Crayfish Project, Australian Aquat Biol", "NSW 2324, Karuah, Australian Crayfish Project, Australian Aquat Biol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, WA, Perth, Nilon Farm Hlth Nilon Farm Hlth|Australia, Tas, Perth, Nilon Farm Hlth Nilon Farm Hlth", "Australia, Tas, Perth, Nilon Farm Hlth", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Eveleigh, Bandwidth Foundry Pty Ltd Bandwidth Foundry Pty Ltd|Australian Technol Pk, Bandwidth Foundry Pty Ltd Bandwidth Foundry Pty Ltd|Sydney, Bandwidth Foundry Pty Ltd Bandwidth Foundry Pty Ltd|Sydney, Bandwidth Foundry, Australian Technol Pk|Eveleigh, Bandwidth Foundry Int Pty Ltd BFI Bandwidth Foundry Int Pty Ltd BFI", "Eveleigh, Australian Technol Pk, Bandwidth Foundry Int Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Smart Digital Opt Smart Digital Opt|Smart Digital Opt, Australian Technol Pk", "Eveleigh, Australian Technol Pk, Smart Digital Opt", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Wetlands Australian Wetlands|Australian Wetlands Consulting Pty Ltd Australian Wetlands Consulting Pty Ltd", "Australian Wetlands Consulting Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Avocado Engn Avocado Engn|Avocado Engn Pty Ltd Avocado Engn Pty Ltd", "Avocado Engn Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bionomics Bionomics|Bionomics Ltd Bionomics Ltd|Bionomics Ltd|Bionomics Ltd Bionomics Ltd", "Bionomics Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Farm Ewingar Farm Ewingar|Ewingar Ewingar|Ewingar, Farm Farm", "Ewingar Farm", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Botany, CSG Solar CSG Solar|Botany, CSG Solar Pty Ltd CSG Solar Pty Ltd|Bot, CSG Solar Pty Ltd", "Botany, CSG Solar Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CSG Solar Pty Ltd CSG Solar Pty Ltd", "Botany, CSG Solar Pty Ltd", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("NSW 20895, Kensington, Adv Biosci Labs Adv Biosci Labs|NSW 20895, Kensington, Adv Biosci Labs Inc Adv Biosci Labs Inc|NSW 20895, Kensington, Adv BioSci Labs Inc Adv BioSci Labs Inc|NSW, Kensington, Adv Biosci Labs Inc Adv Biosci Labs Inc|NSW, Kensington, Adv Biosci Labs Adv Biosci Labs|NSW 20895, Kensington, Dept Cell Biol, Adv BioSci Labs Inc", "NSW, Kensington, Adv Biosci Labs Inc", WoS_Ag7U_REV_RJ)
    
    #Postcode spacing
    WoS_Ag7U_REV_RJ <- gsub("Australia, 1", "Australia, NSW, 1", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, 2", "Australia, NSW, 2", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, 4", "Australia, Qld, 4", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, 5", "Australia, SA, 5", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, 6", "Australia, WA, 5", WoS_Ag7U_REV_RJ)
    
    #Oddments
    WoS_Ag7U_REV_RJ <- gsub("Apex Biometry Apex Biometry", "Apex Biometry", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australian Grain Technol Australian Grain Technol", "Australian Grain Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("BRI Australia|BRI Res", "BRI Australia Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Batemans Bay Fisheries Ctr Batemans Bay Fisheries Ctr", "Batemans Bay Fisheries Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Dairy Australia Dairy Australia", "Dairy Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("John L Black Consulting John L Black Consulting", "John L Black Consulting", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Chem Ctr", "ChemCtr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("ChemCentre", "ChemCtr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Novel Global Community Educ Fdn Novel Global Community Educ Fdn", "Novel Global Community Educ Fdn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW Primary Ind NSW Primary Ind", "NSW Primary Ind", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW Sugar Milling Co Operat NSW Sugar Milling Co Operat", "NSW Sugar Milling Co Operat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Peanut Co Australia Peanut Co Australia", "Peanut Co Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Pears Soil & Garden Supplies Pears Soil & Garden Supplies", "Pears Soil & Garden Supplies", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Prot Pk Nutr Prot Pk Nutr|Protea Pk Nutr Protea Pk Nutr", "Protea Pk Nutr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sanitarium Dev & Innovat Sanitarium Dev & Innovat", "Sanitarium Dev & Innovat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sanit Dev & Innovat", "Sanitarium Dev & Innovat", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Smithton Vet Serv Smithton Vet Serv", "Smithton Vet Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sugar Res Australia Sugar Res Australia", "Sugar Res Australia", WoS_Ag7U_REV_RJ)
    ###Corporate
    #Alltech Biotech
    WoS_Ag7U_REV_RJ <- gsub("Alltech Biotechnol", "Alltech Biotechnol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Alltech Biotechnol Pty Ltd PL|Alltech Biotechnol Pty Ltd P L|Alltech Biotechnol Pty Ltd Pte Ltd", "Alltech Biotechnol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Alltech Biotechnol Pty Ltd Alltech Biotechnol Pty Ltd", "Alltech Biotechnol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Alltech Biotechnol Pty Ltd Pty Ltd Pty Ltd, Biotechnol Pty Ltd Pty Ltd Alltech Biotechnol Pty Ltd Pty Ltd Pty Ltd, Biotechnol Pty Ltd Pty Ltd|Alltech Biotechnol Pty Ltd Pty Ltd Pty Ltd, Biotechnol Pty Ltd Pty Ltd Alltech Biotechnol Pty Ltd Pty Ltd Pty Ltd, Biotechnol Pty Ltd Pty Ltd", "Alltech Biotechnol Pty Ltd", WoS_Ag7U_REV_RJ)
    #Others 2021 09 13
    WoS_Ag7U_REV_RJ <- gsub("Symb Vemost Lab Symb Vemost Lab|Symb Vetnost Symb Vetnost|Symb Vetnost Lab Symb Vetnost Lab|Symbion Vetnost Symbion Vetnost", "Symb Vetnost Lab", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Selbome", "Selborne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("54 Docker St Wagga", "54 Docker St", WoS_Ag7U_REV_RJ)
    
    #Agilent Technol Australia
    WoS_Ag7U_REV_RJ <- gsub("Agilent Technol Australia", "Agilent Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Agilent Technolies", "Agilent Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Agilent Technol", "Agilent Technol Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Pty Ltd Pty Ltd", "Pty Ltd", WoS_Ag7U_REV_RJ)
    #AGL
    WoS_Ag7U_REV_RJ <- gsub("AGL Energy", "AGL Energy Ltd", WoS_Ag7U_REV_RJ)
    #Bovine Res Australasia
    WoS_Ag7U_REV_RJ <- gsub("AgBovine Res Australia", "Bovine Res Australasia", WoS_Ag7U_REV_RJ)
    #Paperbark
    WoS_Ag7U_REV_RJ <- gsub("Paperback Co", "Paperbark Co", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Ltd Ltd Ltd|Ltd Ltd", "Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Edaph Sci Pty Ltd  Edaph Sci Pty Ltd|Edaph Sci Pty Ltd Edaph Sci Pty Ltd", "Edaph Sci Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bumet Inst|Burnett Inst", "Burnet Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bums", "Burns", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Heartbum", "Heartburn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinbume", "Swinburne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sch Hlth Sci, Swinbume Univ", "Sch Hlth Sci, Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swinburne UTS", "Swinburne Univ Technol", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Phamaceut", "Pharmaceut", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sornersby", "Somersby,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Corner Bot & High Str|Corner High & Bot St", "Corner Bot & High St,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(" Str,", " St,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(" Rds,", " Rd,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Squaires Way|Sq Way|Squire Way", "Squires Way", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Calaghan", "Callaghan", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Kensington, iVEC|NSW, Kensington, IVEC", "WA, Kensington, iVEC", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Kensington, Ctr Sustainable Resource Proc", "WA, Kensington, Ctr Sustainable Resource Proc", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Univ Univ Wollongong Wollongong", "Univ Wollongong", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Cent Queensland CQ Univ Univ", "CQ Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("La Trobe La Trobe Univ Univ|La Trobe Univ La Trobe Univ", "La Trobe Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RMIT Univ Univ|RMIT Univ RMIT Univ RMIT", "RMIT Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Western Sydney Univ Univ", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Univ Macarthur Western Sydney Univ Macarthur|Western Sydney Univ Macarthur", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Univ Nepean Western Sydney Univ Nepean|Western Sydney Univ Nepean", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Univ Hawkesbury Western Sydney Univ Hawkesbury|Western Sydney Univ Hawkesbury", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Western Sydney Univ Blacktown Campus|Western Sydney Univ Bankstown", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sydney Univ Univ Sydney Univ", "Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ Sydney Charles Sturt Univ Univ Sydney Charles Sturt Univ", "Univ Sydney & Charles Sturt Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UTS UTS", "UTS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Western Sydney, Perth, ", "Australia, WA, Perth, ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("CRE CARE|CRCCARE", "CRC CARE", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas 2042", "NSW 2042", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Sheriff Hwy Sheriff Hwy", "England, Tyne & Wear, Gateshead, Sheriff Hwy", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dermatopathol Friedreichshafend Dermatopathol Friedreichshafend", "Germany, 88048 Friedrichshafen, Siemensstraße 6/1, Dermatopathol Friedreichshafend Dermatopathol Friedreichshafend", WoS_Ag7U_REV_RJ) #Google Check
    
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Lab Bacterial & TSE Agents, US FDA", "MD USA, Kensington, Lab Bacterial & TSE Agents, US FDA", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("England, London, Banking & Finance Australia, Norton Rose Fulbright Norton Rose Fulbright", "England, London, Banking & Finance Aust, Norton Rose Fulbright Norton Rose Fulbright", WoS_Ag7U_REV_RJ) #UK address, changed from England, London, Banking & Finance Australia, Norton Rose Fulbright Norton Rose Fulbright to Aust so it doesn't get counted
   
  #2021 12 08 Clean  
  WoS_Ag7U_REV_RJ <- gsub("8 Macquarie St, Sydney Hosp", "8 Macquarie St, Sydney Eye Hosp", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Sydney, Hosp Eye Hosp Eye", "Sydney, Sydney Eye Hosp", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Royal N Shore Hosp", "Royal North Shore Hosp", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Woden, POB 11, C", "Woden, C", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("ACT, Alice Springs", "NT, Alice Springs", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Canberra, Act Pathol", "Canberra, ACT Pathol", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Coggee, Natl Ctr HIV Epidemiol & Clin Res Natl Ctr HIV Epidemiol & Clin Res", "Coogee, Natl Ctr HIV Epidemiol & Clin Res, UNSW", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Randwick, Barker St, Neurosci Res", "Randwick, Barker St, Neurosci Res Australia", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("Australia Australia", "Australia", WoS_Ag7U_REV_RJ)
  WoS_Ag7U_REV_RJ <- gsub("SE Sydney & Illawarra Publ Hlth Unit", "S Eastern Sydney & Illawarra Publ Hlth Unit", WoS_Ag7U_REV_RJ)
  
    #Clean
    
    WoS_Ag7U_REV_RJ <- gsub(",1", ", 1", WoS_Ag7U_REV_RJ) #458
    WoS_Ag7U_REV_RJ <- gsub(",2", ", 2", WoS_Ag7U_REV_RJ) #333
    WoS_Ag7U_REV_RJ <- gsub(",3", ", 3", WoS_Ag7U_REV_RJ) #172
    WoS_Ag7U_REV_RJ <- gsub(",4", ", 4", WoS_Ag7U_REV_RJ) #119
    WoS_Ag7U_REV_RJ <- gsub(",5", ", 5", WoS_Ag7U_REV_RJ) #77
    WoS_Ag7U_REV_RJ <- gsub(",6", ", 6", WoS_Ag7U_REV_RJ) #96
    WoS_Ag7U_REV_RJ <- gsub(",7", ", 7", WoS_Ag7U_REV_RJ) #138
    WoS_Ag7U_REV_RJ <- gsub(",8", ", 8", WoS_Ag7U_REV_RJ) #88
    WoS_Ag7U_REV_RJ <- gsub(",9", ", 9", WoS_Ag7U_REV_RJ) #81
    WoS_Ag7U_REV_RJ <- gsub(",,", ",", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("  ", " ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(" ,", ",", WoS_Ag7U_REV_RJ) 
    
    #2021 10 29
    WoS_Ag7U_REV_RJ <- gsub("Australia, Penrith", "Australia, NSW Penrith", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Pymble", "Australia, NSW Pymble", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, Port Kembla", "Australia, NSW Port Kembla", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Bay New South W 2315, Nelson", "Australia, NSW 2315, Nelson Bay", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, PQld", "Australia, Qld", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Pullenvale", "Australia, Qld, Pullenvale", WoS_Ag7U_REV_RJ)
    
    #2021 12 14
    WoS_Ag7U_REV_RJ <- gsub("Australia, WA, Perth, Scottish", "Scotland, Perth, Scottish", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Watford,", "England, Watford", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, WA, Crawley 6009,", "Australia, WA, Crawley", WoS_Ag7U_REV_RJ)
    
    #2021 12 16
    WoS_Ag7U_REV_RJ <- gsub("Coils Harbour Base Hosp", "Coffs Harbour Base Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Caims Base Hosp", "Cairns Base Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 3076, Epping,", "Vic 3076, Epping,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No CAT Team,", "Vic 3076, Epping, No CAT Team,", WoS_Ag7U_REV_RJ)
    #More Epping in Victoria listed as NSW
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, 185 Cooper St, Northern Hosp","Vic, Epping, 185 Cooper St, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Aged Care Dept, Northern Hlth", "Vic, Epping, Aged Care Dept, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Allied Hlth, Northern Hlth", "Vic, Epping, Allied Hlth, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Clin Serv Med, No Hosp", "Vic, Epping, Clin Serv Med, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Cooper St, Northern Hlth", "Vic, Epping, Cooper St, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Cooper St, Northern Hosp", "Vic, Epping, Cooper St, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Aged Care, Northern Hosp", "Vic, Epping, Dept Aged Care, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Allied Hlth, Northern Hlth", "Vic, Epping, Dept Allied Hlth, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Anaesthesia & Perioperat Med, Northern Hosp", "Vic, Epping, Dept Anaesthesia & Perioperat Med, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Anaesthesia, Northern Hosp", "Vic, Epping, Dept Anaesthesia, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Biochem Austin Pathol, Northern Hosp", "Vic, Epping, Dept Biochem Austin Pathol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Cardiol, Northern Hlth", "Vic, Epping, Dept Cardiol, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Cardiol, Northern Hosp", "Vic, Epping, Dept Cardiol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Clin Haematol, Northern Hlth", "Vic, Epping, Dept Clin Haematol, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Dermatol, Northern Hosp", "Vic, Epping, Dept Dermatol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Endocrinol & Diabet, Northern Hosp", "Vic, Epping, Dept Endocrinol & Diabet, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Epidemiol & Prevent Med, Monash Univ", "Vic, Epping, Dept Epidemiol & Prevent Med, Monash Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Gen Med, Northern Hosp", "Vic, Epping, Dept Gen Med, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Haematol, Northern Hosp", "Vic, Epping, Dept Haematol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Infect Dis, Univ Melbourne", "Vic, Epping, Dept Infect Dis, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Intens Care, No Hosp", "Vic, Epping, Dept Intens Care, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Med, Univ Melbourne", "Vic, Epping, Dept Med, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Obstet & Gynaecol, Northern Hosp", "Vic, Epping, Dept Obstet & Gynaecol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Orthopaed Surg, Northern Hosp", "Vic, Epping, Dept Orthopaed Surg, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Plast Reconstruct & Hand Surg, Northern Hosp", "Vic, Epping, Dept Plast Reconstruct & Hand Surg, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Radiol, Northern Hosp", "Vic, Epping, Dept Radiol, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Speech Pathol, Northern Hlth", "Vic, Epping, Dept Speech Pathol, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Dept Surg, Northern Hlth", "Vic, Epping, Dept Surg, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Div Allied Hlth, No Hlth", "Vic, Epping, Div Allied Hlth, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Emergency Dept, No Hosp", "Vic, Epping, Emergency Dept, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Emergency Dept, Northern Hosp", "Vic, Epping, Emergency Dept, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Intens Care Serv, Northern Hlth", "Vic, Epping, Intens Care Serv, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Intens Care Unit, Northern Hosp", "Vic, Epping, Intens Care Unit, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No CAT Team, No Gen Hosp", "Vic, Epping, No CAT Team, Northern Gen Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No Clin Res Ctr No Clin Res Ctr", "Vic, Epping, Northern Clin Res Ctr Northern Clin Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No Clin Res Ctr, No Hosp", "Vic, Epping, Northern Clin Res Ctr, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No Gen Hosp, Univ Melbourne", "Vic, Epping, Northern General Hosp, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No Hosp, Deakin Univ No Hlth Clin Partnership", "Vic, Epping, Northern Hosp, Deakin Univ Northern Hlth Clin Partnership", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, No Psychiat Res Ctr No Psychiat Res Ctr", "Vic, Epping, No Psychiat Res Ctr No Psychiat Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Area Mental Hlth Serv Northern Area Mental Hlth Serv", "Vic, Epping, Northern Area Mental Hlth Serv Northern Area Mental Hlth Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Area Mental Hlth Serv, Northern Hosp", "Vic, Epping, Northern Area Mental Hlth Serv, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Area Mental Hlth Serv, Northern Psychiat Res Ctr", "Vic, Epping, Northern Area Mental Hlth Serv, Northern Psychiat Res Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Clin Res Ctr, Northern Hosp", "Vic, Epping, Northern Clin Res Ctr, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Ctr Hlth Educ & Res & Community Therapy, Northern Hlth", "Vic, Epping, Northern Ctr Hlth Educ & Res & Community Therapy, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Hlth Northern Hlth", "Vic, Epping, Northern Hlth Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Hlth, Univ Melbourne", "Vic, Epping, Northern Hlth, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Hosp Northern Hosp", "Vic, Epping, Northern Hosp Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Northern Hosp, Northern Hlth", "Vic, Epping, Northern Hosp, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Nurse Practitioner Demonstrat Project, No Area Mental Hlth Serv", "Vic, Epping, Nurse Practitioner Demonstrat Project, No Area Mental Hlth Serv", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Physiotherapy Dept, Northern Hlth", "Vic, Epping, Physiotherapy Dept, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Specialist Orthodont Practice Specialist Orthodont Practice","Vic, Epping, Specialist Orthodont Practice Specialist Orthodont Practice", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW, Epping, Symb Imaging No Hosp Symb Imaging No Hosp","Vic, Epping, Symb Imaging Northern Hosp Symb Imaging Northern Hosp", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, 185Cooper St, Univ Melbourne", "Vic 3076, Epping, 185 Cooper St, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, 85 Cooper St, Northern Hlth", "Vic 3076, Epping, 185 Cooper St, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, Crit Care Dept, No Hosp", "Vic 3076, Epping, Crit Care Dept, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, Dept Cardiol, No Hlth", "Vic 3076, Epping, Dept Cardiol, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, Dept Med No Hlth, Univ Melbourne", "Vic 3076, Epping, Dept Med Northern Hlth, Univ Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic 3076, Epping, No Clin Res Ctr, No Hlth", "Vic 3076, Epping, Northern Clin Res Ctr, Northern Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic, Epping, No Clin Res Ctr, No Hosp", "Vic, Epping, Northern Clin Res Ctr, Northern Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Vic, Epping, No Gen Hosp No Gen Hosp", "Vic, Epping, Northern General Hosp Northern General Hosp", WoS_Ag7U_REV_RJ)
    
    #2021 12 20
    #Corrections continued 
    WoS_Ag7U_REV_RJ <- gsub("Bencligo", "Bendigo", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Lake Success, Northwell Hlth LLC", "NY USA, Lake Success, Northwell Hlth LLC", WoS_Ag7U_REV_RJ)
    
    #2021 12 21
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Castlehill", "Scotland, Perthshire, Castlehill", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW V3L 3W7,", "Canada, BC, V3L 3W7", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Norrth Shore Hosp|Royal Northshore Hosp|Royal N Share Hosp|Royal North Sahore Hosp", "Royal North Shore Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Brisbabe & Womens Hosp|Royal Brisbane &Womens Hosp", "Royal Brisbane & Womens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Childrens hosp", "Royal Brisbane Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW SW3 6NP, Sydney", "England, London SW3 6NP, Sydney Street", WoS_Ag7U_REV_RJ)
    
    #2021 12 22
    WoS_Ag7U_REV_RJ <- gsub("Icon Canc", "ICON Canc", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sydney Children s Hosp Network", "Sydney Childrens Hlth Network", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Newcastle Western Subirbs Hosp", "Newcastle Western Suburbs Hosp", WoS_Ag7U_REV_RJ)
    #Newcastle Great North Hopsital
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Great North Childrens Hosp Great North Childrens Hosp", "England, Newcastle Upon Tyne, Great North Childrens Hosp Great North Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Paediat Oncol, Great North Childrens Hosp", "England, Newcastle Upon Tyne, Dept Paediat Oncol, Great North Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Paediat Gastroenterol, Great North Childrens Hosp", "England, Newcastle Upon Tyne, Paediat Gastroenterol, Great North Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Paediat Rheumatol, Great North Childrens Hosp", "England, Newcastle Upon Tyne, Paediat Rheumatol, Great North Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Sir James Spence Inst, Great North Childrens Hosp", "England, Newcastle Upon Tyne, Sir James Spence Inst, Great North Childrens Hosp",WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Will Marriage Great North Childrens Hosp Will Marriage Great North Childrens Hosp", "England, Newcastle Upon Tyne,Will Marriage Great North Childrens Hosp Will Marriage Great North Childrens Hosp",WoS_Ag7U_REV_RJ)
    #Newcastle Freeman Rd Hospital
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Cardiothorac Serv, Freeman Rd Hosp", "England, Newcastle Upon Tyne, Cardiothorac Serv, Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Ctr Cardiothorac, Freeman Rd Hosp" , "England, Newcastle Upon Tyne, Ctr Cardiothorac, Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Dept Paediat Cardiol, Freeman Rd Hosp", "England, Newcastle Upon Tyne, Dept Paediat Cardiol, Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub( "Australia, NSW, Newcastle, Freeman Rd Hosp Freeman Rd Hosp", "England, Newcastle Upon Tyne, Freeman Rd Hosp Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Musculoskeletal Serv, Freeman Rd Hosp", "England, Newcastle Upon Tyne, Musculoskeletal Serv, Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Sir William Leech Ctr Lung Res, Freeman Rd Hosp|Australia, NSW, Newcastle, Sir William Leech Ctr, Freeman Rd Hosp", "England, Newcastle Upon Tyne, Sir William Leech Ctr, Freeman Rd Hosp", WoS_Ag7U_REV_RJ)
      
    #2021 12 23
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Adelaide, Calvary", "Australia, NSW, Newcastle, Calvary", WoS_Ag7U_REV_RJ)  
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Adelaide,", "Australia, SA, Adelaide,", WoS_Ag7U_REV_RJ)  
    WoS_Ag7U_REV_RJ <- gsub("Outback GP", "Outback Gen Practice", WoS_Ag7U_REV_RJ)   
    WoS_Ag7U_REV_RJ <- gsub("Cent & No Adelaide|Cent No Adelaide", "Cent & Northern Adelaide", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Nevt Zealand", "New Zealand", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia & New Zealand Dialysis & Transplant ANZ Australia & New Zealand Dialysis & Transplant ANZ|Australia & New Zealand Dialysis & Transplant AN Australia & New Zealand Dialysis & Transplant AN|Australia & New Zealand Dialysis & Transplant ANZ Australia & New Zealand Dialysis & Transplant ANZ|Australia & New Zealand Dialysis & Transplant Reg Australia & New Zealand Dialysis & Transplant Reg|Australia & New Zealand Dialysis & Transplant Res Australia & New Zealand Dialysis & Transplant Res|Australia & New Zealand Dialysis & Transplantat A Australia & New Zealand Dialysis & Transplantat A|Australia & New Zealand Dialysis & Transplant Reg Australia & New Zealand Dialysis & Transplant Reg|Australia & New Zealand Dialysis & Transplant Reg Australia & New Zealand Dialysis & Transplant Reg", "Australia & New Zealand Dialysis & Transplant ANZ Australia & New Zealand Dialysis & Transplant Register ANZ", WoS_Ag7U_REV_RJ)
    
    #Tas to NSW, Newtown
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Centenary Inst", "NSW, Newtown, Centenary Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Baird Inst Appl Heart & Lung Surg Res", "NSW, Newtown, Baird Inst Appl Heart & Lung Surg Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Gene & Stem Cell Therapy Program, Univ Sydney", "NSW, Newtown, Gene & Stem Cell Therapy Program, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Royal Prince Alfred Hosp", "NSW, Newtown, Royal Prince Alfred Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Mycobacterial Res Program", "NSW, Newtown, Mycobacterial Res Program", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, RPAH Med Ctr RPAH Med Ctr", "NSW, Newtown, Royal Prince Alfred Hosp Med Ctr Royal Prince Alfred Hosp Med Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Natl Assoc People Living HIV AIDS Natl Assoc People Living HIV AIDS|Tas, Newtown, Natl Assoc People HIV Australia Natl Assoc People HIV Australia", "NSW, Newtown, Natl Assoc People Living HIV AIDS Natl Assoc People Living HIV AIDS", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Heart Res Inst", "NSW, Newtown, Heart Res Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Cent Clin Sch", "NSW, Newtown, Cent Clin Sch", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Sydney Med Sch", "NSW, Newtown, Sydney Med Sch", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Intersex Human Rights Australia", "NSW, Newtown, Intersex Human Rights Australia", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Cardiovasc Magnet Resonance", "NSW, Newtown, Cardiovasc Magnet Resonance", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, George Inst Global Hlth", "NSW, Newtown, George Inst Global Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Dept Res Evaluat & Social Policy", "NSW, Newtown, Dept Res Evaluat & Social Policy", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Hlth Econ & Proc Evaluat Program", "NSW, Newtown, Hlth Econ & Proc Evaluat Program", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Resp Trials, George Inst Global Hlth", "NSW, Newtown, Resp Trials, George Inst Global Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Renal & Metab Div, George Inst Global Hlth", "NSW, Newtown, Renal & Metab Div, George Inst Global Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, 1 King St, UNSW", "NSW, 1 King St, UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Div Stat, George Inst Global Hlth", "NSW, Newtown, Div Stat, George Inst Global Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Skin Imaging & Inflammat Lab, Centenary Inst", "NSW, Newtown, Skin Imaging & Inflammat Lab, Centenary Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Immune Imaging Program, Univ Sydney", "NSW, Newtown, Immune Imaging Program, Univ Sydney", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Australian Federat AIDS Organisat AFAO", "NSW, Newtown, Australian Federat AIDS Organisat AFAO", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, Res Evaluat & Social Policy Unit, CanTeen", "NSW, Newtown, Res Evaluat & Social Policy Unit, CanTeen", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Tas, Newtown, George Inst Global Hlth George Inst Global Hlth", "NSW, Newtown, George Inst Global Hlth George Inst Global Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, MA, Norwood", "Australia, SA, Norwood", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Strathalbyn", "Australia, SA, Strathalbyn", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, SA 0000, Adelaide", "Australia, SA 5000, Adelaide", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Fertil SA", "Fertility SA", WoS_Ag7U_REV_RJ)
    
#2021 12 29
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kingswood, Avon ", "England, Avon, Kingswood, Avon ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Sutter Hlth", "United States, CA 95661, Roseville, Sutter Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Radiat Oncol Ctr, Sutter Community Hosp", "United States, CA 95661, Roseville, Radiat Oncol Ctr, Sutter Community Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 95661, Roseville, No Calif Fertil Med Ctr No Calif Fertil Med Ctr", "United States, CA 95661, Roseville, No Calif Fertil Med Ctr No Calif Fertil Med Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 55113, Roseville, Drug Discovery Program, Parker Hughes Canc Ctr", "United States, CA,   Roseville, Drug Discovery Program, Parker Hughes Canc Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Roseville, Sacramento Ear Nose & Throat Med & Surg Grp ", "United States, CA, Roseville, Sacramento Ear Nose & Throat Med & Surg Grp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Cho Ray Hosp", "Vietnam, Ho Chi Minh City, Cho Ray Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Portadown, Craigavon", "Northern Ireland, County Armagh, Portadown, Craigavon", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, North East Publ Hlth England Ctr, Publ Hlth England", "England, Newcastle upon Tyne, North East Publ Hlth England Ctr, Publ Hlth England", WoS_Ag7U_REV_RJ)
    
#2021 12 30
    WoS_Ag7U_REV_RJ <- gsub("Australia, Singapore 539747,", "Singapore 539747,", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Greenslopes", "Australia, Qld, Greenslopes", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Gallipoli Med Res Inst Gallipoli Med Res Inst", "Gallipoli Med Res Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Illawarra Heath Med Res", "Ilawarra Hlth & Med Res Inst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("uRepubl Cosmet Skin & Laser Clin", "URepubl Cosmet Skin & Laser Clin", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("North Sydney Orthopaed & Sports Med North Sydney Orthopaed & Sports Med", "North Sydney Orthopaed & Sports Med Ctr North Sydney Orthopaed & Sports Med Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Royal Price Alfred Hosp|Royal Prince Allied Hosp", "Royal Prince Alfred Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Dickson Inst Hlth Studies, Carolinas HealthCare Syst", "United States, NC, Charlotte, Dickson Inst Hlth Studies, Carolinas HealthCare Syst", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Liver Pool", "Liverpool", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Paediat Nephrol, Great North Children Hosp", "England, Newcastle upon Tyne, Paediat Nephrol, Great North Children Hosp", WoS_Ag7U_REV_RJ)
    
#2021 12 31
    WoS_Ag7U_REV_RJ <- gsub("Crows Nes,", "Crows Nest,", WoS_Ag7U_REV_RJ)
#2022 01 01
    WoS_Ag7U_REV_RJ <- gsub("Australia, Durham", "England, Durham", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Fiji", "Fiji", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("U Western Sydney", "Western Sydney Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, North England EU", "England, Newcastle upon Tyne, North England EU", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Hunter New England Local", "Australia, NSW, Newcastle, Hunter New England Local", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Neurosci Inst Schizsophrenia & Allied Disorders", "Neurosci Inst Schizophrenia & Allied Disorders", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("UNS WAustralia", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("RaveNSWood Sch Girls", "Ravenswood Sch Girls", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Coifs", "Coffs", WoS_Ag7U_REV_RJ)
    
    #2022 01 02
    WoS_Ag7U_REV_RJ <- gsub("Univ New South Wale|Univ New Southwales|Univ New SouthWales|Univ New Sou th Wales|univ New South wales|UNSWT", "UNSW", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Sch Finacne & Econ", "Sch Finance & Econ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("univ Notre Dame Australia", "Univ Notre Dame", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub(", Notre Dame Australia", ", Univ Notre Dame", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Griffiths Univ", "Griffith Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Parramattu", "Parramatta", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW NE2 4BW, Newcastle, Sch Dent Sci, Newcastle Univ", "England, NE2 4BW, Newcastle, Sch Dent Sci, Newcastle Univ", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Melbournee", "Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Penrith, Sch Earth & Environm, Univ Leeds & Curlew Cottage", "England, Cumbria, Penrith, Sch Earth & Environm, Univ Leeds & Curlew Cottage", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld, Sunshine, Joseph", "Australia, Vic, Sunshine, Joseph", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, UT, Logan,", "Australia, Qld, Logan,", WoS_Ag7U_REV_RJ)
    #2022 01 03
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Griffith, Sch Law, Griffith Coll", "Ireland, Dublin, Sch Law, Griffith Coll", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Griffith, Griffith Coll Dublin Griffith Coll Dublin", "Ireland, Dublin, Griffith Coll Dublin Griffith Coll Dublin", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Camden, Lawyering Programs, Rutgers Sch Law Camden", "United States, NJ, Camden, Lawyering Programs, Rutgers Sch Law Camden", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Camden, Rutgers Sch Law Camden Rutgers Sch Law Camden", "United States, NJ, Camden, Rutgers Sch Law Camden Rutgers Sch Law Camden", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NC, Chapel Hill, Independent Scholar Independent Scholar", "United States, NC, Chapel Hill, Independent Scholar Independent Scholar", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Univ New Castle", "Univ Newcastle", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Melbourne", "Australia, Vic, Melbourne", WoS_Ag7U_REV_RJ)
    
    #2022 01 04
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Camden, Robert Wood Johnson Med Sch, UMDNJ", "United States, NJ, Camden, Robert Wood Johnson Med Sch, UMDNJ", WoS_Ag7U_REV_RJ) 
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 3181,", "Australia, Vic 3181,", WoS_Ag7U_REV_RJ)
    
    #2022 01 05                    
    WoS_Ag7U_REV_RJ <- gsub("Caperdown", "Camperdown", WoS_Ag7U_REV_RJ)
    #2022 01 07
    WoS_Ag7U_REV_RJ <- gsub("25221", "2500", WoS_Ag7U_REV_RJ)                    
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, Sir Bobby Robson Canc Trials Res Ctr", "England, Newcastle-upon-Tyne, Sir Bobby Robson Canc Trials Res Ctr", WoS_Ag7U_REV_RJ)                    
    WoS_Ag7U_REV_RJ <- gsub("Mater Childrins Hosp", "Mater Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Melbourne", "Australia, Vic, Melbourne, Melbourne", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Swanson St", "Swanston St", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Cheltenham|Australia, Cheltenham", "Australia, Vic, Cheltenham", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Femantle Hosp", "Fremantle Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Bentley Delivem Ctr", "Bentley Delivery Ctr", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Elorey Inst Neuroscience & Mental Hlth", "Florey Inst Neuroscience & Mental Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Redfem", "Redfern", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NewcastleMelanoma Unit", "Newcastle Melanoma Unit", WoS_Ag7U_REV_RJ)
    
    #2022 01 09
    WoS_Ag7U_REV_RJ <- gsub("Austin Heath", "Austin Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Menzies Sch Heath Res", "Menzies Sch Hlth Res", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Melbourne, Australian Longitudinal Study Womens Hlth", "Australia, NSW, Newcastle, Australian Longitudinal Study Womens Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Vic, Melbourne, Australian Longitudinal Study Womens Hlth", "Australia, NSW, Newcastle, Australian Longitudinal Study Womens Hlth", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Red Cross War Mem Childrens Hosp Red Cross War Mem Childrens Hosp", "South Africa, Cape Town, Red Cross War Mem Childrens Hosp Red Cross War Mem Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW 2024, Waverley, S Eastern Sydney & Illawarra Area Hlth Serv, Red Cross War Mem Childrens Hosp", "South Africa, Cape Town, Red Cross War Mem Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Physiotherapy Serv, Red Cross War Mem Childrens Hosp", "South Africa, Cape Town, hysiotherapy Serv, Red Cross War Mem Childrens Hosp", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australilan", "Australian", WoS_Ag7U_REV_RJ)
    
    #2022 01 10
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Kensington, Kensington & Chelsea Social Council", "England, London, Kensington, Kensington & Chelsea Social Council", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW SW7 2AZ, Kensington, Dept Chem, Imperial Coll Med", "England, SW7 2AZ, Kensington, Dept Chem, Imperial Coll Med", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Tamworth, Rawlett Community Sports Coll", "England, Tamworth, Rawlett Community Sports Coll", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Tamworth, South Staffordshire Coll South Staffordshire Coll", "England, Tamworth, South Staffordshire Coll South Staffordshire Coll", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Alpacrucis Coll", "Alphacrucis College", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Hann Reduct Victoria", "Harm Reduct Victoria", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("NSW 0297726131, Penrith,", "NSW, Penrith,", WoS_Ag7U_REV_RJ)
    
    #2022 01 12
    WoS_Ag7U_REV_RJ <- gsub("St Laonards,", "St Leonards,", WoS_Ag7U_REV_RJ)
    
    #2022 01 14
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Newcastle, NPIS Newcastle Unit, Reg Drug & Therapeut Ctr|Australia, NSW, Newcastle, Reg Drug & Therapeut Ctr, NPIS Newcastle Unit", "England, Newcastle-upon-Tyne, Reg Drug & Therapeut Ctr, NPIS Newcastle Unit", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, NSW, Sydney, Addict & Mental Hlth Program, NSHA", "Canada, NS, Sydney, Addict & Mental Hlth Program, NSHA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Pathumthani, Med Mol Biotechnol Res Grp, Nat Ctr Genet Engn & Biotechnol, NSTDA", "Thailand, Pathumthani, Med Mol Biotechnol Res Grp, Nat Ctr Genet Engn & Biotechnol, NSTDA", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("\\(18193", "018193", WoS_Ag7U_REV_RJ) #Fix address 207182
    
    #2022 10 27
    WoS_Ag7U_REV_RJ <- gsub("Corowa, Rivalea Pty Ltd", "Australia, NSW, Corowa, Rivalea Pty Ltd", WoS_Ag7U_REV_RJ)
    WoS_Ag7U_REV_RJ <- gsub("Australia, Qld 4343, Gattan","Australia, Qld 4343, Gatton", WoS_Ag7U_REV_RJ)
    
    WoS_Ag7U_REV_RJ <- data.frame(WoS_Ag7U_REV_RJ)
    
    WoS_Ag7UA_All <- str_subset(WoS_Ag7U_REV_RJ$WoS_Ag7U_REV_RJ, "Australia, ")
    WoS_Ag7UA_All <- as.data.frame(WoS_Ag7UA_All)
    WoS_Ag7UAddress_All <- as.data.frame(WoS_Ag7U_REV_RJ)
    
    WoS_Ag7UA_All_U <- unique(WoS_Ag7UA_All)