From 7c9410246fc64f2638de7779b11070d95e7756e3 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Fri, 17 May 2019 11:08:57 +0200 Subject: Add analysis script --- g5k/logs/.Rhistory | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 g5k/logs/.Rhistory (limited to 'g5k/logs/.Rhistory') diff --git a/g5k/logs/.Rhistory b/g5k/logs/.Rhistory new file mode 100644 index 0000000..9fc1647 --- /dev/null +++ b/g5k/logs/.Rhistory @@ -0,0 +1,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)) -- cgit v1.2.3