R语言高比例送转策略

数据来源于Tushare，在数据工具-沪深股票-基础数据-备用列表中获得，右侧勾选了交易日期、TS股票代码、流通股本、每股公积金、每股收益和上市日期。（ID：446541）

可以直接点运行调试，调试完成后，点击右下角的导出CSV，之后直接用程序读入。

也可以点击生成代码，然后把代码复制到文件中。不过生成的代码不太适用于R语言，但可以在Python中运行，我个人比较倾向于用Rstudio过滤数据，所以选择下载、读入CSV。

 高比例送转策略一般在每年十月底进行筛选，所以我以20211101为起始时间。筛选条件如下：

（1）当日每股收益排名前50

（2）当日每股公积金排名前50

（3）公司上市1~2年

代码如下：

library(tidyverse)
df <- read.csv("D:/Rstudio/tushare_bak_basic_20220226140934.csv")

df1=df %>%
  filter(20191101 < list_date,list_date < 20201101,float_share<40000)

df2=df1[order(-df1$reserved_pershare),]
df3=df1[order(-df1$eps),]

df2=df2[1:50,]
df3=df3[1:50,]

for(i in 1:nrow(df2)){
  for(j in 1:nrow(df3)){
    if(df2[i,2]==df3[j,2]){
      print(df2[i,2])
    }
  }
}

筛选出来的股票还要关注是否曾经分配过，没分配过最好，而且还要观察近期股票的走势。唉~~