Publications by ayumuR
Rbasic02
1 棒グラフ with barplot G7の一人あたりGDPと人口 library(readxl) pwt2019 <- read_excel("pwt2019.xlsx") ## 一人あたりGDP barplot(pwt2019$percapitaGDP,names.arg=pwt2019$countrycode) ## 人口 barplot(pwt2019$pop,names.arg=pwt2019$countrycode) 2 散布図 with plot 人口とGDPの散布図 plot(x, y) 参考 plot(pwt2019$rgdpe,p...
687 sym R (2577 sym/20 pcs) 19 img
eventStudy
1 出典 以下のサイトを参考に作成。 https://github.com/setzler/eventStudy 2 eventStudyのパッケージのインストール # devtools::install_github("setzler/eventStudy/eventStudy") 3 パッケージ #eventStudyの実行に必要なパッケージ library(data.table) library(ggplot2) library(futile.logger) library(scales) libra...
194 sym R (1831 sym/10 pcs) 2 img
covid
1 Our world in dataのデータ、棒グラフ（barplot） library(readxl) covid2022G7 <- read_excel("covid2022G7.xlsx") head(covid2022G7) ## # A tibble: 6 × 11 ## year iso_code location total_cases total_deaths total_cases_per_million ## <dbl> <chr> <chr> <dbl> <dbl> <dbl> ## 1 2022 CAN ...
211 sym R (6326 sym/24 pcs) 5 img
trade_data
回帰分析（lm）、表示（stargazer） library(readr) trade2013 <- read_csv("trade2013.csv") head(trade2013) ## # A tibble: 6 × 6 ## country1 country2 ltrade lgdp1 lgdp2 ldist ## <chr> <chr> <dbl> <dbl> <dbl> <dbl> ## 1 United States United Kingdom 10.5 30.3 28.4 8.37 ## 2 United States Austr...
63 sym R (2295 sym/7 pcs) 1 img
JAE2023
論文 Ayumu Tanaka, Banri Ito, and Naoto Jinji. (2023). “Individual Preferences Toward Inward Foreign Direct Investment: A Survey Experiment,” Journal of Asian Economics, Vol.88. パッケージ # install.packages("cjoint") # install.packages("cregg") library(cjoint) library(here) library(readxl) library(cregg) ディレクトリ設定な�...
954 sym R (12414 sym/50 pcs) 10 img
cregg_manual
出典 以下のページを翻訳。 Thomas J. Leeper ``Simple Conjoint Analyses and Visualization,” https://github.com/leeper/cregg 概要 creggは、Hainmueller, Hopkins, and Yamamoto (2014)が記述した方法を用いたコンジョイント（“cj”）factorial実験の結果を分析・可視化するパッケージである。メイ�...
3668 sym R (4049 sym/14 pcs) 4 img
gravity_explanation
1. 貿易データ gravity.xlsx データには、2005 年の 1年間の世界の2国間の貿易額が収録されている。 Rでデータを読み込む。 library(readxl) gravity <- read_excel("gravity.xlsx") head(gravity) ## # A tibble: 6 × 20 ## importer exporter year imports gdp_exporter gdp_importer join_exporter ## <chr> <chr> ...
2285 sym R (6247 sym/20 pcs) 2 tbl
fixest_walkthrough
貿易データを使った簡単な例 引数vcov 操作変数 相互作用項 重力方程式の固定効果モデル推定には、輸出国固定効果、輸入国固定効果、年固定効果、またそれらの交差項といった大量の固定効果が必要になる。 計算時間を短縮化するために開発されたfixestパッ�...
8677 sym R (18809 sym/58 pcs) 3 img
qss01
#install.packages("here") #ルートディレクトリからの相対パスを使えるようにする library(here) ## here() starts at /cloud/project #Rマークダウンがある場所をルートディレクトリからの相対パスとして表現 i_am("INTRO/qss01.Rmd") ## here() starts at /cloud/project #作業ディレクトリの変更 se...
340 sym R (5404 sym/139 pcs)
qss02
2.1 労働市場における人種差別 setwd("/cloud/project/CAUSALITY") library(readr) resume <- read_csv("resume.csv") ## Rows: 4870 Columns: 4 ## ── Column specification ──────────────────────────────────────────────────────── ##...
459 sym R (14155 sym/197 pcs)