关于通过管道使R代码更简洁的问题

Question

我有几行代码希望使用管道更简洁，这样我就不必一遍又一遍地定义列名：

my_fields <- c(1,2,4) 
timeline_data_1 <- timeline_data[,my_fields]
timeline_data_1 <- timeline_data_1[order(timeline_data_1$avi_date),] #order the field
timeline_data_1$avi_date <- timeline_data_1 $avi_date/30 #divide the field by 30

当我尝试使用管道时，我最终会在这里遇到各种错误。如何使用管道使此语句更简洁？通常这是我尝试过的方法，但运气不佳：

my_fields <- c(1,2,4) 
timeline_data_1 <- timeline_data[,my_fields]  %>%
    timeline_data_1[order(timeline_data_1$avi_date),] #order the field
    timeline_data_1 $avi_date/30 #divide the field by 30

我收到一条错误消息：

undefined columns selected

Answer 1

更清洁的方式

您可以通过这样做获得相同的结果：

library(dplyr)
timeline_data_1 <- timeline_data %>%
  mutate(avi_date = avi_date/30) %>% #divide the field by 30
  arrange(desc(avi_date))) #order the field

希望这会有所帮助。

Answer 2

我个人不理解这种最近到处都依赖/使用tidyverse（我猜那是管道）语法的趋势。您正在用一些简单性换取额外的复杂性。例如，通过调用您需要了解其用法和语法的附加函数（例如mutate、filter、arrange）。

我建议您坚持使用基本 R 并以有意义的方式简单地将命令组合在一起

timeline_data_1 <- timeline_data[order(timeline_data$avi_date),c(1,2,4)] 
timeline_data_1$avi_date <- timeline_data_1$avi_date/30