resultado %>% knitr::kable()
| __036146_2023-07-19_22-38-26_VCA-2.bin |
0 |
130 |
2023-07-18 11:22:00 |
2023-07-18 11:23:00 |
Caminata con bebé en mochila cuesta abajo |
| __036146_2023-07-19_22-38-26_VCA-2.bin |
96 |
142 |
2023-07-18 11:58:00 |
2023-07-18 11:59:00 |
Caminata a ritmo en 1 min |
| __036146_2023-07-19_22-38-26_VCA-2.bin |
228 |
300 |
2023-07-18 12:00:00 |
2023-07-18 12:02:00 |
Caminata a ritmo en 2 min |
| __036146_2023-07-19_22-38-26_VCA-2.bin |
166 |
272 |
2023-07-18 12:40:00 |
2023-07-18 12:42:00 |
Caminata en 2 minutos |
| __036146_2023-07-19_22-38-26_VCA-2.bin |
0 |
294 |
2023-07-18 21:04:00 |
2023-07-18 21:07:00 |
Subiendo cuesta y caminata tranquila a 38º en 3
min |
| __036181_2023-08-29_13-04-13.bin |
105 |
110 |
2023-08-25 21:31:00 |
2023-08-25 21:32:00 |
Sin comentario1 |
| __036181_2023-08-29_13-04-13.bin |
206 |
212 |
2023-08-25 21:42:00 |
2023-08-25 21:44:00 |
Sin comentario2 |
| __036181_2023-08-29_13-04-13.bin |
101 |
104 |
2023-08-25 21:45:00 |
2023-08-25 21:46:00 |
Sin comentario3 |
| __036181_2023-08-29_13-04-13.bin |
313 |
322 |
2023-08-28 20:27:00 |
2023-08-28 20:30:00 |
Sin comentario4 |
| __036181_2023-09-08_12-26-45.bin |
485 |
525 |
2023-09-03 19:14:00 |
2023-09-03 19:19:00 |
Caminata en llano durante 5 minutos |
| __036181_2023-09-08_12-26-45.bin |
497 |
524 |
2023-09-03 19:22:00 |
2023-09-03 19:27:00 |
Caminata en llano durante 5 minutos |
| __036181_2023-09-08_12-26-45.bin |
489 |
528 |
2023-09-03 19:30:00 |
2023-09-03 19:35:00 |
Caminata en llano durante 5 minutos |
| __036181_2023-09-08_12-26-45.bin |
195 |
219 |
2023-09-03 19:38:00 |
2023-09-03 19:40:00 |
Caminata en llano 1 min, y 1 min bajando cuesta |
| __036181_2023-09-08_12-26-45.bin |
0 |
365 |
2023-09-06 21:25:00 |
2023-09-06 21:28:00 |
Caminata Marina en llano a buen ritm |
| __036181_2023-09-08_12-26-45.bin |
628 |
533 |
2023-09-08 11:54:00 |
2023-09-08 12:01:00 |
Caminata subiendo cuesta a ritmo normal 5 minutos |
| __036181_2023-09-08_12-26-45.bin |
406 |
444 |
2023-09-08 12:05:00 |
2023-09-08 12:09:00 |
Marcha robótica en llano 4 minutos |
| __036181_2023-09-08_12-26-45.bin |
196 |
214 |
2023-09-08 12:13:00 |
2023-09-08 12:15:00 |
Marcha robótica en llano 2 minutos |
resultado2=resultado %>% mutate(error=pasosNr-step_count) %>%
group_by(RAW) %>% summarise(Error=mean(error),SEM=sd(error))
suppressWarnings({
resultado %>% ggplot(aes(x=pasosNr,y=step_count,color=RAW,label=Comentario))+
geom_point()+
geom_smooth(method="lm",se = FALSE)+
ggrepel::geom_text_repel()+
geom_abline(a=0,b=1)+ #poner leyenda arriba
theme(legend.position = "top")
})
## `geom_smooth()` using formula = 'y ~ x'
## Warning: The following aesthetics were dropped during statistical transformation: label.
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
## the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
## variable into a factor?
openxlsx::write.xlsx(resultado,file = "step_count.xlsx")