R Shiny App для визуализации данных

Я пытаюсь создать R блестящее приложение для моей визуализации данных. Данные выглядитR Shiny App для визуализации данных

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, а затем creatw гистограмму для например. нагрузки для различных 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 является follwing

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 блестящего приложения. Пожалуйста, помогите

источник

2016-10-22 Joe

Попробуйте переписывания 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]) 
    }) 
}

Объяснение. Существует несколько проблем с кодом, но, насколько я могу судить, проблема, вызывающая ваше сообщение об ошибке, заключается в том, что вы не указали свои реактивные функции (например, data, 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.

Вы должны получить выход так:

источник

2016-10-22 06:18:59

Спасибо Вам большое. Я знаю, что с моим кодом было много проблем. Может быть, я должен изучить синтаксис R больше. – Joe

Добро пожаловать в SO, и мы рады помочь. Если этот ответ разрешил ваш вопрос, отметьте его как принятый. –

R Shiny App для визуализации данных

ответ

Смежные вопросы