View source: R/bp_visuals_scatter.R
bp_scatter | R Documentation |
Display all SBP
and DBP
readings on a scatterplot with deliniation of BP according to the 8
mutually exclusive levels of Hypertension as in Lee et al (2020) (the default), or the
levels set by the American Heart Association (AHA).
bp_scatter( data, plot_type = c("stages2020", "AHA"), subj = NULL, group_var = NULL, wrap_var = NULL, inc_crisis = TRUE, inc_low = TRUE )
data |
A processed dataframe resulting from the |
plot_type |
String corresponding to the particular type of plot to be displayed. Default
plot ( |
subj |
Optional argument. Allows the user to specify and subset specific subjects
from the |
group_var |
A categorical column of the input data set that the individual points are to
be grouped / separated by for a given plot. Cannot contain more than 10 levels (to avoid
overcrowding the plot). This is different from the |
wrap_var |
A categorical column of the input data set that the plots are to be segmented
by. If there are multiple levels such as time of day, or visit number, the output will include a
matrix with each plot corresponding to an individual level. This differs from the |
inc_crisis |
A TRUE / FALSE indicator of whether or not to include the "Crisis" (Hypertensive)
category to the scatter plot. This is only activated in conjunction with |
inc_low |
A TRUE / FALSE indicator of whether or not to include the "Low" (Hypotension)
category to the scatter plot. This is only activated in conjunction with |
There are eight total stages according to Lee et al (2020) with the options to include two additional categories for "Low" (Hypotension) and Hypertensive "Crisis". The categories are as follows:
Low
- (Optional) Legacy category for consistency with AHA stages. According to the AHA, low blood pressure is any reading with SBP < 100 and DBP < 60, and is depicted in light blue in the scatter plot. This is always displayed in "AHA"
plot, and can be displayed in "stages2020"
plot by setting inc_low = TRUE
.
Normal
- SBP
readings less than 120 and DBP
readings
less than 80. Reading within this range that either have SBP > 100 or DBP > 60 are also considered Normal by AHA. Normal BP is depicted in green in the scatter plot.
Elevated
- SBP
readings between 120 - 129 and DBP
readings less than 80. Coincides with Elevated stage as defined by AHA. Without intervention to control the condition, individuals are likely to develop Hypertension. Elevated BP is depicted in yellow in the scatter plot.
Stage 1 - All (SDH)
- SBP
readings between 130 - 139 and DBP
readings between 80 - 89. Stage 1 Hypertension will typically result in doctors prescribing
medication or lifestyle changes. Stage 1 BP is depicted in dark orange in the scatter plot. These readings correspond to Stage 1 as defined by AHA.
Stage 1 - Isolated Diastolic Hypertension (IDH)
- SBP
readings
less than 130, but DBP
readings between 80 - 89. This alternative stage 1 level accounts
for unusually high diastolic readings, but fairly normal systolic readings and is depicted in
orange in the plot. These readings correspond to Stage 1 as defined by AHA.
Stage 1 - Isolated Systolic Hypertension (ISH)
- SBP
readings
between 130 - 139, but DBP
readings less than 80. This alternative stage 1 level accounts
for unusually high systolic readings, but fairly normal diastolic readings and is depicted in
orange in the plot. These readings correspond to Stage 1 as defined by AHA.
Stage 2 - All (SDH)
- SBP
readings between 140 - 180 and DBP
readings
between 90 - 120. Stage 2 Hypertension will typically result in doctors prescribing both
medication and lifestyle changes. Stage 2 BP is depicted in bright red in the scatter plot. These readings correspond to Stage 2 as defined by AHA.
Stage 2 - Isolated Diastolic Hypertension (IDH)
- SBP
readings
less than or equal to 140, but DBP
readings greater than or equal to 90. This alternative
stage 2 level accounts for unusually high diastolic readings, but fairly normal systolic readings
and is depicted in red. These readings correspond to Stage 2 as defined by AHA.
Stage 2 - Isolated Systolic Hypertension (IDH)
- SBP
readings
greater than or equal to 140, but DBP
readings less or equal to 90. This alternative
stage 2 level accounts for unusually high systolic readings, but fairly normal diastolic readings
and is depicted in red. These readings correspond to Stage 2 as defined by AHA.
Crisis
- (Optional) Legacy category for consistency with AHA stages. According to the AHA, hypertensive crisis is defined as a SBP
reading exceeding 180 or a
DBP
reading exceeding 120. This stage requires medical attention immediately.
Crisis is depicted in red in the scatter plot. This is always displayed in "AHA"
plot, and can be displayed in "stages2020"
plot by setting inc_crisis = TRUE
.
A scatter plot graphic using the ggplot2 package overlaying each reading (represented as points) onto a background that contains each stage
Lee H, Yano Y, Cho SMJ, Park JH, Park S, Lloyd-Jones DM, Kim HC. Cardiovascular risk of isolated systolic or diastolic hypertension in young adults. Circulation. 2020; 141:1778–1786. doi: 10.1161/CIRCULATIONAHA.119.044838
Unger, T., Borghi, C., Charchar, F., Khan, N. A., Poulter, N. R., Prabhakaran, D., ... & Schutte, A. E. (2020). 2020 International Society of Hypertension global hypertension practice guidelines. Hypertension, 75(6), 1334-1357. doi: 10.1161/HYPERTENSIONAHA.120.15026
data("bp_jhs") data("bp_hypnos") data("bp_ghana") hypnos_proc <- process_data(bp_hypnos, bp_type = 'abpm', sbp = "syst", dbp = "DIAST", date_time = "date.time", id = "id", wake = "wake", visit = "visit", hr = "hr", map = "map", rpp = "rpp", pp = "pp", ToD_int = c(5, 13, 18, 23)) jhs_proc <- process_data(bp_jhs, sbp = "Sys.mmHg.", dbp = "Dias.mmHg.", date_time = "DateTime", hr = "pulse.bpm.") rm(bp_hypnos, bp_jhs) # HYPNOS Data bp_scatter(hypnos_proc, inc_crisis = TRUE, inc_low = TRUE, group_var = "wake", wrap_var = "day_of_week") # JHS Data bp_scatter(jhs_proc, plot_type = "AHA", group_var = "time_of_day") # Ghana Data Set #(Note that column names are of proper naming convention so no processing needed) bp_scatter(bp::bp_ghana, inc_crisis = TRUE, inc_low = FALSE, group_var = "TIME_ELAPSED")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.