R中列上变异函数循环

Question

我正在尝试从几个mutate（dplyr包）函数创建一个循环函数。下面的每一行代码都运行得很好，但是我正在寻找更优雅的代码（如果可能的话，在一行代码中），因为我需要再重复这五行代码10次（对于额外的10个数据帧）。

ism.50是我的Data.Frame，有5列10,000行。

Isim_n20<dbl> Isim_n30<dbl> Isim_n50<dbl> Isim_n100<dbl> Isim_n1000<dbl>
1   1.7789999   3.7416683   1.8228680   1.1573671   1.0336168
2   1.3475063   0.7559132   1.2948982   0.9957275   0.9409909
3   0.5980781   1.7888836   1.4068773   1.0847899   0.9354231
4   1.4656961   1.6271786   1.2401491   1.1348101   0.9749408
5   1.8969097   0.6829495   1.4543307   0.8554704   1.0039841
6   1.3969583   1.1180521   0.7765212   0.8293486   1.0257257
7   0.9155140   1.3892062   0.8045851   1.0480486   1.0344771

ism.50 <- ism.50 %>% mutate(Intv_n20=cut(ism.50[,1], breaks=breaks, labels=labels))
ism.50 <- ism.50 %>% mutate(Intv_n30=cut(ism.50[,2], breaks=breaks, labels=labels)) 
ism.50 <- ism.50 %>% mutate(Intv_n50=cut(ism.50[,3], breaks=breaks, labels=labels)) 
ism.50 <- ism.50 %>% mutate(Intv_n100=cut(ism.50[,4], breaks=breaks, labels=labels)) 
ism.50 <- ism.50 %>% mutate(Intv_n1000=cut(ism.50[,5], breaks=breaks, labels=labels))

for (j in 1:col(ism.50)) {
  ism.50 %>% mutate(Intv_[j]=cut(ism.50[j], breaks=breaks, labels=labels))
}

Answer 1

试一试，跨函数是新的，但它有助于重命名。如果你需要我调整就告诉我。它的好处是它是可伸缩的。所以如果你有100列就可以了。

 library(tidyverse)
    mutate(ism.50,
          across(starts_with("Isim"), 
          ~cut(., 
               breaks = breaks,
               labels = labels), 
          .names = "replace{col}")) %>% 
          rename_at(vars(starts_with("replace")), ~str_replace(., "replaceIsim", "Intv"))