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

【问题标题】：Writing a cleaner version of code to improve readability编写更简洁的代码版本以提高可读性
【发布时间】：2021-07-30 19:55:53
【问题描述】：

我对 R 相当陌生，我希望知道是否有一种更简洁的方式来编写下面的代码。基本上，我从 df1 中删除了一些重复项并将它们附加到 df2。然后我将 count_df 中的值连接到 df2 并重命名 df2 中的某些列。

我真的很想在一个代码块下完成所有这些工作，而不是我在下面完成的方式。但是，每次我尝试将这一切都放在一个代码块下时，我都会遇到非常不同的错误。这只是一个实例，但我已经在我的代码中多次这样做了。对于如何改进下面的代码，我将不胜感激。谢谢！

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)

【问题讨论】：

如果您创建一个小的可重现示例以及预期的输出，这将更容易提供帮助。阅读how to give a reproducible example。

标签： r dataframe inner-join data-cleaning

【解决方案1】：

我们可以在同一个%>%中拥有这个

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

【讨论】：