上市公司数字化转型指标（无形资产法）

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

//保留无形资产项目中与数字化技术相关部分
keep if strmatch(无形资产项目,"*软件*")|strmatch(无形资产项目,"*网络*")|strmatch(无形资产项目,"*客户端*")|strmatch(无形资产项目,"*管理系统*")|strmatch(无形资产项目,"*智能平台*")|strmatch(无形资产项目,"*数据*")|strmatch(无形资产项目,"*数控*")|strmatch(无形资产项目,"*信息化*")|strmatch(无形资产项目,"*网络化*")|strmatch(无形资产项目,"*互联网*")|strmatch(无形资产项目,"*人工智能*")|strmatch(无形资产项目,"*自动控制*")|strmatch(无形资产项目,"*区块链*")|strmatch(无形资产项目,"*云计算*")|strmatch(无形资产项目,"*AI*")|strmatch(无形资产项目,"*数字*")|strmatch(无形资产项目,"*物联网*")|strmatch(无形资产项目,"*虚拟*")|strmatch(无形资产项目,"*机器学习*")|strmatch(无形资产项目,"*深度学习*")|strmatch(无形资产项目,"*智能*")
collapse (sum) 无形资产项目期末账面价值,by (stkcd year)
duplicates drop
rename 无形资产项目期末账面价值 数字化技术相关无形资产
label variable 数字化技术相关无形资产 "数字化技术相关无形资产"
save 数字化技术相关无形资产,replace

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//匹配无形资产总额
use 原始数据2,clear
merge 1:1 stkcd year using 数字化技术相关无形资产.dta,nogen keep (1 3) 
replace 数字化技术相关无形资产=0 if 数字化技术相关无形资产==.
order 证券代码 证券简称 stkcd year 无形资产 数字化技术相关无形资产
erase 数字化技术相关无形资产.dta

//生成数字化转型变量
gen 数字化转型（无形资产）=数字化技术相关无形资产/无形资产
order 证券代码 证券简称 stkcd year 数字化转型（无形资产） 无形资产 数字化技术相关无形资产
replace 数字化转型=0 if 数字化技术相关无形资产==0 & 无形资产==0
label variable 数字化转型（无形资产） 数字化转型（无形资产）
keep if year>2006

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