rr-highcharter
Highcharter time series with hours and by group does not plot
How can I make a time series chart by group (period) with highcharter in R?
The code below does not plot the lines and I am not sure why.
a %>%
highcharter::hchart("line", hcaes(x = date, y = players, group = period)) %>%
highcharter::hc_xAxis(title = list(text = "Player"))
a <- tibble::tribble(
~date, ~players, ~period,
"2021-12-15 00:00:00", 2303, "b",
"2021-12-15 01:00:00", 2463, "b",
"2021-12-15 02:00:00", 2525, "b",
"2021-12-15 03:00:00", 2359, "b",
"2021-12-15 04:00:00", 2046, "b",
"2021-12-15 05:00:00", 1583, "b",
"2021-12-15 06:00:00", 1262, "b",
"2021-12-15 07:00:00", 879, "b",
"2021-12-15 08:00:00", 638, "b",
"2021-12-15 09:00:00", 511, "b",
"2021-12-15 10:00:00", 554, "b",
"2021-12-15 11:00:00", 788, "b",
"2021-12-15 12:00:00", 1036, "b",
"2021-12-15 13:00:00", 1300, "b",
"2021-12-15 14:00:00", 1449, "b",
"2021-12-15 15:00:00", 1727, "b",
"2021-12-15 16:00:00", 1818, "b",
"2021-12-15 17:00:00", 1916, "b",
"2021-12-15 18:00:00", 1924, "b",
"2021-12-15 19:00:00", 1918, "b",
"2021-12-15 20:00:00", 1941, "b",
"2021-12-15 21:00:00", 2042, "b",
"2021-12-15 22:00:00", 2063, "b",
"2021-12-15 23:00:00", 2160, "b",
"2021-12-16 00:00:00", 2347, "b",
"2021-12-16 01:00:00", 2348, "b",
"2021-12-16 02:00:00", 2420, "b",
"2021-12-16 03:00:00", 2295, "b",
"2021-12-16 04:00:00", 2032, "b",
"2021-12-16 05:00:00", 1582, "b",
"2021-12-16 06:00:00", 1168, "b",
"2021-12-16 07:00:00", 830, "b",
"2021-12-16 08:00:00", 637, "b",
"2021-12-16 09:00:00", 521, "b",
"2021-12-16 10:00:00", 433, "b",
"2021-12-16 11:00:00", 68, "b",
"2021-12-15 00:00:00", 2555, "a",
"2021-12-15 01:00:00", 2767, "a",
"2021-12-15 02:00:00", 2738, "a",
"2021-12-15 03:00:00", 2496, "a",
"2021-12-15 04:00:00", 2224, "a",
"2021-12-15 05:00:00", 1761, "a",
"2021-12-15 06:00:00", 1316, "a",
"2021-12-15 07:00:00", 916, "a",
"2021-12-15 08:00:00", 702, "a",
"2021-12-15 09:00:00", 551, "a",
"2021-12-15 10:00:00", 595, "a",
"2021-12-15 11:00:00", 834, "a",
"2021-12-15 12:00:00", 1156, "a",
"2021-12-15 13:00:00", 1407, "a",
"2021-12-15 14:00:00", 1627, "a",
"2021-12-15 15:00:00", 1859, "a",
"2021-12-15 16:00:00", 1974, "a",
"2021-12-15 17:00:00", 2078, "a",
"2021-12-15 18:00:00", 2129, "a",
"2021-12-15 19:00:00", 2202, "a",
"2021-12-15 20:00:00", 2177, "a",
"2021-12-15 21:00:00", 2271, "a",
"2021-12-15 22:00:00", 2367, "a",
"2021-12-15 23:00:00", 2416, "a",
"2021-12-16 00:00:00", 2606, "a",
"2021-12-16 01:00:00", 2658, "a",
"2021-12-16 02:00:00", 2747, "a",
"2021-12-16 03:00:00", 2558, "a",
"2021-12-16 04:00:00", 2256, "a",
"2021-12-16 05:00:00", 1794, "a",
"2021-12-16 06:00:00", 1269, "a",
"2021-12-16 07:00:00", 947, "a",
"2021-12-16 08:00:00", 682, "a",
"2021-12-16 09:00:00", 592, "a",
"2021-12-16 10:00:00", 623, "a",
"2021-12-16 11:00:00", 844, "a"
) %>%
dplyr::mutate(date = lubridate::ymd_hms(date))
It works for me when I transform the date variable like in the code below. However, the x-axis looks bad and I would like to have it as a date instead of an integer.
dplyr::mutate(date = highcharter::datetime_to_timestamp(date)) %>%
highcharter::hchart("line", highcharter::hcaes(x = date, y = players, group = period)) %>%
highcharter::hc_xAxis(title = list(text = "Player"))
Solution
I'm not following where your issue is, but when I run the following code, I get the following plot. Note that I needed to load the ggplot2 package despite calling the highcharter package
# Provided data
a <- tibble::tribble(
~date, ~players, ~period,
"2021-12-15 00:00:00", 2303, "b",
"2021-12-15 01:00:00", 2463, "b",
"2021-12-15 02:00:00", 2525, "b",
"2021-12-15 03:00:00", 2359, "b",
"2021-12-15 04:00:00", 2046, "b",
"2021-12-15 05:00:00", 1583, "b",
"2021-12-15 06:00:00", 1262, "b",
"2021-12-15 07:00:00", 879, "b",
"2021-12-15 08:00:00", 638, "b",
"2021-12-15 09:00:00", 511, "b",
"2021-12-15 10:00:00", 554, "b",
"2021-12-15 11:00:00", 788, "b",
"2021-12-15 12:00:00", 1036, "b",
"2021-12-15 13:00:00", 1300, "b",
"2021-12-15 14:00:00", 1449, "b",
"2021-12-15 15:00:00", 1727, "b",
"2021-12-15 16:00:00", 1818, "b",
"2021-12-15 17:00:00", 1916, "b",
"2021-12-15 18:00:00", 1924, "b",
"2021-12-15 19:00:00", 1918, "b",
"2021-12-15 20:00:00", 1941, "b",
"2021-12-15 21:00:00", 2042, "b",
"2021-12-15 22:00:00", 2063, "b",
"2021-12-15 23:00:00", 2160, "b",
"2021-12-16 00:00:00", 2347, "b",
"2021-12-16 01:00:00", 2348, "b",
"2021-12-16 02:00:00", 2420, "b",
"2021-12-16 03:00:00", 2295, "b",
"2021-12-16 04:00:00", 2032, "b",
"2021-12-16 05:00:00", 1582, "b",
"2021-12-16 06:00:00", 1168, "b",
"2021-12-16 07:00:00", 830, "b",
"2021-12-16 08:00:00", 637, "b",
"2021-12-16 09:00:00", 521, "b",
"2021-12-16 10:00:00", 433, "b",
"2021-12-16 11:00:00", 68, "b",
"2021-12-15 00:00:00", 2555, "a",
"2021-12-15 01:00:00", 2767, "a",
"2021-12-15 02:00:00", 2738, "a",
"2021-12-15 03:00:00", 2496, "a",
"2021-12-15 04:00:00", 2224, "a",
"2021-12-15 05:00:00", 1761, "a",
"2021-12-15 06:00:00", 1316, "a",
"2021-12-15 07:00:00", 916, "a",
"2021-12-15 08:00:00", 702, "a",
"2021-12-15 09:00:00", 551, "a",
"2021-12-15 10:00:00", 595, "a",
"2021-12-15 11:00:00", 834, "a",
"2021-12-15 12:00:00", 1156, "a",
"2021-12-15 13:00:00", 1407, "a",
"2021-12-15 14:00:00", 1627, "a",
"2021-12-15 15:00:00", 1859, "a",
"2021-12-15 16:00:00", 1974, "a",
"2021-12-15 17:00:00", 2078, "a",
"2021-12-15 18:00:00", 2129, "a",
"2021-12-15 19:00:00", 2202, "a",
"2021-12-15 20:00:00", 2177, "a",
"2021-12-15 21:00:00", 2271, "a",
"2021-12-15 22:00:00", 2367, "a",
"2021-12-15 23:00:00", 2416, "a",
"2021-12-16 00:00:00", 2606, "a",
"2021-12-16 01:00:00", 2658, "a",
"2021-12-16 02:00:00", 2747, "a",
"2021-12-16 03:00:00", 2558, "a",
"2021-12-16 04:00:00", 2256, "a",
"2021-12-16 05:00:00", 1794, "a",
"2021-12-16 06:00:00", 1269, "a",
"2021-12-16 07:00:00", 947, "a",
"2021-12-16 08:00:00", 682, "a",
"2021-12-16 09:00:00", 592, "a",
"2021-12-16 10:00:00", 623, "a",
"2021-12-16 11:00:00", 844, "a"
)
Run code:
library(ggplot2)
a %>%
highcharter::hchart("line", highcharter::hcaes(x = date, y = players, group = period)) %>%
highcharter::hc_xAxis(title = list(text = "Players"))
Which returns this plot in the "Viewer" tab (not "Plots") of RStudio.
- R Language - Extracting the correct Data Type in a PDF Table
- Comparing the values of a certain number previous rows with the current row
- rpart package installation in R
- An efficient way to assign value based on a min-max range and category
- Change output of the `purrr::map` function
- osmdata_sf returns failed to perform HTTP request curl::curl_fetch_memory() error in R?
- Comparing nls() to nls2() - what am I doing wrong
- How to add "variables grid" below ggplot
- How can I use predefined code snippets outside of code chunks in Quarto within RStudio/Posit?
- Wrap text for collapse rows in KableExtra for a long table in R
- Implementation of Breusch-Pagan test for random effects in plm with unbalanced panels
- Finding a value of a dataset in different ones
- Replicate matrix
- Unexpected results after converting raster data from geographic to projected coordinate system using the terra package
- How to remove rows by condition in R?
- How do I add an alias for magrittr pipe from R in vscode
- Package ‘neuralnet’ in R, rectified linear unit (ReLU) activation function?
- Sub-subtitle in a graph made with `ggplot2`
- How can I execute a statement and ignore warnings with tryCatch?
- Enumerate events where n consecutive values are not NA
- Serialize/deserialize a column with R and DuckDB
- Putting multiple plots on the same page in R?
- NA values in a non-editable date column in a datatable in a shiny app change to "Invalid Date" when clicked on
- How to enable/disable checkboxInput when certain panel is selected
- Writing robust R code: namespaces, masking and using the `::` operator
- Replacing with conditional value in dplyr case_when()
- How to assign pre-determined RGB values to polygons
- python/pandas equivalent to dplyr 1.0.0 summarize(across())
- Calculating moving average
- Estimating non-monotonic bi-exponential curve fit