Displaying 5 results from an estimated 5 matches for "hour_of_event".
2016 Apr 22
2
clock24.plot/radial plot
...art of the code as:
set.seed(44)
N=500
events <- as.POSIXct("2011-01-01", tz="GMT") +
days(floor(365*runif(N))) +
hours(floor(24*rnorm(N))) + # using rnorm here
minutes(floor(60*runif(N))) +
seconds(floor(60*runif(N)))
hour_of_event <- hour(events)
# make a dataframe
eventdata <- data.frame(datetime = events, eventhour = hour_of_event)
# determine if event is in business hours
eventdata$Workday <- eventdata$eventhour %in% seq(9, 17)
library(circular)
eventdata$eventhour <- circular(hour_of_event%%24, # convert to 2...
2016 Apr 22
0
clock24.plot/radial plot
...art of the code as:
set.seed(44)
N=500
events <- as.POSIXct("2011-01-01", tz="GMT") +
days(floor(365*runif(N))) +
hours(floor(24*rnorm(N))) + # using rnorm here
minutes(floor(60*runif(N))) +
seconds(floor(60*runif(N)))
hour_of_event <- hour(events)
# make a dataframe
eventdata <- data.frame(datetime = events, eventhour = hour_of_event)
# determine if event is in business hours
eventdata$Workday <- eventdata$eventhour %in% seq(9, 17)
library(circular)
eventdata$eventhour <- circular(hour_of_event%%24, # convert to 2...
2016 Apr 29
0
clock24.plot/radial plot: Fixed
...;- as.POSIXct("2011-01-01", tz="GMT") +
> > days(floor(365*runif(N))) +
> > hours(floor(24*rnorm(N))) + # using rnorm here
> > minutes(floor(60*runif(N))) +
> > seconds(floor(60*runif(N)))
> > hour_of_event <- hour(events)
> > # make a dataframe
> > eventdata <- data.frame(datetime = events, eventhour = hour_of_event)
> > # determine if event is in business hours
> > eventdata$Workday <- eventdata$eventhour %in% seq(9, 17)
> > library(circular)
> > eventdat...
2016 Apr 22
0
clock24.plot/radial plot
I use ggplot2 for all my plotting needs where you can make plots circular
with the coord_polar. Maybe this will help you along:
http://rstudio-pubs-static.s3.amazonaws.com/3369_998f8b2d788e4a0384ae565c4280aa47.html
On Fri, 22 Apr 2016 at 08:31 Ogbos Okike <giftedlife2014 at gmail.com> wrote:
> Dear All,
> I am trying to generate a circular/radial plot. The script below has a
>
2016 Apr 21
2
clock24.plot/radial plot
Dear All,
I am trying to generate a circular/radial plot. The script below has a
result I am looking for:
testlen<-rnorm(24)*2+5
testpos<-0:23+rnorm(24)/4
clock24.plot(testlen,testpos,main="Test Clock24 (lines)",show.grid=FALSE,
line.col="green",lwd=3)
if(dev.interactive()) par(ask=TRUE)
# now do a 'daylight' plot