Wskaźniki kolorów
Wyobraź sobie, że firma rowerowa ma cel: dwie trzecie wszystkich przejazdów powinny trwać poniżej 10 minut, aby rowery były jak najdłużej dostępne. Możemy zobrazować realizację tego celu za pomocą koloru wskaźnika.
To ćwiczenie jest częścią kursu
Tworzenie dashboardów z flexdashboard
Instrukcje do ćwiczenia
- Dodaj sektory do wskaźnika "% Short Trips" tak, aby wartości od 67 wzwyż oznaczały sukces, wartości od 32 w dół oznaczały niebezpieczeństwo, a pośrednie – ostrzeżenie.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
{"my_document.Rmd":"---\ntitle: \"Bike Shares Daily\"\noutput: \n flexdashboard::flex_dashboard:\n orientation: columns\n vertical_layout: fill\n---\n\n```{r setup, include=FALSE}\nlibrary(flexdashboard)\nlibrary(readr)\nlibrary(tidyverse)\nlibrary(lubridate)\n\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_6355/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\nColumn {data-width=650}\n-----------------------------------------------------------------------\n\n### Origins\n\n\nColumn {data-width=350}\n-----------------------------------------------------------------------\n\n### Median Trip Length\n\n\n### % Short Trips\n\n```{r}\n\nnum_trips <- nrow(trips_df)\nshort_trips <- sum(trips_df$duration_sec < 600) # under 10 min\npct_short_trips <- round(100 * short_trips / num_trips, 0)\n\ngauge(value = pct_short_trips,\n min = 0,\n max = 100)\n\n```\n\n### Trips by Start Time\n\n\n"}