r - R dplyr/array demean は、rowmeans を使用して列を追加します

Question

すべての行を侮辱し、平均を持つ最後の列を追加したいデータフレームがあります。列名をハードコーディングしたくありません。また、配列/行列を使用しても問題ありません (ただし、dplyr で機能的に学習することにも興味があります)。から始めるとします

 tibble(x=seq(1.0,4.0),y=seq(5.,8))
# A tibble: 4 x 2
      x     y
  <int> <int>
1     1     5
2     2     6
3     3     7
4     4     8

で終わりたい

      x     y     z
  <dbl> <dbl> <int>
1    -2     2     3
2    -2     2     4
3    -2     2     5
4    -2     2     6

助けてくれてありがとう！