在列名称中放置分隔符

Question

我试图在数据帧上的长变量名中断。

df<-data.frame("Group"=c(1:k),"Theoretical.Proportion"=c(thp1,thp2,thp3,thp4), "Empirical.NCase"=c(length(p1),length(p2),length(p3),length(p4)),"Empirical.Proportion"=lbs,"Empirical.Average"=c(m1,m2,m3,m4),"Empirical.Median"=c(md1,md2,md3,md4),"Empirical.SD"=c(sd1,sd2,sd3,sd4))
  fdf<-as_tibble(df)
chic<-cbind(lblst,lbs)
  chic2<-chisq.test(chic)
  return(list(fdf,chic2))

但是，我的输出给了我： output table

我该如何突破我的台词来输出 经验平均值（ over ）等？ 我尝试了sub和gsub，尽管它们似乎正在删除我的var名称。