>

R을 사용하여 보고서 카드 출력을 생성하려고하지만 자체 보고서 (.csv 또는 html에 쓸 수있는 출력물 출력)가 필요한 200 개가 넘는 에이전트 (요소 수준)가 있습니다.

아래에 재현 가능한 예가 포함되어 있습니다.

library(tidyverse)
Agents <- c("A", "B", "C")
Month <- c("May", "June", "July")
Score1 <- c(5,7,1)
Score2 <- c(7,8,3)
x <- cbind(Agents, Month, Score1, Score2)
df <- as.data.frame(x)
df$Score1 <- as.numeric(as.character(df$Score1))
df$Score2 <- as.numeric(as.character(df$Score2))
Report <-  df %>% 
           group_by(Month) %>%
           summarise(Skill = mean(Score1), Attitude = mean(Score2))

각 보고서를 필터로 사용하여 에이전트를 반복 한 다음 Report_agentname으로 저장하고 싶습니다. 나는 더 자세히 살펴 보았지만지도 기능과 내 필요에 대해 머리를 숙일 수는 없습니다.


  • 답변 # 1

    purrr 사용  자신 만의 기능을 만들고 보고서를 .csv 또는 원하는 다른 형식으로 저장할 수 있습니다.

    my_report <- function(x) {
      Report <- df %>% 
        filter(Agents == x) %>% 
        group_by(Month) %>%
        summarise(Skill = mean(Score1), Attitude = mean(Score2)) %>% 
        write_csv(paste0("Report_", x, ".csv")) ## or whatever format you prefer
    }
    walk(df$Agents %>% unique, my_report)
    
    

    walk  어떤 값도 반환하지 않습니다. 그것은 my_report 기능을 적용합니다   df 의 고유 한 에이전트에게 .

    보고서를 반환하려면 write_csv() 를 삭제할 수 있습니다  기능 및 사용 :

    my_report2 <- function(x) {
      Report <- df %>% 
        filter(Agents == x) %>% 
        group_by(Month) %>%
        summarise(Skill = mean(Score1), Attitude = mean(Score2))
    }
    map(df$Agents %>% unique, my_report2)
    
    

관련 자료

  • 이전 sql server - SQL DENSE_RANK 및 PARTITION BY
  • 다음 css - 모바일 화면에서 "mat-form-fields"에 여백을 추가하지 않는 "angular-flex-layout"