I have been struggling to fit my data to a sine curve.
My data looks like:
frame = data.frame(hour = c(0, 1, 2, ... 24), value = (numbers between 0 and 500))
I have the following model:

It doesn't model much. Adjusted R squared of .1836.
Here is the plot:

Histogram of log(value)

Plot of log(value)

As a time series

Regarding R^2 - your example is a little inconsistent. Your data only has hours, yet in your summary table you show days and months. Unless day and month can explain some of the variance on your last plot, like @StephanKolassa said - there is not much you can do to increase R^2.
– Karolis Koncevičius Nov 22 '14 at 07:13