blood-sugars/temp.Rmd at master · Choens/blood-sugars · GitHub

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
26


```{r simple-graph, echo=TRUE}

entries %>% filter(date >= '2015-06-17' & date <= '2015-07-17') %>%
    select(date, sgv) %>% ggplot(data=., aes(x = date, y=sgv)) +
    geom_point() + geom_smooth() + geom_line() + labs(x="Date / Time",
    y="Sensor Glucose Values(SGV)", title="Sensor Glucose Values Over
    Time")

```


```{r simple-graph-2, echo=TRUE}

entries %>%
    filter(date >= '2015-06-20' & date <= '2015-07-20') %>%
    select(date, sgv) %>%
    ggplot(data=., aes(x = date, y=sgv)) +
        geom_point() +
        geom_line() +
        labs(x="Date / Time", y="Sensor Glucose Values(SGV)",
             title="Sensor Glucose Values Over Time")

```