上市公司行业景气度指标

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//导入原始数据
use 原始数据,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"

//剔除B股，仅保留A股数据
drop if substr(证券代码, 1, 3)=="200" |  substr(证券代码, 1, 3)=="900" 

//按照证监会行业分类(2012)，除制造业采用两位数编码外，其他行业均采用一位数编码
gen Industry=substr(行业代码, 1, 1)
replace Industry=substr(行业代码, 1, 2) if Industry=="C"

///更多数据尽在丘知数据分析会员之家，网址：www.qqrdata.com 
//计算每年每个行业内样本公司ROA的中值MROA
bys Industry year: egen MROA=median(ROA)

//计算样本范围内各行业MROA的中值MMROA
bys Industry: egen MMROA=median(MROA)

//再将MROA与MMROA比较，如果t年的MROA大于MMROA，则当年该行业的景气指数为1，否则为0。当行业的景气指数为1时，则认为当年该行业经营形势较好。由此，将样本分为行业经营形势较好的样本组与行业经营形势较差的样本组。
gen 行业景气指数=(MROA>MMROA)

///更多数据尽在丘知数据分析会员之家，网址：www.qqrdata.com 
keep 证券代码 证券简称 stkcd year 行业景气指数 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家
order 证券代码 证券简称 stkcd year 行业景气指数 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家
sort stkcd year
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"
local var 行业景气指数
foreach v of varlist `var' {
   	   label var `v' "`v'"