上市公司绿色并购指标

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

//剔除B股
drop if substr(证券代码, 1, 3)=="200" |  substr(证券代码, 1, 3)=="900" 
label data "更多数据尽在丘知数据分析会员之家：www.qqrdata.com"

//预先生成绿色并购虚拟变量
gen 是否绿色并购 = 0

//使用文本法遍历并购信息，将含有以下词语信息的并购事件认定为绿色并购
foreach i in 环保 治污 节能 绿色 低碳 碳中和 碳达峰 低能耗 减排 污染 污染治理 循环利用 循环经济 再生 可持续 绿化 生态环境 合理利用资源 节约 资源回收 垃圾回收 垃圾处理 固体废物 固废 绿能 污染治理 光伏 风电 风能 太阳能 水电 储能 潮汐发电 新能源 环境治理 绿色文明 绿水青山 山林修复 清洁能源 高耗能 碳资产 双碳 碳排放 碳管理 碳市场 碳交易 碳循环 脱硫 脱销 污水 废气 除尘 环境 循环 生态 自然 植被 防风固沙 转型升级 节水 环境监管 植树造林{
foreach j in 交易概述 标的物名称 标的物说明 买方经营范围 卖方经营范围 标的方经营范围{
replace 是否绿色并购 = 1 if regexm(`j', "`i'")
label variable 丘知数据分析会员之家 "www.qqrdata.com"
   }
}

//统计绿色并购次数，生成虚拟变量
collapse (sum) 是否绿色并购, by(stkcd year)
gen 绿色并购次数=是否绿色并购
gen 绿色并购虚拟变量=(绿色并购次数!=0)
keep stkcd year 绿色并购次数 绿色并购虚拟变量

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//整理结果
merge m:1 stkcd year using 行业与所属省份城市,nogen keep(1 3) 
drop if 证券简称==""