上市公司高管机会主义减持指标

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//导入原始数据
//整理高管减持事件日期
use 原始数据1,clear
gen stkcd=real(证券代码)
gen 事件日期=变动日期

//剔除了高管通过大宗交易和协议转让股票的数据，剔除了股权激励实施，剔除样本缺失较多的年份
drop if 变动原因=="大宗交易" | 变动原因=="协议转让"  |  变动原因=="股权激励实施"    
gen year=real(substr(事件日期, 1, 4))
keep if year>=2007 & year<=2025

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//保留减持的样本
keep if 变动股份数量<0 &  变动股份数量!=.
keep 证券代码 持股变动人ID 董监高人员ID 董监高人员职务 变动股份数量 成交均价 stkcd 事件日期 year
save 事件数据.dta, replace

//删除重复值
use 事件数据.dta, clear
keep stkcd 证券代码 事件日期 year
duplicates drop stkcd 证券代码 事件日期 year, force
save 事件日期.dta, replace

///更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//注意本步骤计算量较大，循环部分27行-89行的代码需要选中后一起运行，耗时较长！！！
forv year=2007/2025 {

	use 事件日期.dta, clear
	keep if year==`year'