上市公司智能化转型指数（熵权法）

///更多stata学习资料尽在丘知数据分析会员之家 网址：www.qqrdata.com
//导入原始数据
use 原始数据1,clear
label variable 丘知数据分析会员之家 "www.qqrdata.com"
duplicates drop stkcd year,force
keep 证券代码 stkcd year
save data,replace

///更多数据尽在丘知数据分析会员之家，网址 www.qqrdata.com
//筛选与智能化转型相关的固定资产项目
use 原始数据1,clear
keep if strmatch(固定资产项目, "*电子设备*")| strmatch(固定资产项目, "*计算机*")| strmatch(固定资产项目, "*电脑*") | strmatch(固定资产项目, "*数据设备*") | strmatch(固定资产项目, "*电子*")| strmatch(固定资产项目, "*数据*") | strmatch(固定资产项目, "*智能*")|strmatch(固定资产项目, "*自动*")| strmatch(固定资产项目, "*算力*")| strmatch(固定资产项目, "*智慧*")| strmatch(固定资产项目, "*服务器*")| strmatch(固定资产项目, "*信息*")| strmatch(固定资产项目, "*自控*")| strmatch(固定资产项目, "*无人*")| strmatch(固定资产项目, "*AI*")| strmatch(固定资产项目, "*深度学习*")| strmatch(固定资产项目, "*机器学习*")| strmatch(固定资产项目, "*神经网络*")

//汇总计算与智能化转型相关的固定资产项目的期末余额总计
destring 期末余额,replace
collapse (sum) 期末余额, by( stkcd year )
drop if 期末余额 ==0
save data1,replace

///更多数据尽在丘知数据分析会员之家 网址：www.qqrdata.com
//整理合并固定资产项目数据
use data,clear
merge m:1 stkcd year using data1,nogen keep(1 3) 
replace 期末余额=0 if 期末余额==.
rename 期末余额 智能化转型固定资产期末余额
save data2,replace

//导入原始数据
use 原始数据2,clear
duplicates drop stkcd year,force