높은 데이터 차트가 합쳐진 데이터

R에서 highchart를 사용하여 선형 차트를 만들었으니 이제는 주와 월을 기준으로 데이터를 집계하려고합니다. 나는 온라인 검색 및 자바 솔루션을 가로 질러 와서 나는 현재 차트높은 데이터 차트가 합쳐진 데이터

코드의 동일한 사용하여 R ID 아래

내 코드, 데이터 세트 조각 및 스냅 샷을 구현할 수있는 방법을 아주 확실하지 않다 :

를 다음은

highchart(type = "stock") %>% 
    hc_title(text = paste("Number of cases by diseases over time")) %>% 
    hc_subtitle(text = "This dataset was produced from disease data from 2014 to 2017") %>% 
    hc_add_series_times_values(salmonella_all_subset$date, 
           salmonella_all_subset$Gonorrhea, 
           name = "Gonorrhea") %>% 
    hc_add_series_times_values(salmonella_all_subset$date, 
           salmonella_all_subset$Shigellosis, 
           name = "Shigellosis") %>% 
    hc_add_series_times_values(salmonella_all_subset$date, 
           salmonella_all_subset$`Campylobacteriosis Enteritis`, 
           name = "Campylobacteriosis Enteritis") %>% 
    hc_add_series_times_values(salmonella_all_subset$date, 
           salmonella_all_subset$Chlamydia, 
           name = "Chlamydia") %>% 
    hc_add_series_times_values(salmonella_all_subset$date, 
           salmonella_all_subset$Salmonellosis, 
           name = "Salmonellosis") %>% 

    hc_add_theme(hc_theme_sandsignika()) 




date Campylobacteriosis Enteritis Chlamydia Gonorrhea Salmonellosis Shigellosis 
1/2/2014 1 10 2 1 0 
1/3/2014 2 3 0 1 0 
1/4/2014 0 2 0 0 0 
1/5/2014 0 1 0 0 0 
1/6/2014 3 7 0 0 0 
1/7/2014 1 18 4 0 0 
1/8/2014 1 14 5 0 0 
1/9/2014 0 12 5 0 0 
1/10/2014 0 26 3 0 0 
1/11/2014 0 5 2 0 0 
1/12/2014 1 1 0 1 0 
1/13/2014 0 9 4 0 0 
1/14/2014 0 21 4 0 0 
1/15/2014 1 22 6 0 0 
1/16/2014 0 18 4 0 0 
1/17/2014 0 14 3 0 0 
1/18/2014 0 6 1 0 0 
1/19/2014 0 2 2 0 0 
1/20/2014 1 4 4 1 0 
1/21/2014 0 4 3 0 0 
1/22/2014 1 13 2 0 0 
1/23/2014 0 12 4 0 0 
1/24/2014 0 17 7 0 0 
1/25/2014 0 4 0 2 0 
1/26/2014 0 5 1 0 0 
1/27/2014 0 16 2 0 0 
1/28/2014 2 26 3 0 0 
1/29/2014 0 14 4 0 0 
1/30/2014 0 12 0 0 0 
1/31/2014 0 8 5 0 0 
2/1/2014 0 5 1 1 0 
2/2/2014 1 1 0 0 0 
2/3/2014 2 15 5 1 0 
2/4/2014 0 19 4 1 1 
2/5/2014 1 11 3 1 0 
2/6/2014 0 17 6 0 0 
2/7/2014 0 19 6 0 0 
2/8/2014 0 4 0 0 0 
2/9/2014 0 0 1 1 0 
2/10/2014 1 17 5 0 0 
2/11/2014 0 13 6 0 0 
2/12/2014 1 18 5 0 0 
2/13/2014 1 6 1 0 1 
2/14/2014 1 6 6 0 0 
2/15/2014 0 2 2 0 0 
2/16/2014 1 2 0 1 0 
2/17/2014 0 3 1 1 0 
2/18/2014 0 12 2 0 0 
2/19/2014 0 9 1 0 0 
2/20/2014 0 9 2 0 0 
2/21/2014 0 15 4 0 0

내가이 원하는 방법에 대한 링크입니다, 나는 일, 주 및 월 라디오 버튼을 추가 할 필요가

http://jsfiddle.net/X5WbN/20/

출처

2017-12-20 Dee V

안녕을 기반으로하는 데 도움이 lubridate 및 dlpyr 패키지로 보일 것이다이 될 수 있습니다 꽤 반짝 반짝 빛나고. 당신이 필요로하는 기능은 lubridate에서 floor_date입니다 다음은 작업 예를

