Преобразуйте коэффициенты в числа для построения графиков, используя ggplot2 и reshape2

Question

У меня есть следующий фрейм данных, который содержит расплавленные данные с использованием reshape2, но я бы хотел, чтобы x-диапазон был 1: 8760 часов вместо og 1: 52560. Я предполагаю, что это как-то связано с тем, как они читают дату, но я не могу заставить ее работать.

long.df <- melt(df, id.vars = "Date.Time", measure.vars = c("WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.",
                                                            "NORTH.SIDE.Surface.Inside.Face.Temperature..C..Hourly.",
                                                            "SOUTH.SIDE.Surface.Inside.Face.Temperature..C..Hourly.",
                                                            "EAST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.",
                                                            "FLOOR.SIDE.Surface.Inside.Face.Temperature..C..Hourly.",
                                                            "ROOF.SIDE.Surface.Inside.Face.Temperature..C..Hourly."),
                variable.name = "Surface", value.name = "Temperature")

Это привело к следующему широкому фрейму данных.

head(long.df)
         Date.Time                                               Surface Temperature
1  01/01  01:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.69533
2  01/01  02:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.68036
3  01/01  03:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.66491
4  01/01  04:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.64909
5  01/01  05:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.63322
6  01/01  06:00:00 WEST.SIDE.Surface.Inside.Face.Temperature..C..Hourly.    20.61692

ggplot(long.df, aes(x = 1:52560, y = Temperature, color = Surface)) +
  geom_line(size = 0.3) +
  ylab("Temperature") +
  xlab("Hour") +
  theme_bw()

Это график, который я делаю