ggplot 반짝이 - 플롯이 표시되지

나는 내 데이터는 분명히ggplot 반짝이 - 플롯이 표시되지

structure(list(month = structure(1:142, .Label = c("2005-06", 
"2005-07", "2005-08", "2005-09", "2005-10", "2005-11", "2005-12", 
"2006-01", "2006-02", "2006-03", "2006-04", "2006-05", "2006-06", 
"2006-07", "2006-08", "2006-09", "2006-10", "2006-11", "2006-12", 
"2007-01", "2007-02", "2007-03", "2007-04", "2007-05", "2007-06", 
"2007-07", "2007-08", "2007-09", "2007-10", "2007-11", "2007-12", 
"2008-01", "2008-02", "2008-03", "2008-04", "2008-05", "2008-06", 
"2008-07", "2008-08", "2008-09", "2008-10", "2008-11", "2008-12", 
"2009-01", "2009-02", "2009-03", "2009-04", "2009-05", "2009-06", 
"2009-07", "2009-08", "2009-09", "2009-10", "2009-11", "2009-12", 
"2010-01", "2010-02", "2010-03", "2010-04", "2010-05", "2010-06", 
"2010-07", "2010-08", "2010-09", "2010-10", "2010-11", "2010-12", 
"2011-01", "2011-02", "2011-03", "2011-04", "2011-05", "2011-06", 
"2011-07", "2011-08", "2011-09", "2011-10", "2011-11", "2011-12", 
"2012-01", "2012-02", "2012-03", "2012-04", "2012-05", "2012-06", 
"2012-07", "2012-08", "2012-09", "2012-10", "2012-11", "2012-12", 
"2013-01", "2013-02", "2013-03", "2013-04", "2013-05", "2013-06", 
"2013-07", "2013-08", "2013-09", "2013-10", "2013-11", "2013-12", 
"2014-01", "2014-02", "2014-03", "2014-04", "2014-05", "2014-06", 
"2014-07", "2014-08", "2014-09", "2014-10", "2014-11", "2014-12", 
"2015-01", "2015-02", "2015-03", "2015-04", "2015-05", "2015-06", 
"2015-07", "2015-08", "2015-09", "2015-10", "2015-11", "2015-12", 
"2016-01", "2016-02", "2016-03", "2016-04", "2016-05", "2016-06", 
"2016-07", "2016-08", "2016-09", "2016-10", "2016-11", "2016-12", 
"2017-01", "2017-02", "2017-03"), class = "factor"), accounts_created = c(48L, 
218L, 661L, 523L, 587L, 1385L, 3175L, 3694L, 4828L, 6907L, 6100L, 
7331L, 9847L, 9182L, 13517L, 14172L, 15607L, 20457L, 13691L, 
35775L, 23302L, 25936L, 29160L, 44229L, 28057L, 31420L, 35582L, 
35225L, 62448L, 28496L, 27419L, 33332L, 30771L, 33643L, 31474L, 
37465L, 40301L, 41403L, 38573L, 43099L, 44447L, 42032L, 43404L, 
52888L, 51064L, 58812L, 57449L, 54475L, 56395L, 64072L, 69943L, 
73429L, 79232L, 78275L, 87945L, 96497L, 92172L, 100400L, 99713L, 
99793L, 103067L, 115865L, 133784L, 152043L, 147386L, 156233L, 
170626L, 192205L, 194640L, 230680L, 219910L, 237391L, 233268L, 
243923L, 283644L, 322543L, 327499L, 325497L, 348052L, 425189L, 
419233L, 446002L, 468498L, 437879L, 543711L, 560730L, 574559L, 
523669L, 497116L, 490460L, 503286L, 628410L, 567514L, 623222L, 
632132L, 609353L, 566556L, 613224L, 639265L, 630462L, 650250L, 
696966L, 758969L, 799461L, 719222L, 735193L, 740941L, 703823L, 
683390L, 781972L, 807650L, 838559L, 829927L, 961855L, 1204939L, 
1082964L, 1098516L, 1494934L, 1009347L, 1020310L, 1048679L, 1294614L, 
1343828L, 1387719L, 1314019L, 1585696L, 1351193L, 1556725L, 2798107L, 
1376827L, 1343441L, 1290658L, 1328986L, 1429274L, 1803343L, 1204529L, 
1201884L, 1192114L, 1366015L, 1568402L, 1429326L, 1254460L), 
    comments = c(0L, 0L, 0L, 0L, 0L, 0L, 2357L, 7953L, 9541L, 
    14321L, 19866L, 27423L, 29983L, 37587L, 50659L, 50773L, 54536L, 
    62362L, 60820L, 82659L, 97745L, 113684L, 127091L, 170643L, 
    180439L, 207659L, 225203L, 260123L, 274924L, 373975L, 362979L, 
    455129L, 441245L, 464387L, 468865L, 537406L, 579049L, 593005L, 
    597998L, 683651L, 789113L, 797219L, 852556L, 1058022L, 948344L, 
    1055005L, 1099697L, 1206715L, 1264047L, 1477059L, 1760218L, 
    2040509L, 2240352L, 2226624L, 2557647L, 2905450L, 2686848L, 
    3243501L, 3211545L, 3283363L, 3548140L, 4060855L, 4281423L, 
    4718729L, 5049686L, 5735450L, 5957395L, 6668561L, 6388389L, 
    7571304L, 7601725L, 8896402L, 9814580L, 10633712L, 12423445L, 
    12222905L, 13577570L, 13753896L, 14542605L, 16527084L, 16422774L, 
    17954424L, 19216041L, 20510389L, 21949445L, 24387949L, 25817623L, 
    23609848L, 24936572L, 24834710L, 26230630L, 30694351L, 27416555L, 
    30977337L, 33551836L, 33281887L, 33022329L, 35257639L, 35009325L, 
    32325018L, 36210545L, 37827440L, 40045414L, 43017721L, 39198081L, 
    42942717L, 42884781L, 42886243L, 42508122L, 47416897L, 47541298L, 
    45680630L, 47949180L, 46891046L, 49234627L, 54590153L, 48901554L, 
    55307000L, 55748704L, 55148495L, 55142182L, 59234553L, 58899315L, 
    56227874L, 60400360L, 58276635L, 59156435L, 62749684L, 59854458L, 
    64461004L, 64968014L, 65928553L, 66531676L, 67606088L, 70203145L, 
    67565561L, 72550880L, 71914026L, 73367953L, 79851397L, 72457238L, 
    74989033L), submissions = c(113L, 1075L, 2088L, 2439L, 3508L, 
    3714L, 5330L, 8128L, 9627L, 12683L, 12783L, 14941L, 17079L, 
    24899L, 42277L, 55163L, 38748L, 37220L, 36360L, 44261L, 47415L, 
    59045L, 62039L, 65580L, 62900L, 73995L, 84961L, 91521L, 101662L, 
    107142L, 110957L, 143287L, 147732L, 169897L, 168891L, 178929L, 
    192977L, 219036L, 213981L, 258796L, 284929L, 276948L, 287571L, 
    337394L, 334391L, 370394L, 367355L, 364984L, 392516L, 436016L, 
    445941L, 450769L, 468877L, 464344L, 498628L, 565217L, 518733L, 
    623178L, 634455L, 536295L, 499033L, 522386L, 561752L, 620834L, 
    653032L, 699986L, 750552L, 862205L, 837849L, 992189L, 984104L, 
    1101438L, 1172192L, 1281391L, 1474301L, 1503691L, 1627731L, 
    1666608L, 1796186L, 2028265L, 1996717L, 2188966L, 2315044L, 
    2336047L, 2430131L, 2727478L, 2822897L, 2645828L, 2848964L, 
    2769537L, 2802846L, 3224703L, 2969247L, 3286715L, 3458898L, 
    3334460L, 3290711L, 3470590L, 3404255L, 3342654L, 3657559L, 
    3617673L, 3897270L, 4311176L, 4258096L, 4457622L, 4256699L, 
    4327371L, 4248739L, 4654776L, 4760451L, 4736550L, 5021485L, 
    4977439L, 5156490L, 5705886L, 5298054L, 5851273L, 5819198L, 
    5979365L, 6061807L, 6143449L, 6390745L, 6524258L, 6690333L, 
    6578227L, 6762600L, 7814491L, 8011045L, 7427206L, 7358231L, 
    8018299L, 7952227L, 8157043L, 8430184L, 7943082L, 8657116L, 
    9036437L, 9275209L, 10079594L, 9141514L, 8320634L), votes_cast = c(1593, 
    7697, 21001, 25623, 38336, 53578, 140677, 251891, 281917, 
    354070, 412558, 527969, 508352, 670992, 916705, 872289, 969661, 
    1080387, 1000432, 1372822, 1418432, 1585620, 1870638, 2331648, 
    2298172, 2651797, 2712152, 3180503, 3140253, 3496048, 3966451, 
    4925835, 4929946, 4915463, 4153792, 4755783, 5567076, 6043979, 
    6311657, 7227888, 8008763, 7723053, 7969214, 9919486, 8544935, 
    9172783, 9684676, 10097245, 11040009, 12708002, 14921321, 
    15477325, 17129919, 16854507, 21118879, 22799456, 21307718, 
    23955640, 24015058, 24352578, 26711537, 29005400, 31540253, 
    36783663, 38717930, 42922895, 44721742, 51762788, 49547623, 
    60411718, 61635008, 76643286, 85136762, 91292574, 110235621, 
    111005564, 125330096, 131946776, 146746427, 170252197, 170174242, 
    192702118, 213439714, 227738040, 242492335, 270949434, 291082814, 
    276403018, 299625008, 303961085, 323300156, 367665686, 336187498, 
    386367195, 418442929, 417627992, 405759094, 420771491, 414721909, 
    389736074, 412008384, 422974888, 452019068, 477554760, 433357873, 
    476138296, 469425693, 469225454, 457406295, 489737473, 499537753, 
    481776130, 506470420, 507657165, 528570710, 572878135, 540936548, 
    613690994, 618378213, 622298648, 673896944.5, 716120978.6, 
    745813321.7, 788014837, 828691834, 842793081, 834890351, 
    914619383, 803209155, 825434703, 888020408, 936598904, 998290062, 
    863629375, 990641834, 842687530, 1118434460, 1243171165, 
    1266718016, 1362587431, 1296037003, 1290797207), date = structure(c(12935, 
    12965, 12996, 13027, 13057, 13088, 13118, 13149, 13180, 13208, 
    13239, 13269, 13300, 13330, 13361, 13392, 13422, 13453, 13483, 
    13514, 13545, 13573, 13604, 13634, 13665, 13695, 13726, 13757, 
    13787, 13818, 13848, 13879, 13910, 13939, 13970, 14000, 14031, 
    14061, 14092, 14123, 14153, 14184, 14214, 14245, 14276, 14304, 
    14335, 14365, 14396, 14426, 14457, 14488, 14518, 14549, 14579, 
    14610, 14641, 14669, 14700, 14730, 14761, 14791, 14822, 14853, 
    14883, 14914, 14944, 14975, 15006, 15034, 15065, 15095, 15126, 
    15156, 15187, 15218, 15248, 15279, 15309, 15340, 15371, 15400, 
    15431, 15461, 15492, 15522, 15553, 15584, 15614, 15645, 15675, 
    15706, 15737, 15765, 15796, 15826, 15857, 15887, 15918, 15949, 
    15979, 16010, 16040, 16071, 16102, 16130, 16161, 16191, 16222, 
    16252, 16283, 16314, 16344, 16375, 16405, 16436, 16467, 16495, 
    16526, 16556, 16587, 16617, 16648, 16679, 16709, 16740, 16770, 
    16801, 16832, 16861, 16892, 16922, 16953, 16983, 17014, 17045, 
    17075, 17106, 17136, 17167, 17198, 17226), class = "Date", tzone = "America/New_York")), row.names = c(NA, 
-142L), .Names = c("month", "accounts_created", "comments", "submissions", 
"votes_cast", "date"), class = "data.frame")

