gpt4 book ai didi

r summarise_if 有多个条件

转载 作者:行者123 更新时间:2023-12-03 14:15:08 26 4
gpt4 key购买 nike

我试图将观察的 df 减少到单个观察(单行)。
我想 summarise_if 是带有均值的数字,而 if 是带有模式的字符串或因子。下面的代码不起作用,但我希望它给出了想法。
谢谢!

#data frame
num <- c(1:7)
str <- c("toy","control","play",NA,"give","toy","toy")
df_finale <- data.frame(num,str)

#mode function
Mode <- function(x) {
ux <- unique(x)
ux[which.max(tabulate(match(x, ux)))]
}

#df reduction
df_finale <- df_finale %>%
summarize_if(is.numeric, mean, na.rm = TRUE) %>%
summarize_else_if(!is.numeric, Mode)

最佳答案

一种可能是:

df_finale %>%
summarise_all(~ if(is.numeric(.)) mean(., na.rm = TRUE) else Mode(.))

num str
1 4 toy
或者自 dplyr 1.0.0 以来的一个选项:
df_finale %>%
summarise(across(everything(), ~ if(is.numeric(.)) mean(., na.rm = TRUE) else Mode(.)))

关于r summarise_if 有多个条件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61638625/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com