だれがこんな関数使うんだよのコーナー
recode() 関数を利用しているので、
> library(car)
で「car パッケージ」を読み込んでおいてください。
たぶん、深刻な間違いはしていないと思いますが、たとえば「そんな職業名じゃない！」など、なにかお気づきの点がありましたら、コメント欄にお願いします。
使用法
SSM.jobcode2label(x)
x が 501 〜 999 の場合、職種コードに対応した職種名に置き換えられます。
以下をすべてコピーアンドペースト
SSM.jobcode2label <- function(job.var){
NewLabel <- recode(job.var, "
501 = '自然科学系研究者'
; 502 = '人文科学系研究者'
; 503 = '機械・電気・化学技術者'
; 504 = '建築・土木技術者'
; 505 = '農林技術者'
; 506 = '情報処理技術者'
; 507 = 'その他の技師・技術者'
; 508 = '医師'
; 509 = '歯科医師'
; 510 = '薬剤師'
; 511 = '助産師（助産婦）'
; 512 = '保健師（保健婦）'
; 513 = '栄養士'
; 514 = '看護師（看護婦・看護士）'
; 515 = 'あん摩・はり・きゅう師、柔道整復師'
; 516 = 'その他の保健医療従事者'
; 517 = '裁判官、検察官、弁護士'
; 518 = 'その他の法務従事者'
; 519 = '公認会計士、税理士'
; 520 = '幼稚園教員'
; 521 = '小学校教員'
; 522 = '中学校教員'
; 523 = '高等学校教員'
; 524 = '大学教員'
; 525 = '盲・ろう・養護学校教員'
; 526 = 'その他の教員'
; 527 = '宗教家'
; 528 = '文芸家、著述家'
; 529 = '記者、編集者'
; 530 = '彫刻家、画家、工芸美術家'
; 531 = 'デザイナー'
; 532 = '写真家、カメラマン'
; 533 = '音楽家（個人に教授するものを除く）'
; 534 = '俳優、舞踊家、演芸家（個人に教授するものを除く）'
; 535 = '職業スポーツ家(個人に教授するものを除く）'
; 536 = '獣医師'
; 537 = '保育士（保母、保父）'
; 538 = '社会福祉事業専門職員'
; 539 = '個人教師'
; 540 = '不動産鑑定士'
; 541 = '経営コンサルタント'
; 542 = 'アナウンサー(ラジオ・テレビ）'
; 543 = '図書館司書'
; 544 = 'その他の専門的・技術的職業従事者'
; 545 = '管理的公務員'
; 546 = '国会議員'
; 547 = '地方議員'
; 548 = '会社役員'
; 549 = 'その他の法人・団体の役員'
; 550 = '会社・団体等の管理職員'
; 551 = '駅長、区長'
; 552 = '郵便局長、電報・電話局長'
; 553 = 'その他の管理的職業従事者'
; 554 = '総務・企画事務員'
; 555 = '受付・案内事務員'
; 556 = '出荷・受荷事務員'
; 557 = '営業・販売事務員'
; 558 = 'その他の一般事務員'
; 559 = '会計事務員'
; 560 = '郵便・通信事務員'
; 561 = '集金人'
; 562 = 'その他の外勤事務従事者'
; 563 = '運輸事務員'
; 564 = '速記者、タイピスト、キーパンチャー'
; 565 = '電子計算機等操作員'
; 566 = '小売店主'
; 567 = '卸売店主'
; 568 = '飲食店主'
; 569 = '販売店員'
; 570 = '行商人、呼売人、露天商'
; 571 = '再生資源卸売人・回収人'
; 572 = '商品仲立人'
; 573 = '外交員(保険、不動産を除く）'
; 574 = '保険代理人・外交員'
; 575 = '不動産仲買人・売買人'
; 576 = '質屋店主・店員'
; 577 = 'その他の販売類似職業従事者'
; 578 = '家政婦、家事サービス職業従事者'
; 579 = '理容師、美容師'
; 580 = 'クリーニング職、洗張職'
; 581 = '料理人'
; 582 = 'バーテンダー'
; 583 = '給仕係'
; 584 = 'スチュワーデス、スチュワード'
; 585 = '接客社交係'
; 586 = '娯楽場等の接客員'
; 587 = '旅行・観光案内人'
; 588 = 'その他の個人サービス職業従事者'
; 589 = '旅館主人・番頭、ホテル支配人'
; 590 = '下宿・アパートの管理人、舎監、寮母'
; 591 = 'ファッションモデル'
; 592 = 'その他のサービス職業従事者'
; 593 = '自衛官'
; 594 = '警察官、海上保安官、鉄道公安員'
; 595 = '消防員'
; 596 = '看守、守衛、監視員'
; 597 = 'その他の保安職業従事者'
; 598 = '旧職業軍人'
; 599 = '農耕・養蚕作業者'
; 600 = '植木職、造園師'
; 601 = '畜産作業者'
; 602 = '林業作業者'
; 603 = 'その他の農林業作業者'
; 604 = '漁業作業者'
; 605 = '漁船の船長・航海士・機関長・機関士'
; 606 = '電車・機関車運転士'
; 607 = '自動車運転者'
; 608 = '船長・航海士（漁船を除く）、水先人'
; 609 = '船舶機関長・機関士（漁船を除く）'
; 610 = '航空機操縦士、航空士、航空機関士'
; 611 = '車掌'
; 612 = '鉄道員'
; 613 = '船員'
; 614 = 'その他の運輸従事者'
; 615 = '無線通信士、無線技術士'
; 616 = '有線通信士'
; 617 = '電話交換手'
; 618 = '郵便・電報外務員'
; 619 = 'その他の通信従事者'
; 620 = '採鉱員、採炭員'
; 621 = '石切出作業者'
; 622 = 'その他の採掘作業者'
; 623 = '陶磁器工、絵付作業者'
; 624 = '石工'
; 625 = 'ガラス・セメント製品製造作業者'
; 626 = 'その他の窯業・土石製品製造作業者'
; 627 = '製銑工、製鋼工、精錬工'
; 628 = '鋳物工、鍛造工、金属材料製造作業者'
; 629 = '化学製品製造作業者'
; 630 = '金属工作機械工、めっき工、金属加工作業者'
; 631 = '鉄工、板金工'
; 632 = '金属溶接工'
; 633 = '一般機械組立工・修理工'
; 634 = '電気機械器具組立工・修理工'
; 635 = '自動車組立工・整備工'
; 636 = '鉄道車両組立工・修理工'
; 637 = '船舶ぎ装工(他に分類されない）'
; 638 = '航空機組立工・整備工'
; 639 = '自転車組立工・修理工'
; 640 = 'その他の輸送機械組立・修理作業者'
; 641 = '時計組立工・修理工'
; 642 = '光学機械・精密機械器具組立工・修理工'
; 643 = '精穀工、製粉工'
; 644 = 'パン・菓子・めん類・豆腐製造工'
; 645 = '味噌・醤油・缶詰食品・乳製品製造工、飲食料品製造作業者'
; 646 = 'たばこ製造工'
; 647 = '酒類製造工'
; 648 = '製糸作業者'
; 649 = '織布工、紡織作業者'
; 650 = '漂白工、染色工'
; 651 = '洋服・和服仕立職'
; 652 = '縫製工、裁断工'
; 653 = '製材工、木工'
; 654 = '指物職、家具職、建具職'
; 655 = '船大工'
; 656 = 'おけ職、木・竹・草・つる製品製造作業者'
; 657 = '製紙工、紙器製造工、パルプ・紙・紙製品製造作業者'
; 658 = '印刷・製本作業者'
; 659 = 'ゴム・プラスチック製品製造作業者'
; 660 = 'くつ製造工・修理工、かわ・かわ製品製造作業者'
; 661 = '塗装工、画工、看板工'
; 662 = '漆塗師、まき絵師'
; 663 = '表具師、内張工'
; 664 = '和がさ・ちょうちん・うちわ職'
; 665 = '貴金属・宝石・甲・角等細工工'
; 666 = '印判師'
; 667 = '洋傘組立工'
; 668 = 'かばん・袋物製造工'
; 669 = 'がん具製造工'
; 670 = '製図工、現図工'
; 671 = '映写技士'
; 672 = 'その他の技能工・生産工程作業者'
; 673 = '汽かん士、汽かん火夫'
; 674 = '起重機・建設機械運転作業者'
; 675 = 'その他の定置機関運転作業者'
; 676 = '発電員、変電員'
; 677 = '電気工事・電話工事作業者'
; 678 = '土木・建築請負師'
; 679 = '左官、とび職'
; 680 = 'れんが積工、配管工'
; 681 = '畳職'
; 682 = '土工、道路工夫'
; 683 = '鉄道線路工夫'
; 684 = '現場監督、その他の建設作業者'
; 685 = '倉庫夫、仲仕'
; 686 = '運搬労務者'
; 687 = '清掃員'
; 688 = 'その他の労務作業者'
; 689 = '分類不能の職業'
; 690 = '旧地主'
; 691 = '名目上の役員'
; 701 = 'スーパーなどのレジスター係員、キャッシャー'
; 702 = '大工'
; 703 = '教員'
; 704 = '製品製造作業者'
; 705 = '会社員'
; 707 = '特に父職で記入が「自営業」とあった場合'
; 986 = '無職'
; 987 = '兵役'
; 999 = '不明、無回答' "
, levels=c("自然科学系研究者", "人文科学系研究者", "機械・電気・化学技術者", "建築・土木技術者"
,"農林技術者", "情報処理技術者", "その他の技師・技術者", "医師", "歯科医師", "薬剤師", "助産師（助産婦）"
, "保健師（保健婦）", "栄養士", "看護師（看護婦・看護士）", "あん摩・はり・きゅう師、柔道整復師"
, "その他の保健医療従事者", "裁判官、検察官、弁護士", "その他の法務従事者", "公認会計士、税理士"
, "幼稚園教員", "小学校教員", "中学校教員", "高等学校教員", "大学教員", "盲・ろう・養護学校教員"
, "その他の教員", "宗教家", "文芸家、著述家", "記者、編集者", "彫刻家、画家、工芸美術家", "デザイナー"
, "写真家、カメラマン", "音楽家（個人に教授するものを除く）", "俳優、舞踊家、演芸家（個人に教授するものを除く）"
, "職業スポーツ家(個人に教授するものを除く）", "獣医師", "保育士（保母、保父）", "社会福祉事業専門職員"
, "個人教師", "不動産鑑定士", "経営コンサルタント", "アナウンサー(ラジオ・テレビ）", "図書館司書"
, "その他の専門的・技術的職業従事者", "管理的公務員", "国会議員", "地方議員", "会社役員"
, "その他の法人・団体の役員", "会社・団体等の管理職員", "駅長、区長", "郵便局長、電報・電話局長"
, "その他の管理的職業従事者", "総務・企画事務員", "受付・案内事務員", "出荷・受荷事務員", "営業・販売事務員"
, "その他の一般事務員", "会計事務員", "郵便・通信事務員", "集金人", "その他の外勤事務従事者", "運輸事務員"
, "速記者、タイピスト、キーパンチャー", "電子計算機等操作員", "小売店主", "卸売店主", "飲食店主", "販売店員"
, "行商人、呼売人、露天商", "再生資源卸売人・回収人", "商品仲立人", "外交員(保険、不動産を除く）"
, "保険代理人・外交員", "不動産仲買人・売買人", "質屋店主・店員", "その他の販売類似職業従事者"
, "家政婦、家事サービス職業従事者", "理容師、美容師", "クリーニング職、洗張職", "料理人", "バーテンダー", "給仕係"
, "スチュワーデス、スチュワード", "接客社交係", "娯楽場等の接客員", "旅行・観光案内人"
, "その他の個人サービス職業従事者", "旅館主人・番頭、ホテル支配人", "下宿・アパートの管理人、舎監、寮母"
, "ファッションモデル", "その他のサービス職業従事者", "自衛官", "警察官、海上保安官、鉄道公安員", "消防員"
, "看守、守衛、監視員", "その他の保安職業従事者", "旧職業軍人", "農耕・養蚕作業者", "植木職、造園師"
, "畜産作業者", "林業作業者", "その他の農林業作業者", "漁業作業者", "漁船の船長・航海士・機関長・機関士"
, "電車・機関車運転士", "自動車運転者", "船長・航海士（漁船を除く）、水先人", "船舶機関長・機関士（漁船を除く）"
, "航空機操縦士、航空士、航空機関士", "車掌", "鉄道員", "船員", "その他の運輸従事者", "無線通信士、無線技術士"
, "有線通信士", "電話交換手", "郵便・電報外務員", "その他の通信従事者", "採鉱員、採炭員", "石切出作業者"
, "その他の採掘作業者", "陶磁器工、絵付作業者", "石工", "ガラス・セメント製品製造作業者"
, "その他の窯業・土石製品製造作業者", "製銑工、製鋼工、精錬工", "鋳物工、鍛造工、金属材料製造作業者"
, "化学製品製造作業者", "金属工作機械工、めっき工、金属加工作業者", "鉄工、板金工", "金属溶接工"
, "一般機械組立工・修理工", "電気機械器具組立工・修理工", "自動車組立工・整備工", "鉄道車両組立工・修理工"
, "船舶ぎ装工(他に分類されない）", "航空機組立工・整備工", "自転車組立工・修理工"
, "その他の輸送機械組立・修理作業者", "時計組立工・修理工", "光学機械・精密機械器具組立工・修理工"
, "精穀工、製粉工", "パン・菓子・めん類・豆腐製造工", "味噌・醤油・缶詰食品・乳製品製造工、飲食料品製造作業者"
, "たばこ製造工", "酒類製造工", "製糸作業者", "織布工、紡織作業者", "漂白工、染色工", "洋服・和服仕立職"
, "縫製工、裁断工", "製材工、木工", "指物職、家具職、建具職", "船大工", "おけ職、木・竹・草・つる製品製造作業者"
, "製紙工、紙器製造工、パルプ・紙・紙製品製造作業者", "印刷・製本作業者", "ゴム・プラスチック製品製造作業者"
, "くつ製造工・修理工、かわ・かわ製品製造作業者", "塗装工、画工、看板工", "漆塗師、まき絵師", "表具師、内張工"
, "和がさ・ちょうちん・うちわ職", "貴金属・宝石・甲・角等細工工", "印判師", "洋傘組立工", "かばん・袋物製造工"
, "がん具製造工", "製図工、現図工", "映写技士", "その他の技能工・生産工程作業者", "汽かん士、汽かん火夫"
, "起重機・建設機械運転作業者", "その他の定置機関運転作業者", "発電員、変電員", "電気工事・電話工事作業者"
, "土木・建築請負師", "左官、とび職", "れんが積工、配管工", "畳職", "土工、道路工夫", "鉄道線路工夫"
, "現場監督、その他の建設作業者", "倉庫夫、仲仕", "運搬労務者", "清掃員", "その他の労務作業者", "分類不能の職業"
, "旧地主", "名目上の役員", "スーパーなどのレジスター係員、キャッシャー", "大工", "教員", "製品製造作業者", "会社員"
, "特に父職で記入が「自営業」とあった場合", "無職", "兵役", "不明、無回答")
, as.factor.result=TRUE)
return(NewLabel)
}
