1. 首頁
  2. 問答
  3. R用於數據可視化的Shiny應用程序

R用於數據可視化的Shiny應用程序

2016-10-22 118 views
1

我正在嘗試爲我的數據可視化創建R閃亮應用程序。數據看起來像R用於數據可視化的Shiny應用程序

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

回答

0

嘗試通過以下方式重寫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來過濾和選擇列。

你應該得到的輸出是這樣的： enter image description here

來源

2016-10-22 06:18:59

+0

非常感謝你。我知道我的代碼有很多問題。可能是我應該學習更多的R語法。 – Joe

+0

歡迎來到SO，並樂意提供幫助。如果此答案解決了您的問題，請將其標記爲已接受。 –

相關問題

 相關問題