ggplot2 непрерывная цветовая шкала И тот же порядок даты и времени, что и в наборе данных

Question

Я хочу объединить две особенности этих графиков - цвета градиента и руководство по цветовой шкале в легенде, как показано в (1), и график с тем же порядком даты и времени, что и в файле (2).

(1) Не отображает данные правильно - я хочу соединить точки в течение одной даты, а не 07:00:00 в дате == 5 с последующим 07:00:00 в дате == 10.

d = ggplot(data.test, aes(x = fakeTime, y = Wh, col = Date)) + geom_line() +
scale_colour_gradient2()

(2) Эта проблема решена здесь с использованием в качестве фактора даты, которая не допускает непрерывной цветовой шкалы.

data.test <- transform(data.test,Date=factor(Date,levels=unique(Date)))
d = ggplot(data.test, aes(x = fakeTime, y = Wh, col = Date)) + geom_line() +
 scale_colour_hue(l = 20, c = 60)

fakeTime был создан из-за другого ответа об обмене стека, в котором решено одновременно отображать одинаковое время различных дат (как в (2)) путем введения новой даты, который был одинаковым для всех значений.В конечном итоге правильная дата была извлечена из даты и времени и находится в столбце «Дата», например, 5 означает фактическую дату 2019-03-05.

Вот мой пример набора данных, который можно прочитать с помощью

read.csv("data.csv", header = TRUE, sep = ",", stringsAsFactors = FALSE)

"Date","time","Wh","fakeTime"
5,"07:00:00",0.45,2019-03-01 07:00:00
5,"08:00:00",6.14,2019-03-01 08:00:00
5,"09:00:00",6.89,2019-03-01 09:00:00
5,"10:00:00",13.26,2019-03-01 10:00:00
5,"11:00:00",12.66,2019-03-01 11:00:00
5,"12:00:00",27.05,2019-03-01 12:00:00
5,"13:00:00",14.41,2019-03-01 13:00:00
5,"14:00:00",5.75,2019-03-01 14:00:00
5,"15:00:00",2.78,2019-03-01 15:00:00
5,"16:00:00",1.37,2019-03-01 16:00:00
5,"17:00:00",0,2019-03-01 17:00:00
10,"07:00:00",0.32,2019-03-01 07:00:00
10,"08:00:00",6.12,2019-03-01 08:00:00
10,"09:00:00",22.88,2019-03-01 09:00:00
10,"10:00:00",10.32,2019-03-01 10:00:00
10,"11:00:00",18.33,2019-03-01 11:00:00
10,"12:00:00",23.17,2019-03-01 12:00:00
10,"13:00:00",22.21,2019-03-01 13:00:00
10,"14:00:00",27.09,2019-03-01 14:00:00
10,"15:00:00",12.78,2019-03-01 15:00:00
10,"16:00:00",4.22,2019-03-01 16:00:00
10,"17:00:00",0.94,2019-03-01 17:00:00

Answer 1

попробуйте установить группу = Дата внутри aes () в ggplot () и geom_line (aes (col = Date))

ggplot(data.test, aes(x = fakeTime, y = Wh, group = Date)) + geom_line(aes(col = 
Date)) +
scale_colour_gradient2()