OverplotEpisodes: OverplotEpisodes

In RHRV: Heart Rate Variability Analysis of ECG Data

OverplotEpisodes

Description

Add episodic information to the current plot

Usage

OverplotEpisodes(HRVData, Tags = NULL, Indexes = NULL,
  epColorPalette = NULL, eplim, lty = 2, markEpisodes = T, ymark,
  showEpLegend = T, epLegendCoords = NULL, Tag = NULL, ...)

Arguments

HRVData	Data structure that stores the beats register and information related to it.
Tags	List of tags to specify which episodes, as apnoea or oxygen desaturation, are included in the plot. Tags="all" plots all episodes present in the data.
Indexes	List of indexes of episodes (see ListEpisodes) to specify which episodes are included in the plot. Indexes="all" plots all episodes present in the data.
epColorPalette	Vector specifying the color of each of the episodes that will be plotted. The length of epColorPalette should be equal or greater than the number of different episodes to be plotted.
eplim	Two-component vector specifying the y-range (min,max) for the vertical lines limiting each episode.
lty	The line type for the vertical lines limiting each episode.
markEpisodes	Boolean specyfing if a horizontal mark should be included for each of the episodes.
ymark	Two-component vector specifying the y-range (min,max) for the horizontal marks. Only used if markEpisodes = TRUE.
showEpLegend	Boolean argument. If TRUE, a legend of the episodes is included.
epLegendCoords	Two-component vector specifiying the coordinates where the legend should be placed. By defaul, the legend is placed on top of the plot.
Tag	Deprecated argument maintained for compatibility, use Tags instead.
...	Other graphical parameters for the vertical lines limiting each episode. See plot.default.

Examples

## Not run: 
# Read file "a03" from the physionet apnea-ecg database
library(RHRV)
HRVData <- CreateHRVData()
HRVData <- LoadBeatWFDB(HRVData,RecordName="test_files/WFDB/a03")
HRVData <- LoadApneaWFDB(HRVData,RecordName="test_files/WFDB/a03")
# Add other type of episode for a more complete example (this episode does
# not have any physiological meaning)
HRVData <- AddEpisodes(HRVData,InitTimes=c(4500),Durations=c(1000), 
                       Tags="Other", Values = 1)
HRVData <- BuildNIHR(HRVData)
HRVData <- FilterNIHR(HRVData)
HRVData <- InterpolateNIHR(HRVData)


PlotHR(HRVData)
OverplotEpisodes(HRVData,ymark=c(150,151),eplim=c(20,150))

# Change some default parameters
PlotHR(HRVData)
OverplotEpisodes(HRVData,ymark=c(150,151),eplim=c(20,150),
                 epLegendCoords=c(25000,150), lty=5, 
                 epColorPalette=c("blue","green"))
                 
# Use episodic information with the spectrogram... In order to obtain a proper
# representation of the episodes we need to avoid the use of the spectrogram
# legend
sp <- PlotSpectrogram(HRVData, size=600, shift=60, freqRange=c(0,0.05),
                      showLegend=F);
OverplotEpisodes(HRVData, markEpisodes=T, ymark=c(0.04,0.0401),
                 eplim=c(0,0.04), Tags="APNEA",
                 epColorPalette = c("white"), lwd=3)

## End(Not run)

RHRV documentation built on Jan. 16, 2024, 3:05 a.m.