| Number of participants | 137 subjects |
| Average age | 61 years |
| Percentage men | 60% |
| Total number of measurements | 50,438 |
| Median number of measurements / participant | 148 |
| Average number of measurements / participant | 371 |
| People with atrial fibrillation (AF) | 69 (50.4%) |
| People with other cardiac arrhythmia’s | 99 (72.3%) |
| Total number of heartbeats registered | 3,359,487 |
| Percentage men: | 60% |
| Avg age man: | 61.5 |
| Avg age women: | 59.7 |
| Oldest male participant: | 77.6 |
| Oldest female participant: | 83.4 |
| Total number of participants: | 137 |
| Average age: | 61 years |
| Participants >40 years: | 93% |
| Participants >60 years : | 59% |
| Country with most users: | BE |
| Total countries: | 8 |
| Most popular device: | Apple |
| Percentage iOS: | 37% |
| Percentage insufficient quality: | 4% |
| Total | ( 137 ) |
| History of Heart Failure | 20 |
| History of Diabetes | 8 |
| History of Artery Disease | 8 |
| History of AF | 109 |
| History of hypertension | 45 |
| History of Stroke | 4 |
| Already takes a bloodthinner | 77 |
| Amount of filled in questionnaires | 60 |
| Amount of blank questionnaires | 8 |
| AF patients | ( 63 ) / ( 137 ) |
| History of Heart Failure | 12 |
| History of Diabetes | 4 |
| History of Artery Disease | 4 |
| History of AF | 51 |
| History of hypertension | 26 |
| History of Stroke | 3 |
| Already takes a bloodthinner | 41 |
| Amount of filled in questionnaires | 60 |
| Amount of blank questionnaires | 3 |
plot_left_2_df <-
prescriptions %>%
select(paid_timestamp) %>%
mutate(date=as.POSIXct((paid_timestamp/1000) ,origin = "1970-01-01 00:00:00:000")) %>%
group_by(date=as.Date(date)) %>%
summarise(cnt=n()) %>%
ungroup %>%
mutate(cnt_=round(cnt/sum(cnt)*100,1)
,cnt__=round(cnt/sum(cnt),2))
ggplot(plot_left_2_df, aes(x=date, y=cnt, fill="#F8766D")) +
geom_bar(stat="identity")+theme_minimal() + theme(legend.position = "none")
## Warning: Removed 1 rows containing missing values (position_stack).
peck_hour <-
prescriptions %>%
select(paid_timestamp) %>%
## https://www.freeformatter.com/epoch-timestamp-to-date-converter.html
mutate(hour=hour(as.POSIXct((paid_timestamp/1000) ,origin = "1970-01-01 00:00:00:000"))) %>%
group_by(hour) %>%
summarise(cnt=n()) %>%
arrange(-cnt) %>% head(1) %>% .[[1]]
rbind(`Peak activation - day:` = as.character(as.Date(plot_left_2_df %>% arrange(-cnt) %>% head(1) %>% .[[1]],origin='1970-01-01'))
,`Peak activation - Time (UTC):` = peck_hour
) %>%
kable() %>%
kable_styling(
bootstrap_options = c("hover", "condensed", "responsive"),
full_width = T,
font_size = 14)
| Peak activation - day: | NA |
| Peak activation - Time (UTC): | 10 |
| Peak measurements (UTC): | 6-8 AM |
| Total number of measurements received: | 50438 |
| Max number of tot. measurements / day: | 99 |
| Most compliant user (%): | 21121% |
| Average number of measurements/user: | 371 |
| Average compliance (%): | 2649% |
| Amount of people with Atrial Fibrillation: | 69 |
| Amount of people with other cardiac arrhythmia’s: | 99 |
| Average heart rate of non-AF people (bpm): | NA |
| Average heart rate during AF (bpm): | 84 |
| Measurements with symptoms (%): | 42% |
| AF-measurements with symptoms: | 1801 |
| Most common symptom: | palpitations |
| Heart rhythm | Frequency | % |
|---|---|---|
| sinus | 39619 | 78.5 |
| extrasystoles_isolated | 2704 | 5.4 |
| atrial_fibrillation | 2298 | 4.6 |
| quality_to_low | 1832 | 3.6 |
| extrasystoles_frequent | 1737 | 3.4 |
| extrasystoles_big_episode | 570 | 1.1 |
| tachycardia | 524 | 1.0 |
| 248 | 0.5 | |
| extrasystoles_trig_episode | 216 | 0.4 |
| atrial_flutter | 147 | 0.3 |
| extrasystoles_bigminy | 144 | 0.3 |
| tachy_episode | 130 | 0.3 |
| bradycardia | 123 | 0.2 |
| extrasystoles_trigeminy | 63 | 0.1 |
| phone_incompatible | 32 | 0.1 |
| increased_hrv | 22 | 0.0 |
| dubious_rhythm | 19 | 0.0 |
| other | 7 | 0.0 |
| brady_episode | 3 | 0.0 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 29414 | 58.3 |
| NA | 11101 | 22.0 |
| palpitations | 3160 | 6.3 |
| other | 2603 | 5.2 |
| fatigue | 2380 | 4.7 |
| shortness_of_breath | 657 | 1.3 |
| lightheaded | 462 | 0.9 |
| chest_pains | 404 | 0.8 |
| confused | 257 | 0.5 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 25008 | 63.1 |
| NA | 9143 | 23.1 |
| fatigue | 1751 | 4.4 |
| other | 1491 | 3.8 |
| palpitations | 1312 | 3.3 |
| shortness_of_breath | 317 | 0.8 |
| lightheaded | 277 | 0.7 |
| chest_pains | 246 | 0.6 |
| confused | 74 | 0.2 |
| Symptoms | Frequency | % |
|---|---|---|
| no_symptoms | 2777 | 47.1 |
| palpitations | 995 | 16.9 |
| NA | 756 | 12.8 |
| other | 594 | 10.1 |
| fatigue | 396 | 6.7 |
| shortness_of_breath | 181 | 3.1 |
| lightheaded | 89 | 1.5 |
| confused | 72 | 1.2 |
| chest_pains | 35 | 0.6 |
| Symptoms | Frequency | % |
|---|---|---|
| NA | 560 | 22.9 |
| palpitations | 553 | 22.6 |
| no_symptoms | 539 | 22.0 |
| other | 321 | 13.1 |
| fatigue | 158 | 6.5 |
| confused | 103 | 4.2 |
| shortness_of_breath | 92 | 3.8 |
| chest_pains | 62 | 2.5 |
| lightheaded | 57 | 2.3 |
| Average % of insufficient quality: | 6.87% |
| Minimum % of insufficient quality: | 0% |
| Maximum % of insufficient quality: | 50% |
| Meas. attempts | Percentage (%) |
|---|---|
| 0 | 0.3 |
| 1 | 83.8 |
| 2 | 5.2 |
| 3 | 1.0 |
| 4 | 0.3 |
| 5 | 0.1 |
| 6 | 0.0 |
| 7 | 0.0 |
| 8 | 0.0 |
| 9 | 0.0 |
| NA | 9.3 |
| Activity context | Insufficient quality distribution (%) |
|---|---|
| sitting | 67.6 |
| NA | 13.8 |
| standing | 6.2 |
| walking | 5.5 |
| exercising | 2.9 |
| other | 2.0 |
| sleeping | 2.0 |