上市公司实业投资指标

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com 
//导入原始数据
use 原始数据,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"

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

//实业投资，参考文献做法，采用构建固定资产、无形资产和其他长期资产支付的现金来表示，并除以总资产
gen 企业实业投资=购建固定资产、无形资产和其他长期资产支付的现金/总资产
label variable 企业实业投资 企业实业投资
 
//更多数据尽在丘知数据分析会员之家：www.qqrdata.com 
//整理结果
sort stkcd year
local var 证券代码 证券简称 stkcd year 企业实业投资
foreach v of varlist `var' {
   	   label var `v' "`v'"
}
keep 证券代码 证券简称 stkcd year 企业实业投资 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家
order 证券代码 证券简称 stkcd year 企业实业投资 行业代码 行业名称 所属省份 所属省份代码 所属城市 所属城市代码 丘知数据分析会员之家

//保存结果
//更多数据尽在丘知数据分析会员之家：www.qqrdata.com
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"
label variable 丘知数据分析会员之家 "www.qqrdata.com"
save 企业实业投资（未剔除未缩尾）.dta, replace
export excel 企业实业投资（未剔除未缩尾）.xlsx, firstrow(var) keepcellfmt replace

//剔除金融业与STPT样本