python data.table分组动态列名

Posted 2021-05-09

text <- paste0("list(")
for (colname in names(performanceMeasurementsReal)) {
  if (grepl("\\.", colname)) {
    text <- paste0(text, colname, "=max(", colname, ", na.rm=T),")
  }
}
text <- substr(text, 1, nchar(text)-1)
text <- paste0(text, ")")
expr <- parse(text=text)
performanceMeasurementsAggregated <- performanceMeasurementsReal[, eval(expr), by=date]