library(shiny) 
library(ggplot2) 
library(anytime) 
library(dplyr) 

x<-read.csv("reddit_data_by_month.csv",header=T) 
x["date"]<-anydate(x$month) 

shinyServer(function(input, output) { 

    subsetData <- reactive({ 
    newData <- subset(x, date > as.Date(input$dates[1]) & as.Date(date) < as.Date(input$dates[2])) 
    return(newData) 
    }) 


    output$graph <- renderPlot({ 

    reactive({ 
    graph <- ggplot() 

    if (grepl("1",input$checkGroup)){ 
     graph+geom_line(data=subsetData(),aes(x=date,y=accounts_created,color="red")) 
    }  
    }) 

    }) 

})

다음 ui.R

library(shiny) 
library(anytime) 

x<-read.csv("reddit_data_by_month.csv",header=T) 
x["date"]<-anydate(x$month) 

shinyUI(fluidPage(

    # Application title 
    title ="Reddit Data By Month", 

    plotOutput("graph"), 

    hr(), 

    fluidRow( 
    column(6, 
     dateRangeInput("dates", label = h2("Date Range"), start = x$date[1], end = x$date[142], min = x$date[1], max = x$date[142], format = "mm/yyyy", startview = "year") 

    ), 
    column(6, 
     checkboxGroupInput("checkGroup", label = h2("Data Sets"), 
         choices = list("Accounts Created" = 1, "Comments" = 2, "Submissions" = 3, "Votes" = 4), 
         selected = NULL) 
            #NULL 
    ) 
) 
) 
)

