rshiny 데이터 프레임을 사용하여 여러 그래프를 플로팅

Question

데이터 세트를 사용하여 여러 모델을 작성했습니다. 모델 구축 후 나는 오류를 생성 휴한지로 테이블을 생성 한 : y 축이 각 모델의 값이며, X 축은 시간이고 나는 rshiny 응용 프로그램에이를 가지고 싶어

Model1 Model2  Model3  Model4  Model5 TestData  time 
1 636.854 578.691  623.360  638.430  691.028 5757 Oct 2015 
2 566.647 627.868  562.838  590.698  563.355 512 Nov 2016 
3 569.796 568.839  572.238  573.294  568.711 568 Dec 2015 
4 567.660 561.306  576.710  573.889  564.812 534 Jan 2016 
5 5653.244 514.589  575.057  522.061  514.812 434 Feb 2016 
6 593.142 533.017  601.882  616.739  610.158 540 Mar 2016 
7 594.040 596.805  607.002  609.083  619.537 526 Apr 2016 

. 기본적으로 모든 줄이 포함 된 그림. 내가 ggplot에서 수행하는 경우

는 다음 시작하는 다음 (다음 Date 클래스에 time 변환 고려

library(shiny) 
shinyServer(
    function(input, output) { 
    } 
) 
shinyUI(fluidPage(
    titlePanel(title="This is the first shiny app, hello"), 
    sidebarLayout(position = "right", 
    sidebarPanel(h3("this is the side bar panel"), h4("widget4"), h5("widget5")), 
    mainPanel(h4(" this is the main panel, out is displayed here"), 
       h5(" this is the output5")) 
) 
)) 

Answer 1

당신은 같은 것을 시도 할 수 있습니다 :

plt <- ggplot(data=molted, 
       aes(x=time, y=value, colour=variable, group=variable)) + geom_line(size=1.5) + 
    xlab("Date") + ylab("Values") + theme(axis.text.y = element_text(size=20), 
                  axis.title.y = element_text(size=28), 
                  axis.text.x = element_text(size=20, angle=45, hjust=1), 
                  axis.title.x = element_text(size=26)) 

나는 아주 기본적인 시작 scale_x_date 등을 사용하십시오.)

df <- read.table(text=' Model1 Model2  Model3  Model4  Model5 TestData  time 
       1 636.854 578.691  623.360  638.430  691.028 5757 Oct2015 
       2 566.647 627.868  562.838  590.698  563.355 512 Nov2016 
       3 569.796 568.839  572.238  573.294  568.711 568 Dec2015 
       4 567.660 561.306  576.710  573.889  564.812 534 Jan2016 
       5 5653.244 514.589  575.057  522.061  514.812 434 Feb2016 
       6 593.142 533.017  601.882  616.739  610.158 540 Mar2016 
       7 594.040 596.805  607.002  609.083  619.537 526 Apr2016', header=TRUE) 
library(reshape2) 
melted <- melt(df, id='time') 

library(shiny) 
server <- shinyServer(
    function(input, output) { 
    output$plt<-renderPlot({ 
     ggplot(data=molted, 
      aes(x=time, y=value, colour=variable, group=variable)) + geom_line(size=1.5) + 
       xlab("Date") + ylab("Values") + theme(axis.text.y = element_text(size=20), 
               axis.title.y = element_text(size=28), 
               axis.text.x = element_text(size=20, angle=45, hjust=1), 
               axis.title.x = element_text(size=26))},height = 400,width = 600) 
    } 
) 
ui <- shinyUI(fluidPage(
    titlePanel(title="This is the first shiny app, hello"), 
    sidebarLayout(position = "right", 
       sidebarPanel(h3("this is the side bar panel"), h4("widget4"), h5("widget5")), 
       mainPanel(plotOutput("plt")) 
) 
)) 
shinyApp(ui = ui, server = server)