日付と時刻のハイチャート折れ線グラフの作成

Question

my data fileで簡単なハイライン折れ線グラフを作成したいと思います。 最初にデータを変更したので、Rは日付と時刻を認識します。

library("tidyverse") 
library("ggplot") 
library("highcharter") 
Moisture_kurokawa <- read_csv("~/Data/Moisture kurokawa.csv") 

mutate(Moisture_kurokawa, 
    timestamp = lubridate::mdy_hms(sprintf("%s %s", Date, Time))) %>% 
    select(-Date, -Time) %>% 
     gather(W, value, -timestamp) -> moisture_long 

だからこの後、私はそう単純でhighchartを作成しようとしました、私は、グラフを得るが、その表示するデータがないと言う

hchart(moisture_long, "line", hcaes(x = timestamp, y = value, group = W)) 

を試してみました。どんな助けでも本当に感謝しています。

ありがとうございます。

結果画像：

Answer 1

は、文字にtimestampを変換しよう：

mutate(Moisture_kurokawa, 
timestamp = lubridate::mdy_hms(sprintf("%s %s", Date, Time))) %>% 
select(-Date, -Time) %>% 
gather(W, value, -timestamp) -> moisture_long 

moisture_long$timestamp <- as.character(moisture_long$timestamp) 
hchart(moisture_long, type="line", hcaes(x=timestamp, y=value, group = W)) 

より良い解決策がある：

library("tidyverse") 
library("highcharter") 
Moisture_kurokawa <- read_csv("./Moisture kurokawa.csv") %>% 
    na.omit() %>% 
    mutate(timestamp = lubridate::mdy_hms(sprintf("%s %s", Date, Time))) 

hc <- highchart(type="stock") 
for (k in names(Moisture_kurokawa)[3:7]) { 
    hc <- hc_add_series_times_values(hc=hc, dates=Moisture_kurokawa$timestamp, 
      values=pull(Moisture_kurokawa, k), name = k) 
} 
hc