그리고 다음 server.R입니다

있다 서버 측이 완전히 fleshed되지는 않지만 첫 번째 확인란을 선택하면 플롯이 표시되지 않습니다. 콘솔에 오류가 없습니다. 내가 뭘 잘못하고 있는지 잘 모르겠다 ....

출처

2017-04-18 jerH

아래 코드는 작동합니다. 나는 방금 renderPlot 함수 내에서 중복 된 반응을 제거했습니다 (그 자체로 열심히 반응합니다, observe에 필적합니다). grepl을 사용하는 것에 대해 몹시 확신하지는 않으므로이 코드의 컨텍스트에서 방금 if을 사용했습니다.

는 checkboxGroupInput와 다른 행동을 해결하기 위해 구성 요소의 복잡한이 대답에 내 코드를 참조하십시오 : checkBoxGroupInput and if statements (data included)

예제 코드 내 주석의 끝 근처에 있습니다.

library(shiny) 
library(ggplot2) 
library(anytime) 
library(dplyr) 

x<-read.csv("accounts_created_by_month.csv",header=T, stringsAsFactors = F) 
x["date"]<-anydate(x$month) 

ui <- fluidPage(

    # Application title 
    title ="Reddit Data By Month", 

    plotOutput("graph"), 

    hr(), 

    fluidRow( 
    column(6, 
      dateRangeInput("dates", label = h2("Date Range"), start = x$date[1], end = x$date[142], min = x$date[1], max = x$date[142], format = "mm/yyyy", startview = "year") 

    ), 
    column(6, 
    checkboxGroupInput("checkGroup", label = h2("Data Sets"), 
          choices = list("Accounts Created" = 1, "Comments" = 2, "Submissions" = 3, "Votes" = 4), 
          selected = NULL) 
      #NULL 
    ) 
) 
) 

