ggplot2 running for minutes without plotting-CodePudding

I am attempting to plot the below vector, but when I run the function, it just continues to run and does not plot. I have waited 5 minutes before I feel uncomfortable and click stop in the console. Wondering what is going on. Up until this point I have had no trouble. While I am using facet_wrap with seven variables - there are only 56 rows and 4 columns so it doesn't make sense why it would take so long.

See below dput() of my vector:

structure(list(`data_2021_v2$member_casual` = c("casual", "member", 
"casual", "member", "casual", "member", "casual", "member", "casual", 
"member", "casual", "member", "casual", "member", "casual", "member", 
"casual", "member", "casual", "member", "casual", "member", "casual", 
"member", "casual", "member", "casual", "member", "casual", "member", 
"casual", "member", "casual", "member", "casual", "member", "casual", 
"member", "casual", "member", "casual", "member", "casual", "member", 
"casual", "member", "casual", "member", "casual", "member", "casual", 
"member", "casual", "member", "casual", "member"), `data_2021_v2$time_of_day` = c(1, 
1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 
4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4, 1, 1, 2, 
2, 3, 3, 4, 4, 1, 1, 2, 2, 3, 3, 4, 4), `data_2021_v2$day_of_week` = c("Friday", 
"Friday", "Friday", "Friday", "Friday", "Friday", "Friday", "Friday", 
"Monday", "Monday", "Monday", "Monday", "Monday", "Monday", "Monday", 
"Monday", "Saturday", "Saturday", "Saturday", "Saturday", "Saturday", 
"Saturday", "Saturday", "Saturday", "Sunday", "Sunday", "Sunday", 
"Sunday", "Sunday", "Sunday", "Sunday", "Sunday", "Thursday", 
"Thursday", "Thursday", "Thursday", "Thursday", "Thursday", "Thursday", 
"Thursday", "Tuesday", "Tuesday", "Tuesday", "Tuesday", "Tuesday", 
"Tuesday", "Tuesday", "Tuesday", "Wednesday", "Wednesday", "Wednesday", 
"Wednesday", "Wednesday", "Wednesday", "Wednesday", "Wednesday"
), `data_2021_v2$ride_length` = c(840, 584, 686, 526, 1023, 521, 
916, 610, 895, 545, 697, 530, 1125, 515, 971, 584, 906, 610, 
900, 594, 1194, 666, 1102, 673, 928, 590, 1002, 606, 1225, 676, 
1171, 670, 783, 556, 646, 521, 903, 495, 871, 590, 820, 544, 
652, 530, 962, 499, 891, 584, 814, 566, 647, 531, 920, 496, 874, 
591)), row.names = c(NA, -56L), class = "data.frame")

And below is the function I am using to plot:

ggplot(toddowrlmed, aes(factor(`data_2021_v2$time_of_day`, level=c(2,3,4,1)),
                        `data_2021_v2$ride_length`, fill=`data_2021_v2$member_casual`))  
  facet_wrap(data_2021_v2$day_of_week)  
  geom_col(position = 'dodge')

And my sessionInfo():

    R version 4.1.2 (2021-11-01)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19042)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    
system code page: 65001

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] lubridate_1.8.0 forcats_0.5.1   stringr_1.4.0   dplyr_1.0.7     purrr_0.3.4     readr_2.1.2     tidyr_1.2.0    
 [8] tibble_3.1.6    ggplot2_3.3.5   tidyverse_1.3.1

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.8       cellranger_1.1.0 pillar_1.7.0     compiler_4.1.2   dbplyr_2.1.1     tools_4.1.2     
 [7] digest_0.6.29    bit_4.0.4        jsonlite_1.7.3   lifecycle_1.0.1  gtable_0.3.0     pkgconfig_2.0.3 
[13] rlang_1.0.1      reprex_2.0.1     rstudioapi_0.13  DBI_1.1.2        cli_3.1.1        parallel_4.1.2  
[19] haven_2.4.3      xml2_1.3.3       withr_2.4.3      httr_1.4.2       fs_1.5.2         generics_0.1.2  
[25] vctrs_0.3.8      hms_1.1.1        bit64_4.0.5      grid_4.1.2       tidyselect_1.1.1 glue_1.6.1      
[31] R6_2.5.1         fansi_1.0.2      readxl_1.3.1     vroom_1.5.7      farver_2.1.0     tzdb_0.2.0      
[37] modelr_0.1.8     magrittr_2.0.2   backports_1.4.1  scales_1.1.1     ellipsis_0.3.2   rvest_1.0.2     
[43] assertthat_0.2.1 colorspace_2.0-2 labeling_0.4.2   utf8_1.2.2       stringi_1.7.6    munsell_0.5.0   
[49] broom_0.7.12     crayon_1.4.2

My laptop is brand new and relatively powerful with an intel i7 and 16GB ram, so I can't imagine its a "processing power" issue. Thank you.

CodePudding user response：

Your facet_wrap() call does not look correct, and you have some difficult-to-work-with column names. I named your dput structure dat, and gave it column names, and ran your plot with the facet_wrap correction, like this:

colnames(dat) = c("member_casual", "time_of_day", "day_of_week", "ride_length")

ggplot(dat, aes(factor(time_of_day, level=c(2,3,4,1)),
                ride_length,
                fill=member_casual))  
  facet_wrap(~day_of_week)  
  geom_col(position = 'dodge')