如何在data.table中获取prop.table?

我一直在研究一个被错误地标记为 data.table . 在这里: prop.table() error in r 我正在找一张比例表,但到目前为止我还没找到。以下是示例数据和代码:

library(data.table)
data(Arthritis,package="vcd")
#mytable<-with(Arthritis,table(Improved))
#mytable
mydata2<-copy(Arthritis)
setDT(mydata2)
head(mydata2)
mydata2[,.(.N),by=.(Improved)]
mydata2[,lapply(.N,sum),by=.(Improved)]

这就产生了:

   Improved V1
1:     Some 14
2:     None 42
3:   Marked 28

我认为这样简单的链接会有所帮助,但它会返回有趣的输出:

mydata2[,lapply(.N,sum),by=.(Improved)][,prop:=V1/sum(V1)]

什么是单纯的 数据表 如何获得比例表?