PEG指标概念
PEG指标即市盈率相对盈利增长比率(EPS增长率),是由上市公司的市盈率除以盈利增长速度得到的数值。该指标既可以通过市盈率考察公司目前的财务状况,又通过盈利增长速度考察未来一段时期内公司的增长预期,因此是一个比较完美的选股参考指标。
PEG指标的计算方法
PEG的中文名称为市盈率相对盈利增长比率,该指标的计算公式为:
PEG=市盈率÷盈利增长比率
PEG指标的应用
用PEG指标选股的好处就是将市盈率和公司业绩成长性对比起来看,其中的关键是要对公司的业绩作出准确的预期。
所谓PEG,是用公司的市盈率(PE)除以公司未来3或5年的每股收益复合增长率。比如一只股票当前的市盈率为20倍,其未来5年的预期每股收益复合增长率为20%,那么这只股票的PEG就是1。
当PEG等于1时,表明市场赋予这只股票的估值可以充分反映其未来业绩的成长性。
当PEG大于1时,则这只股票的价值就可能被高估,或市场认为这家公司的业绩成长性会高于市场的预期。通常,那些成长型股票的PEG都会高于1,甚至在2以上,投资者愿意给予其高估值,表明这家公司未来很有可能会保持业绩的快速增长,这样的股票就容易有超出想象的市盈率估值。
当PEG小于1时,要么是市场低估了这只股票的价值,要么是市场认为其业绩成长性可能比预期的要差。通常价值型股票的PEG都会低于1,以反映低业绩增长的预期。
投资者需要注意的是,像其他财务指标一样,PEG也不能单独使用,必须要和其他指标结合起来,这里最关键的还是对公司业绩的预期。
PEG适用条件
PEG侧重于公司的成长性,即适用于寻找高增长公司中被低估的股票。应该配合市净率、公司市值、净资产收益率等指标使用。把PEG估值法和市净率结合起来就基本可以确定一只股票是高估还是低估。一只股票看起来PEG小于或等于1,但如果市净率高达10倍以上,仍然极有可能被高估了。如果一只股票市盈率和市净率都很低,并且PEG小于1,那么基本上可以确定是低估了。投资者不能仅看公司自身的PEG来确认它是高估还是低估,如果某公司股票的PEG为12,而其他成长性类似的同行业公司股票的PEG都在15以上,则该公司的PEG虽然已经高于1,但价值仍可能被低估。
PEG计算
> library(openxlsx)
> options(digits=3) #设置当前环境的小数点位数
> stockEPS<-read.xlsx("C:/Users/steph/Desktop/stock/stockEPS.xlsx",colNames=T) #导入股票前三季度的每股权益数据
> Q3EPS<-as.numeric(stockEPS$Q3EPS)
> Q2EPS<-as.numeric(stockEPS$Q2EPS)
> Q1EPS<-as.numeric(stockEPS$Q1EPS)
> EPS<-data.frame(code=stockEPS$code,Q3EPS,Q2EPS,Q1EPS)
> stockInfo<-read.xlsx("C:/Users/steph/Desktop/stock/stockInfo.xlsx",colNames=T) #导入股票代码、名称、现价信息
> price<-as.numeric(stockInfo$price)
> Info<-data.frame(code=stockInfo$code,name=stockInfo$name,price)
> stockdata<-merge(Info,EPS,by.Info=code,by.EPS=code) #合并数据框
> newdata<-subset(stockdata,price>0&stockdata$Q3EPS>0&stockdata$Q1EPS>0) #筛选现价和每股权益大于0的记录
> PE<-newdata$price/(newdata$Q3EPS/3*4) #将每股权益年化和计算股票的市盈率
> seasonrate<-(newdata$Q3EPS/newdata$Q1EPS)^(1/2)-1 #计算季度的EPS增长率
> EPSrate<-(1+seasonrate)^4-1 #季度的EPS增长率进行年化计算
> PEG<-PE/EPSrate #计算PEG
> res<-ifelse( PEG>0& PEG<1,T,F)
> mydata<-data.frame(code=newdata$code,name=newdata$name,PE,EPSrate,PEG,res)
> finaldata<-subset(mydata,res==T) #筛选符合条件的股票
> length(finaldata[,1]) #计算符合条件股票的个数
(End)