-
Notifications
You must be signed in to change notification settings - Fork 1
/
dissertation-descriptive-statistics-and-graphics.do
114 lines (73 loc) · 2.52 KB
/
dissertation-descriptive-statistics-and-graphics.do
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
***===================================***
* DESCRIPTIVE STATISTICS AND GRAPHICS *
***===================================***
/// SET ENVIRONMENT
clear all
set scheme plotplain
/// CHAPTER 1
/// CHAPTER 2
*** Number of rating sources by firm
scatter over_rtg num_sources, m(oh) jitter(.1) mcolor(black%05) ///
ylab(0(10)100)
*** Distribution of revenue
/// CSRHUB
*** Month level
* Load data
use data/csrhub-all.dta, clear
* Clean
replace firm=upper(firm)
drop year_csrhub year_all
* Number of firms in each year with any rating
preserve
bysort firm year: gen n=_n
keep if n==1
tab year
restore
* Number of firms with an overall rating
preserve
drop if over_rtg==.
bysort firm year: gen n=_n
keep if n==1
tab year
restore
*** Year level
use data/csrhub-kld-cstat-year-level-with-treatment-variables.dta, clear
keep if in_csrhub==1
* Number of firms in each year with any rating
tab year
* Number of firms in each year with overall rating
tab year if over_rtg!=.
* Correlations of three aggregation methods
corr over_rtg over_rtg_med over_rtg_mean, means
graph matrix over_rtg_mean over_rtg_med over_rtg, m(p) ///
diagonal("Yearly Mean" "Yearly Median" "Last Month of Year") ///
title("Relationships between three methods for aggregating CSRHub from month- to year-level")
graph export "graphics\scatterplot-of-csrhub-aggregation-method-correlations.png", as(png) replace
* Distribution of ratings across years
local rating over_rtg
graph tw kdensity `rating' if year==2008 || ///
kdensity `rating' if year==2009 || ///
kdensity `rating' if year==2010 || ///
kdensity `rating' if year==2011 || ///
kdensity `rating' if year==2012 || ///
kdensity `rating' if year==2013 || ///
kdensity `rating' if year==2014 || ///
kdensity `rating' if year==2015 || ///
kdensity `rating' if year==2016, ///
legend(label(1 "2008") label(2 "2009") label(3 "2010") label(4 "2011") ///
label(5 "2012") label(6 "2013") label(7 "2014") label(8 "2015") ///
label(9 "2016"))
local rating enviro_rtg_lym
graph tw kdensity `rating' if year==2008 || ///
kdensity `rating' if year==2009 || ///
kdensity `rating' if year==2010 || ///
kdensity `rating' if year==2011 || ///
kdensity `rating' if year==2012 || ///
kdensity `rating' if year==2013 || ///
kdensity `rating' if year==2014 || ///
kdensity `rating' if year==2015 || ///
kdensity `rating' if year==2016, ///
legend(pos(3) col(1) label(1 "2008") label(2 "2009") label(3 "2010") label(4 "2011") ///
label(5 "2012") label(6 "2013") label(7 "2014") label(8 "2015") ///
label(9 "2016"))
*END