홈>2020-02-01 00:41

필터 레벨을 순환하고 R로 출력을 생성하는 방법이 있습니까?

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)

Python2.net

필터 레벨을 순환하고 R로 출력을 생성하는 방법이 있습니까?

관련 자료