上市公司连锁股东指标

///更多stata学习资料尽在丘知数据分析会员之家，网址：www.qqrdata.com
//构建连锁股东指标（Cross）
use 原始数据1.dta, clear
keep stkcd year quarter 股东名称 持股排名 持股比例
merge m:1  stkcd year using 原始数据2.dta, nogen keep(3) keepusing(行业代码)

//筛选年份
ta year
keep if year>=2003 & year<=2025

//在季度层面保留持股比例不低于5%的股东（下称“大股东”）
keep if 持股比例>=5

//行业按照证监会2012的分类标准进行分类，制造业细分到二级代码，非制造业企业细分到一级代码。
gen Industry=substr(行业代码, 1, 1)
replace Industry=substr(行业代码, 1, 2) if Industry=="C"

//更多数据尽在丘知数据分析会员之家：www.qqrdata.com
//在每个季度上，计算每家公司有多少名大股东在同行业的其他公司也是大股东
//股东名称处理(剔除特殊符号，避免因个别符号差距被识别为不同股东，主要是外国的股东)
sort 股东名称
gen 股东=股东名称
replace 股东 = subinstr(股东,"(","",.)
replace 股东 = subinstr(股东,")","",.)
replace 股东 = subinstr(股东," ","",.)
replace 股东 = subinstr(股东,".","",.)
replace 股东 = subinstr(股东,",","",.)
replace 股东 = subinstr(股东,"-","",.)
replace 股东 = upper(股东)
replace 股东 = regexr(股东,"原名为.*","")