如何使用 dplyr 向量化此代码 r 代码

Question

我想知道如何通过向量化来缩短这段代码（活动是长度为 3 的字符向量）：

data %>% mutate(label=recode(label, `1`=activities[1],
                                    `2`=activities[2],
                                    `3`=activities[3])) %>%
    rename_with( ~ gsub("^t", "Time", .x)) %>%
    rename_with( ~ gsub("^f", "Frequency", .x)) %>%
    rename_with( ~ gsub("Acc", "Accelerometer", .x))

我想要 mutate(label=recode(label, 1:3 = activities) 和

rename_with( ~ gsub(c("^t", ^f", "Acc"), c("Time","Frequency","Accelerometer"), .x))，但是这些都不行。谢谢

Answer 1

我们可以在 recode 中使用命名向量来更改值

library(dplyr)
data %>%
       mutate(label = recode(label, !!! setNames(activities[1:3], 1:3))) %>%
       rename_at(vars(matches('^([tf]|Acc)')), 
             ~ c("Time", "Frequency", "Accelerometer"))

关于 rename_with，gsub 没有为 patterns 向量化。相反，我们可以使用 str_replace

library(stringr)

   ... %>%
        rename_with(~  str_replace_all(.x, setNames( c("Time","Frequency","Accelerometer"), c("^t", "^f", "Acc"))))

如何使用 dplyr 向量化此代码 r 代码

How to vectorize this code r code using dplyr

r

vectorization

dplyr