# NOT RUN {
library(Rnvd3)
dat1 <-
lineChartData(x = ~ 1:100, y = ~ sin(1:100/10), key = "Sine wave", color = "lime")
dat2 <-
lineChartData(x = ~ 1:100, y = ~ sin(1:100/10)*0.25 + 0.5,
key = "Another sine wave", color = "red")
dat <- list(dat1, dat2)
lineChart(dat)
# with a date x-axis ####
dat1 <-
lineChartData(
x = ~ Sys.Date() + 1:100, y = ~ sin(1:100/10), key = "Sine wave", color = "lime"
)
dat2 <-
lineChartData(x = ~ Sys.Date() + 1:100, y = ~ sin(1:100/10)*0.25 + 0.5,
key = "Another sine wave", color = "darkred")
dat <- list(dat1, dat2)
lineChart(
dat,
margins = list(t = 100, r = 100, b = 100, l = 100),
xAxisTickFormat = "%Y-%m-%d"
)
# with a datetime x-axis
dat <- data.frame(
x = Sys.time() + (1:300),
y1 = sin(1:300/10),
y2 = sin(1:300/10)*0.25 + 0.5
)
dat1 <-
lineChartData(x = ~x, y = ~y1, data = dat, key = "Sine wave", color = "lime")
dat2 <-
lineChartData(x = ~x, y = ~y2, data = dat,
key = "Another sine wave", color = "darkred")
dat12 <- list(dat1, dat2)
lineChart(
dat12,
margins = list(t = 100, r = 100, b = 100, l = 100),
xAxisTickFormat = "%H:%M:%S",
xAxisTitle = "Time", yAxisTitle = "Energy"
)
# }
Run the code above in your browser using DataLab