1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
library("tidyverse")
read_csv("nbSensors_2048VMSIZE_100NBSENSORS_15580778521558078188.csv")
energy=read_csv("nbSensors_2048VMSIZE_100NBSENSORS_15580778521558078188.csv")
ggplot(energy, aes(x=ts,y=energy))+geom_line()
ggplot(energy, aes(x=ts,y=energy))+geom_point()
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(x=,y=)
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(x=0,y=0)
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0)
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0) + scale_x_datetime()
energy$ts
as.POSIXct(energy$ts)
as.POSIXct(energy$ts,origin="1970-01-01")
energy %>% mutate(ts=as.POSIXct(energy$ts,origin="1970-01-01"))
energy %>% mutate(ts=as.POSIXct(ts,origin="1970-01-01"))
energy=energy %>% mutate(ts=as.POSIXct(ts,origin="1970-01-01"))
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0) + scale_x_datetime()
energy=read_csv("nbSensors_2048VMSIZE_100NBSENSORS_15580778521558078188.csv")
energy
energy=energy%>%mutate(ts=ts-min(ts))
energy
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0)
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0)+geom_jitter
ggplot(energy, aes(x=ts,y=energy))+geom_line() + expand_limits(y=0)+geom_jitter()
ggplot(energy, aes(x=ts,y=energy)) + expand_limits(y=0)+geom_jitter()
ggplot(energy, aes(x=ts,y=energy)) + expand_limits(y=0)+geom_jitter(position = position_jitter(width = 0.4))
|