server = function(input, output,session) { 

subsetData <- reactive({ 
    newData <- subset(x, date > as.Date(input$dates[1]) & as.Date(date) < as.Date(input$dates[2])) 
    return(newData) 
    }) 

    output$graph <- renderPlot({ 
    if(length(input$checkGroup) == 0) return() 
     graph <- ggplot() 
     if (input$checkGroup == 1){ 
     graph+geom_line(data=subsetData(),aes(x=date,y=accounts_created,color="red")) 
     }  
    }) 
} 

shinyApp(ui,server)

출처

2017-04-18 01:49:02 Enzo

나머지 문제는 나머지 조건 조합을 확인하는 것과 관련이 있습니다. 첫 번째 확인란을 선택하면 위의 코드가 작동합니다. 내 의도는 나머지 조건을 위해 else if 문을 수행하는 것이 었습니다. 그러나'else if (input $ checkGroup == c (1,2)) {'를 시도하면 콘솔에 * 조건의 길이가 1보다 크고 첫 번째 요소 만 사용된다는 경고가 표시됩니다. * 박스가 체크 될 때 추가 플롯이 나타나지 않습니다 ,,, – jerH

알아 냈습니다 .... 선택 수만큼 조건부 수표를 주문해야합니다 ... 모든 단일 수표를 먼저 확인하고, 길이를 모두 검사합니다 2, 길이 3 ... – jerH

ggplot 반짝이 - 플롯이 표시되지

답변

관련 문제