用于数据可视化的 R Shiny 应用程序

【问题标题】：R Shiny App for Data Visualization用于数据可视化的 R Shiny 应用程序
【发布时间】：2017-03-04 10:35:28
【问题描述】：

我正在尝试为我的数据可视化创建一个闪亮的 R 应用程序。数据看起来像

ID  route_id    trip_id direction   boarding    alighting   load
192197  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  68  0   167
192198  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  4   0   171
192199  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  4   0   175
192200  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  1   0   176
192201  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  3   0   179
192202  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  9   0   188
192203  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   0   188
192204  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  1   0   189
192205  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  1   0   190
192206  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   0   190
192207  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  1   0   191
192208  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   0   191
192209  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  4   0   195
192210  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   0   195
192211  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  3   0   198
192212  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  14  0   212
192213  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   23  189
192214  760-76  8223726-MAR15-MVS-BUS-Weekday-01    Southbound_760__Express_/_Downtown  0   27  162
194205  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   15  0   154
194206  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194207  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194208  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194209  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194210  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194211  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   154
194212  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   15  0   169
194213  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   165
194214  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   1   4   166
194215  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   0   166
194216  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   1   0   167
194217  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   3   0   170
194218  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   7   163
194219  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   2   161
194220  589-76  8224010-MAR15-MVS-BUS-Weekday-01    Northbound_589__Express_/_Minneapolis   0   9   152
313432  852-76  8227043-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 21  0   151
313433  852-76  8227043-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 0   0   151
313434  852-76  8227043-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 0   0   151
313435  852-76  8227043-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 6   0   157
313616  852-76  8227045-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 53  0   183
313617  852-76  8227045-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 0   0   183
313618  852-76  8227045-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 0   0   183
313619  852-76  8227045-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 9   0   192
313620  852-76  8227045-MAR15-MVS-BUS-Weekday-01    Southbound_852__Express_/_Northtown_/_Dntn_Mpls 0   24  168
325301  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    18  0   160
325302  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    2   0   162
325303  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    0   0   162
325304  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    6   7   161
325305  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    6   2   165
325306  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    5   2   168
325307  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    18  12  174
325308  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    4   5   169
325309  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    0   4   169
325310  21-76   8227241-MAR15-MVS-BUS-Weekday-01    Westbound_21__Selby-Lake/_Uptown    0   0   169
352204  94-76   8227923-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   55  0   155
352398  94-76   8227934-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   52  0   170
352399  94-76   8227934-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   0   11  159
352400  94-76   8227934-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   0   2   157
352674  94-76   8227949-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   37  0   162
352675  94-76   8227949-MAR15-MVS-BUS-Weekday-01    Westbound_94_Express_/_Downtown_/_Minneapolis   0   10  152
390699  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 48  1   164
390700  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 2   0   166
390701  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 3   0   169
390702  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 3   1   171
390703  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   171
390704  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 4   0   175
390705  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 16  0   191
390706  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   191
390707  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 12  0   203
390708  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 1   0   204
390709  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 4   11  197
390710  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   197
390711  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 7   4   200
390712  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 1   3   198
390713  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   1   197
390714  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   187
390715  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 6   10  193
390716  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 2   1   194
390717  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   194
390718  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   2   184
390719  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   8   184
390720  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   9   175
390721  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 1   0   176
390722  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   176
390723  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 3   4   165
390724  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   10  165
390725  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   2   163
390726  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   2   161
390727  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   2   159
390728  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   159
390729  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   3   153
390730  22-76   8270934-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   3   153
390817  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 11  0   158
390818  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   158
390819  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   158
390820  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   158
390821  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 2   0   160
390822  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   160
390823  22-76   8270935-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   160
392402  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 20  0   170
392403  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   170
392404  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   8   162
392405  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   162
392406  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   3   159
392407  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   159
392408  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   159
392409  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   152
392410  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   7   152
392411  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   152
392412  22-76   8270947-MAR15-MVS-BUS-Weekday-01    Southbound_22H__Cedar-28Av/VA_Med_Ctr/Via_Dupont-57 0   0   152
415001  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  27  0   169
415002  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   169
415003  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   5   164
415004  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  3   0   167
415005  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   167
415006  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   167
415007  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   167
415008  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   167
415009  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   0   166
415010  17-76   8339808-MAR15-MVS-BUS-Weekday-01    Eastbound_17__Downtown  0   1   166
422541  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  35  0   160
422542  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   1   159
422543  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  2   0   161
422544  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  34  0   195
422545  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  3   0   198
422546  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  2   5   195
422547  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   6   189
422548  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  1   0   190
422549  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  1   3   188
422550  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   0   187
422551  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   1   187
422552  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   1   184
422553  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  2   2   186
422554  17-76   8339910-MAR15-MVS-BUS-Weekday-01    Eastbound_17W__Wash_St_NE_/_To_27th_NE  0   30  156
441158  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 49  0   153
441159  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 5   0   158
441160  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   158
441161  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 3   0   161
441162  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   161
441163  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   161
441164  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 1   0   162
441165  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441166  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441167  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441168  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441169  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441170  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162
441171  724-76  8346221-MAR15-MVS-BUS-Weekday-01    Southbound_724_Brklyn_Ctr_/_Transit_Ctr 0   0   162

