上市公司耐心资本指标（关系型债务与稳定型股权）

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//需安装外部命令：ssc install rangestat
//导入原始数据
use 原始数据,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"

//剔除B股
drop if substr(证券代码, 1, 3)=="200" |  substr(证券代码, 1, 3)=="900" 

//计算关系型债务
gen 关系型债务=银行长期贷款/(银行贷款+应付债券+应付票据)
lab var 关系型债务 "Rdebt"

//计算稳定型股权
gen INVH=机构投资者持股比例
rangestat (sd) INVH (count) N= INVH , interval( year -3 -1) by( stkcd )
keep if N==3
gen 稳定型股权= INVH/INVH_sd
lab var 稳定型股权 "Invest"
lab var 丘知数据分析会员之家 "www.qqrdata.com"

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//整理结果
merge m:1 stkcd year using 行业与所属省份城市,nogen keep(1 3) 
drop if 证券简称==""
order 证券代码 证券简称 stkcd year
local var 证券代码 证券简称 stkcd year
foreach v of varlist `var' {
   	   label var `v' "`v'"
}