编写更简洁的代码版本以提高可读性

Writing a cleaner version of code to improve readability

我是 R 的新手,我希望知道是否有更简洁的方法来编写下面的代码。基本上,我从 df1 中删除了一些重复项并将它们附加到 df2。然后我将 count_df 中的值连接到 df2 并重命名 df2.[​​=11=] 中的某些列

我真的很想在一个代码块下完成所有这些,而不是我在下面完成的方式。但是,每次我尝试将所有这些都放在一个代码块下时,我都会出现 运行 非常不同的错误。这只是一个实例,但我已经在我的代码中多次执行此操作。对于如何改进以下代码的任何意见,我将不胜感激。谢谢!

df2 <- df1 %>%
  distinct(ID, Temp, .keep_all = TRUE) %>%
  summarise(n())

df2 <- df2 %>%
  inner_join(count_df, by = c("ID" = "ID"))

df2 <- df2 %>%
  rename(unique_dps = `n()`,inital_dps = n)

我们可以在同一个 %>%

library(dplyr)
count_df %>%
        add_count(ID, Temp) %>% 
        rename(unique_dps = n)