所以以下是我的 ui.R 文件从用户那里获取 route_id 的输入，然后为例如创建条形图。加载各种 stop_id。

ui <- fluidPage(
  pageWithSidebar(
    headerPanel('FAST_TRIPS Visulization', windowTitle = "Fast_trips Visaualization"),
    sidebarPanel(
      selectInput('route', 'Choose the Route No.', unique(y['route_id'])),
      selectInput('id', 'Please Choose Stop or Trip ID', c('stop_id','trip_id')),
      selectInput('rider', 'What do you wanna compare?', c('boarding', 'alighting', 'load')),
      radioButtons('method','Please select your method', c('Sum', 'Average'))),
    mainPanel(

      plotOutput('plot1')

    )
  )
)

我的 server.R 正在跟进

server <- function(input, output, session) {

  # Combine the selected variables into a new data frame



  selectedData <- reactive({
    y[c('route_id', input$id, input$rider)]

  })

  data <- reactive({
    subset(selectedData(), route_id == input$route)
  })


  a <- reactive({
    aggregate(input$rider~input$id,data,sum)
  })



  output$plot1 <- renderPlot({barplot(a[input$rider])})

}

每次我运行这个应用程序。我收到以下错误：

object of type 'closure' is not subsettable

我是创建 R 闪亮应用程序的新手。请帮忙

【问题讨论】：

    标签： r bar-chart shiny


    【解决方案1】：

    尝试用以下方式重写server.R：

    server <- function(input, output, session) {
  # Combine the selected variables into a new data frame
  data <- reactive({
    subset(y, route_id == input$route, 
        select = c('route_id', input$id, input$rider))
  })
  a <- reactive({
    aggregate(as.formula(paste0(input$rider, "~", input$id)), data(), sum)
  })  
  output$plot1 <- renderPlot({
    barplot(a()[,input$rider])
  })
}

    解释。代码有几个问题，但据我所知，导致您的错误消息的问题是您没有指定您的反应函数（例如@987654325 @, a) 带括号，例如在您对aggregate 和barplot 的调用中。

    另一个错误是您使用公式构造调用aggregate，但input$rider~input$id 实际上类似于"boarding"~"trip_id"，而不是boarding~trip_id。我使用as.formula(paste0(...))对此进行了修改。

    第三，barplot 为其height 参数采用向量或矩阵，但使用a()[input$rider] 为您提供数据框；而是使用a()[, input$rider]（带逗号）。

    第四，在您的ui.R 中，您有一个stop_id 选项，但该列实际上并不存在于您的数据框中。我没有更改它，因为它会产生警告但不会杀死您的应用。

    第五，请注意，您可以通过一次调用 subset 来过滤和选择列。

    你应该得到这样的输出：

    【讨论】：

    • 非常感谢。我知道我的代码有很多问题。也许我应该更多地学习 R 语法。
    • 欢迎来到 SO，很乐意为您提供帮助。如果此答案解决了您的问题，请将其标记为已接受。
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 2021-11-10
    • 2017-05-21
    • 2022-11-04
    • 2010-09-12
    • 2019-12-17
    • 2012-12-10
    • 1970-01-01
    相关资源
    最近更新 更多
    热门标签
    Java Python linux javascript Mysql C# Docker 算法 前端 SpringBoot Redis Vue spring 设计模式 .net core .net kubernetes c++ 数据库 数据结构 大数据 js 机器学习 微服务 Android Go 程序员 面试 JVM ASP.net core 云原生 人工智能 后端 PHP git CSS golang k8s Nginx Django mybatis 深度学习 多线程 React 架构 devops 爬虫 云计算 Spring Boot LeetCode