编写更简洁的代码版本以提高可读性
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)
我是 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)