你可以用一个减法来做：

df - cbind(0, df[-length(df)])
#  a  b  c
#1 1  3  3
#2 2 13 -7
#3 3  3 13

你也可以在转置 Dataframe 后使用diff：

cbind(df[1], t(diff(t(df))))

  a  b  c
1 1  3  3
2 2 13 -7
3 3  3 13

使用rowwise和unnest_wider的tidyverse方法

library(dplyr)
library(tidyr)

df %>% 
  rowwise() %>% 
  summarize(a, d = list(diff(c_across(everything())))) %>% 
  unnest_wider(d, names_sep="", names_repair=\(x) letters[1:3])
# A tibble: 3 × 3
      a     b     c
  <dbl> <dbl> <dbl>
1     1     3     3
2     2    13    -7
3     3     3    13

不使用包：

data.frame(df$a,t(diff(t(df))))

它产生：

df.a  b  c
1    1  3  3
2    2 13 -7
3    3  3 13

diff计算单元格之间的差异，t()将结果转置为正确的格式，data.frame()再次将其绑定到第一列a。您可能需要重命名第一列（此处命名为df.a）。

你可以试试

> df[-1] <- df[-1] - df[-length(df)]

> df
  a  b  c
1 1  3  3
2 2 13 -7
3 3  3 13