作为新列的每一行的百分比

Question

我有这个数据框

dat <- data.frame(x=c(1:5), y=c("a","b","c","d","e"))

我想添加一列，其中显示列x总和的百分比。

所以看起来像这样：

dat_percent <- data.frame(x=c(1:5), y=c("a","b","c","d","e"), z=c(7,13,20,27,33))

我知道它必须是非常基本的东西，但我无法提出解决方案。

由于