小编Ser*_*kan的帖子

考虑到这data需要summary措施mean和sd多个变量，

# Create grouping var; ####
mtcars <- mtcars %>% mutate(
        am = case_when(
                am == 0 ~ "Automatic",
                TRUE ~ "Manual"
        )
)

使用以下自定义function和purrr，我可以创建一个baseline table，

# Summarising function; ####
sum_foo <- function(data, var) {
        
        data %>% 
                group_by(am) %>% 
                summarise(
                        mean = mean( !!sym(var) , na.rm = TRUE),
                        sd   = sd( !!sym(var) , na.rm = TRUE)
                ) %>% 
                mutate(across(where(is.double), round, 2)) %>%  
                group_by(am) %>% 
                transmute(
                        value …

我使用separate()函数来拆分列：Enterdateofexam2，它是字符格式，值类似于“25.07”，“13.09”，“16.06”...我的目标是将其拆分为天（25）和月（07），然后使用convert = true 将它们转换为数字以供下一步过滤。

我的代码是：

jimma3n <- jimma3 %>%
        select(Enterdateofexam2, Enterdayofexam, UniqueKey,MEDICALRECORD)%>%
        separate(Enterdateofexam2,into=c("day", "month"), sep=".", convert = TRUE)
view (jimma3n)

但 R 不断警告我：

Expected 2 pieces. Additional pieces discarded in 4088 rows [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, ...].

那么有人可以帮助找出我的代码的哪一部分是错误的吗？谢谢~~！