library(shiny) 
library(highcharter) 
library(lubridate) 
library(dplyr) 
df <- read.table(header = TRUE,sep = ",",text = "date,Campylobacteriosis Enteritis,Chlamydia,Gonorrhea,Salmonellosis,Shigellosis 
1/2/2014,1,10,2,1,0 
       1/3/2014,2,3,0,1,0 
       1/4/2014,0,2,0,0,0 
       1/5/2014,0,1,0,0,0 
       1/6/2014,3,7,0,0,0 
       1/7/2014,1,18,4,0,0 
       1/8/2014,1,14,5,0,0 
       1/9/2014,0,12,5,0,0 
       1/10/2014,0,26,3,0,0 
       1/11/2014,0,5,2,0,0 
       1/12/2014,1,1,0,1,0 
       1/13/2014,0,9,4,0,0 
       1/14/2014,0,21,4,0,0 
       1/15/2014,1,22,6,0,0 
       1/16/2014,0,18,4,0,0 
       1/17/2014,0,14,3,0,0 
       1/18/2014,0,6,1,0,0 
       1/19/2014,0,2,2,0,0 
       1/20/2014,1,4,4,1,0 
       1/21/2014,0,4,3,0,0 
       1/22/2014,1,13,2,0,0 
       1/23/2014,0,12,4,0,0 
       1/24/2014,0,17,7,0,0 
       1/25/2014,0,4,0,2,0 
       1/26/2014,0,5,1,0,0 
       1/27/2014,0,16,2,0,0 
       1/28/2014,2,26,3,0,0 
       1/29/2014,0,14,4,0,0 
       1/30/2014,0,12,0,0,0 
       1/31/2014,0,8,5,0,0 
       2/1/2014,0,5,1,1,0 
       2/2/2014,1,1,0,0,0 
       2/3/2014,2,15,5,1,0 
       2/4/2014,0,19,4,1,1 
       2/5/2014,1,11,3,1,0 
       2/6/2014,0,17,6,0,0 
       2/7/2014,0,19,6,0,0 
       2/8/2014,0,4,0,0,0 
       2/9/2014,0,0,1,1,0 
       2/10/2014,1,17,5,0,0 
       2/11/2014,0,13,6,0,0 
       2/12/2014,1,18,5,0,0 
       2/13/2014,1,6,1,0,1 
       2/14/2014,1,6,6,0,0 
       2/15/2014,0,2,2,0,0 
       2/16/2014,1,2,0,1,0 
       2/17/2014,0,3,1,1,0 
       2/18/2014,0,12,2,0,0 
       2/19/2014,0,9,1,0,0 
       2/20/2014,0,9,2,0,0 
       2/21/2014,0,15,4,0,0") 

df$date <- df$date %>% as.character() %>% as.Date(format = "%m/%d/%Y") 

# Define UI for application that draws a histogram 
ui <- fluidPage(

    # Application title 
    titlePanel("Highchart Grouping"), 

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
     sidebarPanel(
     radioButtons("intervall", 
        "Aggregation level:", 
        choices = c("Day" = "day","Month" = "month","Year" = "year")) 
    ), 

     # Show a plot of the generated distribution 
     mainPanel(
     highchartOutput("Plot") 
    ) 
    ) 
) 

# Define server logic required to draw a histogram 
server <- function(input, output) { 
    dta <- reactive({ 
    df %>% 
     group_by(date = floor_date(date,input$intervall)) %>% 
     summarise_if(is.numeric,sum) 
    }) 


    output$Plot <- renderHighchart({ 
    salmonella_all_subset <- dta() 
    highchart(type = "stock") %>% 
     hc_title(text = paste("Number of cases by diseases over time")) %>% 
     hc_subtitle(text = "This dataset was produced from disease data from 2014 to 2017") %>% 
     hc_add_series_times_values(salmonella_all_subset$date, 
            salmonella_all_subset$Gonorrhea, 
            name = "Gonorrhea") %>% 
     hc_add_series_times_values(salmonella_all_subset$date, 
            salmonella_all_subset$Shigellosis, 
            name = "Shigellosis") %>% 
     hc_add_series_times_values(salmonella_all_subset$date, 
            salmonella_all_subset$Campylobacteriosis.Enteritis, 
            name = "Campylobacteriosis Enteritis") %>% 
     hc_add_series_times_values(salmonella_all_subset$date, 
            salmonella_all_subset$Chlamydia, 
            name = "Chlamydia") %>% 
     hc_add_series_times_values(salmonella_all_subset$date, 
            salmonella_all_subset$Salmonellosis, 
            name = "Salmonellosis") %>% 

     hc_add_theme(hc_theme_sandsignika()) 
    }) 
} 

# Run the application 
shinyApp(ui = ui, server = server)

이 도움이 희망입니다!

출처

2017-12-20 23:45:13

이 문제를 해결하는 쉬운 방법은 tabPanel을 사용하는 것입니다. 일별, 주별, 월별로 탭을 만들 수 있습니다. 그런 다음 데이터가 일, 주, 월을 기반으로하는 3 가지 출력을 만들어야합니다.

UI :

에게

mainPanel(
    tabsetPanel(
    tabPanel("Day", plotOutput("dayPlot")), 
    tabPanel("Week", plotOutput("weekPlot")), 
    tabPanel("Month", plotOutput("monthPlot")) 
) 
)

서버 :

가

output$dayPlot <- renderPlot ({ 
#code to aggregate data based upon day 
#lineplot 
}) 

output$weekPlot <- renderPlot ({ 
#code to aggregate data based upon week 
#lineplot 
}) 

output$monthPlot <- renderPlot ({ 
#code to aggregate data based upon month 
#lineplot 
})

I 집계 일, 주, 달

출처

2017-12-20 18:42:49

높은 데이터 차트가 합쳐진 데이터

답변

관련 문제