前情回顾清洗数据cd C:\Download
use cd_compofdivprofitco_2023, clear
bys Stkcd y: egen Div = max(TotalDividend)
keep Stkcd year Div
duplicates drop
save A0, replace
*
use fs_combas_annual_consolidate_new, clear
merge 1:1 Stkcd year using fs_comins_annual_consolidate_new, nogen
merge 1:1 Stkcd year using fs_comscfd_annual_consolidate_new, nogen
merge 1:1 Stkcd year using A0, nogen
merge 1:1 Stkcd year using pt_lcrdspending_2022_year, nogen keepus(RDSpendSum)
merge 1:1 Stkcd year using 企业内部联盟, nogen keepus(FA_D)
merge 1:1 Stkcd year using 企业机构持股比重, nogen
merge 1:1 Stkcd year using bdt_managovabil_2022, nogen keepus(IndDirectorRa)
merge 1:1 Stkcd year using 行业代码_2022, nogen keepus(I*)
drop if regexm(IndustryC,"J")
foreach v of var C006000000 Div RD A001218000 FA_D IndDirectorRa InsInvestorProp{
replace `v' = 0 if mi(`v')
}
bys y: egen m1 = median(C006000000)
g x1 = C006000000 > m1
g lev = A002000000 / A001000000
bys y: egen m2 = median(
………………………………
