输出要在表格中显示的R代码

我有一些基本的r代码，如：

setwd('C:/Users/usa/Desktop/abc_Feb7')
dupli<-read.csv(file='dupli_oppo.csv',head=TRUE)

dupli_1<-arrange(dupli,account_id,amount_opty)

dupli_2<-dupli_1 %>%
          group_by(account_id) %>%
   mutate(Diff = c(NA, diff(amount_opty)))

setwd（'C:/Users/usa/Desktop/abc_Feb7'）
duplihi bunty，您是否遵循了？是的，我已经这样做了。但是不知道如何在脚本中容纳我的rcode。\u STR。在这种情况下，传递什么作为总和