| Title: | Interactive 'plotly' Graphics for the 'rtemis' Ecosystem |
|---|---|
| Description: | Interactive 'plotly', 'networkD3', 'threejs' and 'leaflet' graphics: scatter, 3D scatter, bar, box, density, heatmap, pie, calibration, confusion matrix, ROC, survival, time series, spectrogram, volcano, protein annotation, network, map and table plots, with 'rtemis' themes and palettes. These functions began as part of the 'rtemis' package (<doi:10.32614/CRAN.package.rtemis>); 'rtemis.draw' provides their successors. |
| Authors: | E.D. Gennatas [aut, cre, cph] (ORCID: <https://orcid.org/0000-0001-9280-3609>) |
| Maintainer: | E.D. Gennatas <[email protected]> |
| License: | BSD_3_clause + file LICENSE |
| Version: | 0.1.0 |
| Built: | 2026-10-13 22:31:07 UTC |
| Source: | https://github.com/rtemis-org/rtemis.dplot3 |
Print available draw functions for visualization.
available_draw(verbosity = 1L)available_draw(verbosity = 1L)
verbosity |
Integer: Verbosity level. |
Named list of draw function descriptions, invisibly.
EDG
available_draw()available_draw()
Print available rtemis themes
available_themes()available_themes()
Called for its side effect of printing available themes.
EDG
available_themes()available_themes()
Select an rtemis theme
choose_theme( x = c("white", "whitegrid", "whiteigrid", "black", "blackgrid", "blackigrid", "darkgray", "darkgraygrid", "darkgrayigrid", "lightgraygrid", "mediumgraygrid"), override = NULL )choose_theme( x = c("white", "whitegrid", "whiteigrid", "black", "blackgrid", "blackigrid", "darkgray", "darkgraygrid", "darkgrayigrid", "lightgraygrid", "mediumgraygrid"), override = NULL )
x |
Character: Name of theme to select. If not defined, will use |
override |
Optional List: Theme parameters to override defaults. |
If x is not defined, choose_theme() will use getOption("rtemis_theme", "whitegrid") to
select the theme. This allows users to set a default theme for all rtemis plots by setting
options(rtemis_theme = "theme_name") at any point.
Theme object.
EDG
# Get default theme set by options(rtemis_theme = "theme_name"). # If not set, defaults to "whitegrid": choose_theme() # Get darkgraygrid theme. Same as `theme_darkgraygrid()`: choose_theme("darkgraygrid") # This will use the default theme, and override the foreground color to red: choose_theme(override = list(fg = "#ff0000"))# Get default theme set by options(rtemis_theme = "theme_name"). # If not set, defaults to "whitegrid": choose_theme() # Get darkgraygrid theme. Same as `theme_darkgraygrid()`: choose_theme("darkgraygrid") # This will use the default theme, and override the foreground color to red: choose_theme(override = list(fg = "#ff0000"))
Convert a color to grayscale
col2grayscale(x, what = c("color", "decimal"))col2grayscale(x, what = c("color", "decimal"))
x |
Color to convert to grayscale |
what |
Character: "color" returns a hexadecimal color, "decimal" returns a decimal between 0 and 1 |
Uses the NTSC grayscale conversion: 0.299 * R + 0.587 * G + 0.114 * B
Character: color hex code.
EDG
col2grayscale("red") col2grayscale("red", "dec")col2grayscale("red") col2grayscale("red", "dec")
Modify alpha, hue, saturation and value (HSV) of a color
color_adjust(color, alpha = NULL, hue = 0, sat = 0, val = 0)color_adjust(color, alpha = NULL, hue = 0, sat = 0, val = 0)
color |
Input color. Any format that grDevices::col2rgb() recognizes |
alpha |
Numeric: Scale alpha by this amount. Future: replace with absolute setting |
hue |
Float: How much hue to add to |
sat |
Float: How much saturation to add to |
val |
Float: How much to increase value of |
Adjusted color
EDG
previewcolor(c(teal = "#00ffff", teal50 = color_adjust("#00ffff", alpha = 0.5)))previewcolor(c(teal = "#00ffff", teal50 = color_adjust("#00ffff", alpha = 0.5)))
Draw interactive 3D scatter plots using plotly.
draw_3Dscatter( x, y = NULL, z = NULL, fit = NULL, clustering_config = NULL, group = NULL, rsq = TRUE, mode = "markers", order_on_x = NULL, main = NULL, xlab = NULL, ylab = NULL, zlab = NULL, alpha = 0.8, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), axes_square = FALSE, group_names = NULL, font_size = 16, marker_col = NULL, marker_size = 8, fit_col = NULL, fit_alpha = 0.7, fit_lwd = 2.5, tick_font_size = 12, spike_col = NULL, legend = NULL, legend_xy = c(0, 1), legend_xanchor = "left", legend_yanchor = "auto", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, margin = list(t = 30, b = 0, l = 0, r = 0), fit_params = NULL, width = NULL, height = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", verbosity = 0L, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_3Dscatter( x, y = NULL, z = NULL, fit = NULL, clustering_config = NULL, group = NULL, rsq = TRUE, mode = "markers", order_on_x = NULL, main = NULL, xlab = NULL, ylab = NULL, zlab = NULL, alpha = 0.8, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), axes_square = FALSE, group_names = NULL, font_size = 16, marker_col = NULL, marker_size = 8, fit_col = NULL, fit_alpha = 0.7, fit_lwd = 2.5, tick_font_size = 12, spike_col = NULL, legend = NULL, legend_xy = c(0, 1), legend_xanchor = "left", legend_yanchor = "auto", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, margin = list(t = 30, b = 0, l = 0, r = 0), fit_params = NULL, width = NULL, height = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", verbosity = 0L, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
Numeric, vector/data.frame/list: x-axis data. |
y |
Numeric, vector/data.frame/list: y-axis data. |
z |
Numeric, vector/data.frame/list: z-axis data. |
fit |
Character: Fit method. |
clustering_config |
|
group |
Factor: Grouping variable. |
rsq |
Logical: If TRUE, print R-squared values in legend if |
mode |
Character, vector: "markers", "lines", "markers+lines". |
order_on_x |
Logical: If TRUE, order |
main |
Character: Main title. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
zlab |
Character: z-axis label. |
alpha |
Numeric: Alpha for markers. |
bg |
Background color. |
plot_bg |
Plot background color. |
theme |
|
palette |
Character vector: Colors to use. |
axes_square |
Logical: If TRUE, draw a square plot. |
group_names |
Character: Names for groups. |
font_size |
Numeric: Font size. |
marker_col |
Color for markers. |
marker_size |
Numeric: Marker size. |
fit_col |
Color for fit line. |
fit_alpha |
Numeric: Alpha for fit surface. |
fit_lwd |
Numeric: Line width for fit line. |
tick_font_size |
Numeric: Tick font size. |
spike_col |
Spike lines color. |
legend |
Logical: If TRUE, draw legend. |
legend_xy |
Numeric: Position of legend. |
legend_xanchor |
Character: X anchor for legend. |
legend_yanchor |
Character: Y anchor for legend. |
legend_orientation |
Character: Orientation of legend. |
legend_col |
Color for legend text. |
legend_bg |
Color for legend background. |
legend_border_col |
Color for legend border. |
legend_borderwidth |
Numeric: Border width for legend. |
legend_group_gap |
Numeric: Gap between legend groups. |
margin |
Numeric, named list: Margins for top, bottom, left, right. |
fit_params |
|
width |
Numeric: Width of plot. |
height |
Numeric: Height of plot. |
padding |
Numeric: Graph padding. |
displayModeBar |
Logical: If TRUE, display mode bar. |
modeBar_file_format |
Character: File format for mode bar. |
verbosity |
Integer: Verbosity level. |
filename |
Character: Filename to save plot. |
file_width |
Numeric: Width of saved file. |
file_height |
Numeric: Height of saved file. |
file_scale |
Numeric: Scale of saved file. |
See docs.rtemis.org/r for detailed documentation.
Note that draw_3Dscatter uses the theme's plot_bg as grid_col.
A plotly object.
EDG
draw_3Dscatter(iris, group = iris[["Species"]], theme = theme_darkgraygrid())draw_3Dscatter(iris, group = iris[["Species"]], theme = theme_darkgraygrid())
Draw interactive barplots using plotly
draw_bar( x, main = NULL, xlab = NULL, ylab = NULL, alpha = 1, horizontal = FALSE, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), barmode = c("group", "relative", "stack", "overlay"), group_names = NULL, order_by_val = FALSE, ylim = NULL, hovernames = NULL, feature_names = NULL, font_size = 16, annotate = FALSE, annotate_col = theme[["labs_col"]], legend = NULL, legend_col = NULL, legend_xy = c(1, 1), legend_orientation = "v", legend_xanchor = "left", legend_yanchor = "auto", hline = NULL, hline_col = NULL, hline_width = 1, hline_dash = "solid", hline_annotate = NULL, hline_annotation_x = 1, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), automargin_x = TRUE, automargin_y = TRUE, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 0L )draw_bar( x, main = NULL, xlab = NULL, ylab = NULL, alpha = 1, horizontal = FALSE, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), barmode = c("group", "relative", "stack", "overlay"), group_names = NULL, order_by_val = FALSE, ylim = NULL, hovernames = NULL, feature_names = NULL, font_size = 16, annotate = FALSE, annotate_col = theme[["labs_col"]], legend = NULL, legend_col = NULL, legend_xy = c(1, 1), legend_orientation = "v", legend_xanchor = "left", legend_yanchor = "auto", hline = NULL, hline_col = NULL, hline_width = 1, hline_dash = "solid", hline_annotate = NULL, hline_annotation_x = 1, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), automargin_x = TRUE, automargin_y = TRUE, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 0L )
x |
vector (possibly named), matrix, or data.frame: If matrix or data.frame, rows are groups (can be 1 row), columns are features |
main |
Character: Main plot title. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
alpha |
Float (0, 1]: Transparency for bar colors. |
horizontal |
Logical: If TRUE, plot bars horizontally |
theme |
|
palette |
Character vector: Colors to use. |
barmode |
Character: Type of bar plot to make: "group", "relative", "stack", "overlay". Use "relative" for stacked bars, which handles negative values correctly, unlike "stack", as of writing. |
group_names |
Character, vector, length = NROW(x): Group names.
If NULL, uses |
order_by_val |
Logical: If TRUE, order bars by increasing value. Only use for single group data. |
ylim |
Float, vector, length 2: y-axis limits. |
hovernames |
Character, vector: Optional character vector to show on hover over each bar. |
feature_names |
Character, vector, length = NCOL(x): Feature names.
If NULL, uses |
font_size |
Float: Font size for all labels. |
annotate |
Logical: If TRUE, annotate stacked bars |
annotate_col |
Color for annotations |
legend |
Logical: If TRUE, draw legend. If NULL, turned on if there is more than one feature present. |
legend_col |
Color: Legend text color. If NULL, determined by the theme. |
legend_xy |
Numeric, vector, length 2: x and y for plotly's legend |
legend_orientation |
"v" or "h" for vertical or horizontal |
legend_xanchor |
Character: Legend's x anchor: "left", "center", "right", "auto" |
legend_yanchor |
Character: Legend's y anchor: "top", "middle", "bottom", "auto" |
hline |
Float: If defined, draw a horizontal line at this y value. |
hline_col |
Color for |
hline_width |
Float: Width for |
hline_dash |
Character: Type of line to draw: "solid", "dot", "dash", "longdash", "dashdot", or "longdashdot" |
hline_annotate |
Character: Text of horizontal line annotation if
|
hline_annotation_x |
Numeric: x position to place annotation with paper as reference. 0: to the left of the plot area; 1: to the right of the plot area |
margin |
Named list: plot margins. |
automargin_x |
Logical: If TRUE, automatically set x-axis margins |
automargin_y |
Logical: If TRUE, automatically set y-axis margins |
padding |
Integer: N pixels to pad plot. |
displayModeBar |
Logical: If TRUE, show plotly's modebar |
modeBar_file_format |
Character: "svg", "png", "jpeg", "pdf" / any output file type supported by plotly and your system |
filename |
Character: Path to file to save static plot. |
file_width |
Integer: File width in pixels for when |
file_height |
Integer: File height in pixels for when |
file_scale |
Numeric: If saving to file, scale plot by this number |
verbosity |
Integer: Verbosity level. |
See docs.rtemis.org/r for detailed documentation.
plotly object.
EDG
draw_bar(VADeaths, legend_xy = c(0, 1)) draw_bar(VADeaths, legend_xy = c(1, 1), legend_xanchor = "left") # simple individual bars a <- c(4, 7, 2) draw_bar(a) # if input is a data.frame, each row is a group and each column is a feature b <- data.frame(x = c(3, 5, 7), y = c(2, 1, 8), z = c(4, 5, 2)) rownames(b) <- c("Jen", "Ben", "Ren") draw_bar(b) # stacked draw_bar(b, barmode = "stack")draw_bar(VADeaths, legend_xy = c(0, 1)) draw_bar(VADeaths, legend_xy = c(1, 1), legend_xanchor = "left") # simple individual bars a <- c(4, 7, 2) draw_bar(a) # if input is a data.frame, each row is a group and each column is a feature b <- data.frame(x = c(3, 5, 7), y = c(2, 1, 8), z = c(4, 5, 2)) rownames(b) <- c("Jen", "Ben", "Ren") draw_bar(b) # stacked draw_bar(b, barmode = "stack")
Draw interactive boxplots or violin plots using plotly
draw_box( x, time = NULL, time_bin = c("year", "quarter", "month", "day"), type = c("box", "violin"), group = NULL, x_transform = c("none", "scale", "minmax"), main = NULL, xlab = "", ylab = NULL, alpha = 0.6, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), boxpoints = "outliers", quartilemethod = "linear", xlim = NULL, ylim = NULL, violin_box = TRUE, orientation = "v", annotate_n = FALSE, annotate_n_y = 1, annotate_mean = FALSE, annotate_meansd = FALSE, annotate_meansd_y = 1, annotate_col = theme[["labs_col"]], xnames = NULL, group_lines = FALSE, group_lines_dash = "dot", group_lines_col = NULL, group_lines_alpha = 0.5, labelify = TRUE, order_by_fn = NULL, font_size = 16, ylab_standoff = 18, legend = NULL, legend_col = NULL, legend_xy = NULL, legend_orientation = "v", legend_xanchor = "auto", legend_yanchor = "auto", xaxis_type = "category", cataxis_tickangle = "auto", margin = list(b = 65, l = 65, t = 50, r = 12, pad = 0), automargin_x = TRUE, automargin_y = TRUE, boxgroupgap = NULL, hovertext = NULL, show_n = FALSE, pvals = NULL, htest = "none", htest_compare = 0, htest_y = NULL, htest_annotate = TRUE, htest_annotate_x = 0, htest_annotate_y = -0.065, htest_star_col = theme[["labs_col"]], htest_bracket_col = theme[["labs_col"]], starbracket_pad = c(0.04, 0.05, 0.09), use_plotly_group = FALSE, width = NULL, height = NULL, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, mathjax = NULL )draw_box( x, time = NULL, time_bin = c("year", "quarter", "month", "day"), type = c("box", "violin"), group = NULL, x_transform = c("none", "scale", "minmax"), main = NULL, xlab = "", ylab = NULL, alpha = 0.6, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), boxpoints = "outliers", quartilemethod = "linear", xlim = NULL, ylim = NULL, violin_box = TRUE, orientation = "v", annotate_n = FALSE, annotate_n_y = 1, annotate_mean = FALSE, annotate_meansd = FALSE, annotate_meansd_y = 1, annotate_col = theme[["labs_col"]], xnames = NULL, group_lines = FALSE, group_lines_dash = "dot", group_lines_col = NULL, group_lines_alpha = 0.5, labelify = TRUE, order_by_fn = NULL, font_size = 16, ylab_standoff = 18, legend = NULL, legend_col = NULL, legend_xy = NULL, legend_orientation = "v", legend_xanchor = "auto", legend_yanchor = "auto", xaxis_type = "category", cataxis_tickangle = "auto", margin = list(b = 65, l = 65, t = 50, r = 12, pad = 0), automargin_x = TRUE, automargin_y = TRUE, boxgroupgap = NULL, hovertext = NULL, show_n = FALSE, pvals = NULL, htest = "none", htest_compare = 0, htest_y = NULL, htest_annotate = TRUE, htest_annotate_x = 0, htest_annotate_y = -0.065, htest_star_col = theme[["labs_col"]], htest_bracket_col = theme[["labs_col"]], starbracket_pad = c(0.04, 0.05, 0.09), use_plotly_group = FALSE, width = NULL, height = NULL, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, mathjax = NULL )
x |
Vector or List of vectors: Input |
time |
Date or date-time vector |
time_bin |
Character: "year", "quarter", "month", or "day". Period to bin by |
type |
Character: "box" or "violin" |
group |
Factor to group by |
x_transform |
Character: "none", "scale", or "minmax" to use raw values, scaled and centered values or min-max normalized to 0-1, respectively. Transform is applied to each variable before grouping, so that groups are comparable |
main |
Character: Plot title. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
alpha |
Float (0, 1]: Transparency for box colors. |
bg |
Color: Background color. |
plot_bg |
Color: Background color for plot area. |
theme |
|
palette |
Character vector: Colors to use. |
boxpoints |
Character or FALSE: "all", "suspectedoutliers", "outliers". |
quartilemethod |
Character: "linear", "exclusive", "inclusive". See https://plotly.com/r/box-plots/#choosing-the-algorithm-for-computing-quartiles. |
xlim |
Numeric vector: x-axis limits |
ylim |
Numeric vector: y-axis limits |
violin_box |
Logical: If TRUE and type is "violin" show box within violin plot |
orientation |
Character: "v" or "h" for vertical, horizontal |
annotate_n |
Logical: If TRUE, annotate with N in each box |
annotate_n_y |
Numeric: y position for |
annotate_mean |
Logical: If TRUE, annotate with mean of each box |
annotate_meansd |
Logical: If TRUE, annotate with mean (SD) of each box |
annotate_meansd_y |
Numeric: y position for |
annotate_col |
Color for annotations |
xnames |
Character, vector, length = NROW(x): x-axis names. If NULL, tries to set names automatically. |
group_lines |
Logical: If TRUE, add separating lines between groups of boxplots |
group_lines_dash |
Character: "solid", "dot", "dash", "longdash", "dashdot", or "longdashdot" |
group_lines_col |
Color for |
group_lines_alpha |
Numeric: transparency for |
labelify |
Logical: If TRUE, labelify x names |
order_by_fn |
Function: If defined, order boxes by increasing value of this function (e.g. median). |
font_size |
Float: Font size for all labels. |
ylab_standoff |
Numeric: Standoff for y-axis label |
legend |
Logical: If TRUE, draw legend. |
legend_col |
Color: Legend text color. If NULL, determined by the theme. |
legend_xy |
Float, vector, length 2: Relative x, y position for legend. |
legend_orientation |
"v" or "h" for vertical, horizontal |
legend_xanchor |
Character: Legend's x anchor: "left", "center", "right", "auto" |
legend_yanchor |
Character: Legend's y anchor: "top", "middle", "bottom", "auto" |
xaxis_type |
Character: "linear", "log", "date", "category", "multicategory" |
cataxis_tickangle |
Numeric: Angle for categorical axis tick labels |
margin |
Named list: plot margins. |
automargin_x |
Logical: If TRUE, automatically set x-axis margins |
automargin_y |
Logical: If TRUE, automatically set y-axis margins |
boxgroupgap |
Numeric: Sets the gap (in plot fraction) between boxes of the same location coordinate |
hovertext |
Character vector: Text to show on hover for each data point |
show_n |
Logical: If TRUE, show N in each box |
pvals |
Numeric vector: Precomputed p-values. Should correspond to each box.
Bypasses |
htest |
Character: e.g. "t.test", "wilcox.test" to compare each box to
the first box. If grouped, compare within each group to the first box.
If p-value of test is less than |
htest_compare |
Integer: 0: Compare all distributions against the first one;
2: Compare every second box to the one before it. Requires |
htest_y |
Numeric: y coordinate for |
htest_annotate |
Logical: if TRUE, include htest annotation |
htest_annotate_x |
Numeric: x-axis paper coordinate for htest annotation |
htest_annotate_y |
Numeric: y-axis paper coordinate for htest annotation |
htest_star_col |
Color for htest annotation stars |
htest_bracket_col |
Color for htest annotation brackets |
starbracket_pad |
Numeric: Padding for htest annotation brackets |
use_plotly_group |
If TRUE, use plotly's |
width |
Numeric: Force plot size to this width. If NULL, fill available space. |
height |
Numeric: Force plot size to this height. If NULL, fill available space. |
displayModeBar |
Logical: If TRUE, show plotly's modebar |
modeBar_file_format |
Character: "svg", "png", "jpeg", "pdf" |
filename |
Character: Path to file to save static plot. |
file_width |
Integer: File width in pixels for when |
file_height |
Integer: File height in pixels for when |
file_scale |
Numeric: If saving to file, scale plot by this number |
mathjax |
Optional Character {"local", "cdn"}: Whether to use local or CDN version of MathJax for rendering mathematical annotations. |
See docs.rtemis.org/r for detailed documentation.
For multiple box plots, the recommendation is:
x=dat[, columnindex] for multiple variables of a data.frame
x=list(a=..., b=..., etc.) for multiple variables of potentially
different length
x=split(var, group) for one variable with multiple groups: group names
appear below boxplots
x=dat[, columnindex], group = factor for grouping multiple variables:
group names appear in legend
If orientation == "h", xlab is applied to y-axis and vice versa.
Similarly, xaxis_type applies to the y-axis - the "category" type would
not normally need changing.
plotly object.
EDG
# A.1 Box plot of 4 variables draw_box(iris[, 1:4]) # A.2 Grouped Box plot draw_box(iris[, 1:4], group = iris[["Species"]]) draw_box(iris[, 1:4], group = iris[["Species"]], annotate_n = TRUE) # B. Boxplot binned by time periods # Synthetic data with an instantenous shift in distributions set.seed(2021) dat1 <- data.frame(alpha = rnorm(200, 0), beta = rnorm(200, 2), gamma = rnorm(200, 3)) dat2 <- data.frame(alpha = rnorm(200, 5), beta = rnorm(200, 8), gamma = rnorm(200, -3)) x <- rbind(dat1, dat2) startDate <- as.Date("2019-12-04") endDate <- as.Date("2021-03-31") time <- seq(startDate, endDate, length.out = 400) draw_box(x[, 1], time, "year", ylab = "alpha") draw_box(x, time, "year", legend.xy = c(0, 1)) draw_box(x, time, "quarter", legend.xy = c(0, 1)) draw_box(x, time, "month", legend.orientation = "h", legend.xy = c(0, 1), legend.yanchor = "bottom" ) # (Note how the boxplots widen when the period includes data from both dat1 and dat2)# A.1 Box plot of 4 variables draw_box(iris[, 1:4]) # A.2 Grouped Box plot draw_box(iris[, 1:4], group = iris[["Species"]]) draw_box(iris[, 1:4], group = iris[["Species"]], annotate_n = TRUE) # B. Boxplot binned by time periods # Synthetic data with an instantenous shift in distributions set.seed(2021) dat1 <- data.frame(alpha = rnorm(200, 0), beta = rnorm(200, 2), gamma = rnorm(200, 3)) dat2 <- data.frame(alpha = rnorm(200, 5), beta = rnorm(200, 8), gamma = rnorm(200, -3)) x <- rbind(dat1, dat2) startDate <- as.Date("2019-12-04") endDate <- as.Date("2021-03-31") time <- seq(startDate, endDate, length.out = 400) draw_box(x[, 1], time, "year", ylab = "alpha") draw_box(x, time, "year", legend.xy = c(0, 1)) draw_box(x, time, "quarter", legend.xy = c(0, 1)) draw_box(x, time, "month", legend.orientation = "h", legend.xy = c(0, 1), legend.yanchor = "bottom" ) # (Note how the boxplots widen when the period includes data from both dat1 and dat2)
Draw calibration plot
draw_calibration( true_labels, predicted_prob, n_bins = 10L, bin_method = c("quantile", "equidistant"), binclasspos = 2L, main = NULL, subtitle = NULL, xlab = "Mean predicted probability", ylab = "Empirical risk", show_marginal_x = TRUE, marginal_x_y = -0.02, marginal_col = NULL, marginal_size = 10, mode = "markers+lines", show_brier = TRUE, theme = choose_theme(getOption("rtemis_theme")), filename = NULL, ... )draw_calibration( true_labels, predicted_prob, n_bins = 10L, bin_method = c("quantile", "equidistant"), binclasspos = 2L, main = NULL, subtitle = NULL, xlab = "Mean predicted probability", ylab = "Empirical risk", show_marginal_x = TRUE, marginal_x_y = -0.02, marginal_col = NULL, marginal_size = 10, mode = "markers+lines", show_brier = TRUE, theme = choose_theme(getOption("rtemis_theme")), filename = NULL, ... )
true_labels |
Factor or list of factors with true class labels |
predicted_prob |
Numeric vector or list of numeric vectors with predicted probabilities |
n_bins |
Integer: Number of windows to split the data into |
bin_method |
Character: "quantile" or "equidistant": Method to bin the estimated probabilities. |
binclasspos |
Integer: Index of the positive class. The convention used in the package is the second level is the positive class. |
main |
Character: Main title |
subtitle |
Character: Subtitle, placed bottom right of plot |
xlab |
Character: x-axis label |
ylab |
Character: y-axis label |
show_marginal_x |
Logical: Add marginal plot of distribution of estimated probabilities |
marginal_x_y |
Numeric: y position of marginal plot |
marginal_col |
Character: Color of marginal plot |
marginal_size |
Numeric: Size of marginal plot |
mode |
Character: "lines", "markers", "lines+markers": How to plot. |
show_brier |
Logical: If TRUE, add Brier scores to trace names. |
theme |
|
filename |
Character: Path to save output. |
... |
Additional arguments passed to draw_scatter |
plotly object.
EDG
# Synthetic data with n cases n <- 500L true_labels <- factor(sample(c("A", "B"), n, replace = TRUE)) # Synthetic probabilities where A has mean 0.25 and B has mean 0.75 predicted_prob <- ifelse(true_labels == "A", rbeta(n, 2, 6), rbeta(n, 6, 2) ) draw_calibration(true_labels, predicted_prob)# Synthetic data with n cases n <- 500L true_labels <- factor(sample(c("A", "B"), n, replace = TRUE)) # Synthetic probabilities where A has mean 0.25 and B has mean 0.75 predicted_prob <- ifelse(true_labels == "A", rbeta(n, 2, 6), rbeta(n, 6, 2) ) draw_calibration(true_labels, predicted_prob)
Plot confusion matrix
draw_confusion( x, xlab = "Predicted", ylab = "Reference", true_col = "#43A4AC", false_col = "#FA9860", font_size = 18, main = NULL, main_y = 1, main_yanchor = "bottom", theme = choose_theme(getOption("rtemis_theme")), margin = list(l = 20, r = 5, b = 5, t = 20), filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_confusion( x, xlab = "Predicted", ylab = "Reference", true_col = "#43A4AC", false_col = "#FA9860", font_size = 18, main = NULL, main_y = 1, main_yanchor = "bottom", theme = choose_theme(getOption("rtemis_theme")), margin = list(l = 20, r = 5, b = 5, t = 20), filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
|
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
true_col |
Color for true positives & true negatives. |
false_col |
Color for false positives & false negatives. |
font_size |
Integer: font size. |
main |
Character: plot title. |
main_y |
Numeric: y position of the title. |
main_yanchor |
Character: y anchor of the title. |
theme |
|
margin |
List: Plot margins. |
filename |
Character: file name to save the plot. |
file_width |
Numeric: width of the file. |
file_height |
Numeric: height of the file. |
file_scale |
Numeric: scale of the file. |
plotly object.
EDG
# Assume positive class is "b" true_labels <- factor(c("a", "a", "a", "b", "b", "b", "b", "b", "b", "b")) predicted_labels <- factor(c("a", "b", "a", "b", "b", "a", "b", "b", "b", "a")) predicted_prob <- c(0.3, 0.55, 0.45, 0.75, 0.57, 0.3, 0.8, 0.63, 0.62, 0.39) metrics <- classification_metrics(true_labels, predicted_labels, predicted_prob) draw_confusion(metrics)# Assume positive class is "b" true_labels <- factor(c("a", "a", "a", "b", "b", "b", "b", "b", "b", "b")) predicted_labels <- factor(c("a", "b", "a", "b", "b", "a", "b", "b", "b", "a")) predicted_prob <- c(0.3, 0.55, 0.45, 0.75, 0.57, 0.3, 0.8, 0.63, 0.62, 0.39) metrics <- classification_metrics(true_labels, predicted_labels, predicted_prob) draw_confusion(metrics)
Draw Distributions using Histograms and Density Plots using plotly.
draw_dist( x, type = c("density", "histogram"), mode = c("overlap", "ridge"), group = NULL, main = NULL, xlab = NULL, ylab = NULL, col = NULL, alpha = 0.75, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), axes_square = FALSE, group_names = NULL, font_size = 16, font_alpha = 0.8, legend = NULL, legend_xy = c(0, 1), legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", bargap = 0.05, vline = NULL, vline_col = theme[["fg"]], vline_width = 1, vline_dash = "dot", text = NULL, text_x = 1, text_xref = "paper", text_xanchor = "left", text_y = 1, text_yref = "paper", text_yanchor = "top", text_col = theme[["fg"]], margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), automargin_x = TRUE, automargin_y = TRUE, zerolines = FALSE, density_kernel = "gaussian", density_bw = "SJ", histnorm = c("", "density", "percent", "probability", "probability density"), histfunc = c("count", "sum", "avg", "min", "max"), hist_n_bins = 20, barmode = "overlay", ridge_sharex = TRUE, ridge_y_labs = FALSE, ridge_order_on_mean = TRUE, displayModeBar = TRUE, modeBar_file_format = "svg", width = NULL, height = NULL, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_dist( x, type = c("density", "histogram"), mode = c("overlap", "ridge"), group = NULL, main = NULL, xlab = NULL, ylab = NULL, col = NULL, alpha = 0.75, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), axes_square = FALSE, group_names = NULL, font_size = 16, font_alpha = 0.8, legend = NULL, legend_xy = c(0, 1), legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", bargap = 0.05, vline = NULL, vline_col = theme[["fg"]], vline_width = 1, vline_dash = "dot", text = NULL, text_x = 1, text_xref = "paper", text_xanchor = "left", text_y = 1, text_yref = "paper", text_yanchor = "top", text_col = theme[["fg"]], margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), automargin_x = TRUE, automargin_y = TRUE, zerolines = FALSE, density_kernel = "gaussian", density_bw = "SJ", histnorm = c("", "density", "percent", "probability", "probability density"), histfunc = c("count", "sum", "avg", "min", "max"), hist_n_bins = 20, barmode = "overlay", ridge_sharex = TRUE, ridge_y_labs = FALSE, ridge_order_on_mean = TRUE, displayModeBar = TRUE, modeBar_file_format = "svg", width = NULL, height = NULL, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
Numeric vector / data.frame / list: Input. If not a vector, each column / each element is drawn. |
type |
Character: "density" or "histogram". |
mode |
Character: "overlap", "ridge". How to plot different groups; on the same axes ("overlap"), or on separate plots with the same x-axis ("ridge"). |
group |
Vector: Will be converted to factor; levels define group members. |
main |
Character: Main title for the plot. |
xlab |
Character: Label for the x-axis. |
ylab |
Character: Label for the y-axis. |
col |
Color: Colors for the plot. |
alpha |
Numeric: Alpha transparency for plot elements. |
plot_bg |
Color: Background color for plot area. |
theme |
|
palette |
Character: Color palette to use. |
axes_square |
Logical: If TRUE, draw a square plot to fill the graphic device. |
group_names |
Character: Names for the groups. |
font_size |
Numeric: Font size for plot text. |
font_alpha |
Numeric: Alpha transparency for font. |
legend |
Logical: If TRUE, draw legend. If NULL, set to TRUE if x is a list of more than 1 element. |
legend_xy |
Numeric, vector, length 2: Relative x, y position for legend. |
legend_col |
Color: Color for the legend text. |
legend_bg |
Color: Background color for legend. |
legend_border_col |
Color: Border color for legend. |
bargap |
Numeric: The gap between adjacent histogram bars in plot fraction. |
vline |
Numeric, vector: If defined, draw a vertical line at this x value(s). |
vline_col |
Color: Color for |
vline_width |
Numeric: Width for |
vline_dash |
Character: Type of line to draw: "solid", "dot", "dash", "longdash", "dashdot", or "longdashdot". |
text |
Character: If defined, add this text over the plot. |
text_x |
Numeric: x-coordinate for |
text_xref |
Character: "x": |
text_xanchor |
Character: "auto", "left", "center", "right". |
text_y |
Numeric: y-coordinate for |
text_yref |
Character: "y": |
text_yanchor |
Character: "auto", "top", "middle", "bottom". |
text_col |
Color: Color for |
margin |
List: Margins for the plot. |
automargin_x |
Logical: If TRUE, automatically adjust x-axis margins. |
automargin_y |
Logical: If TRUE, automatically adjust y-axis margins. |
zerolines |
Logical: If TRUE, draw lines at y = 0. |
density_kernel |
Character: Kernel to use for density estimation. |
density_bw |
Character: Bandwidth to use for density estimation. |
histnorm |
Character: "", "density", "percent", "probability", "probability density". |
histfunc |
Character: "count", "sum", "avg", "min", "max". |
hist_n_bins |
Integer: Number of bins to use if type = "histogram". |
barmode |
Character: Barmode for histogram. One of "overlay", "stack", "relative", "group". |
ridge_sharex |
Logical: If TRUE, draw single x-axis when |
ridge_y_labs |
Logical: If TRUE, show individual y labels when |
ridge_order_on_mean |
Logical: If TRUE, order groups by mean value when |
displayModeBar |
Logical: If TRUE, display the mode bar. |
modeBar_file_format |
Character: File format for mode bar. |
width |
Numeric: Force plot size to this width. If NULL, fill available space. |
height |
Numeric: Force plot size to this height. If NULL, fill available space. |
filename |
Character: Path to file to save static plot. |
file_width |
Integer: File width in pixels for when |
file_height |
Integer: File height in pixels for when |
file_scale |
Numeric: If saving to file, scale plot by this number. |
See docs.rtemis.org/r for detailed documentation.
If input is data.frame, non-numeric variables will be removed.
plotly object.
EDG
# Will automatically use only numeric columns draw_dist(iris) draw_dist(iris[["Sepal.Length"]], group = iris[["Species"]])# Will automatically use only numeric columns draw_dist(iris) draw_dist(iris[["Sepal.Length"]], group = iris[["Species"]])
A draw_scatter wrapper for plotting true vs. predicted values
draw_fit( x, y, xlab = "True", ylab = "Predicted", fit = "glm", se_fit = TRUE, axes_square = TRUE, axes_equal = TRUE, diagonal = TRUE, ... )draw_fit( x, y, xlab = "True", ylab = "Predicted", fit = "glm", se_fit = TRUE, axes_square = TRUE, axes_equal = TRUE, diagonal = TRUE, ... )
x |
Numeric, vector/data.frame/list: True values. If y is NULL and
|
y |
Numeric, vector/data.frame/list: Predicted values |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
fit |
Character: Fit method. |
se_fit |
Logical: If TRUE, include standard error of the fit. |
axes_square |
Logical: If TRUE, draw a square plot. |
axes_equal |
Logical: If TRUE, set equal scaling for axes. |
diagonal |
Logical: If TRUE, add diagonal line. |
... |
Additional arguments passed to draw_scatter |
plotly object.
EDG
x <- rnorm(500) y <- x + rnorm(500) draw_fit(x, y)x <- rnorm(500) y <- x + rnorm(500) draw_fit(x, y)
Plot graph using networkD3
draw_graphD3( net, groups = NULL, color_scale = NULL, edge_col = NULL, node_col = NULL, node_alpha = 0.5, edge_alpha = 0.33, zoom = TRUE, legend = FALSE, palette = get_palette(getOption("rtemis_palette")), theme = choose_theme(getOption("rtemis_theme")), ... )draw_graphD3( net, groups = NULL, color_scale = NULL, edge_col = NULL, node_col = NULL, node_alpha = 0.5, edge_alpha = 0.33, zoom = TRUE, legend = FALSE, palette = get_palette(getOption("rtemis_palette")), theme = choose_theme(getOption("rtemis_theme")), ... )
net |
igraph network. |
groups |
Vector, length n nodes indicating group/cluster/community membership of nodes in |
color_scale |
D3 colorscale (e.g. |
edge_col |
Color for edges. |
node_col |
Color for nodes. |
node_alpha |
Float [0, 1]: Node opacity. |
edge_alpha |
Float [0, 1]: Edge opacity. |
zoom |
Logical: If TRUE, graph is zoomable. |
legend |
Logical: If TRUE, display legend for groups. |
palette |
Character vector: Colors to use. |
theme |
|
... |
Additional arguments to pass to |
forceNetwork object.
EDG
library(igraph) g <- make_ring(10) draw_graphD3(g)library(igraph) g <- make_ring(10) draw_graphD3(g)
Interactive plotting of an igraph net using threejs.
draw_graphjs( net, vertex_size = 1, vertex_col = NULL, vertex_label_col = NULL, vertex_label_alpha = 0.66, vertex_frame_col = NA, vertex_label = NULL, vertex_shape = "circle", edge_col = NULL, edge_alpha = 0.5, edge_curved = 0.35, edge_width = 2, layout = c("fr", "dh", "drl", "gem", "graphopt", "kk", "lgl", "mds", "sugiyama"), coords = NULL, layout_args = list(), cluster = NULL, groups = NULL, cluster_config = list(), cluster_mark_groups = TRUE, cluster_color_vertices = FALSE, main = "", theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), filename = NULL, ... )draw_graphjs( net, vertex_size = 1, vertex_col = NULL, vertex_label_col = NULL, vertex_label_alpha = 0.66, vertex_frame_col = NA, vertex_label = NULL, vertex_shape = "circle", edge_col = NULL, edge_alpha = 0.5, edge_curved = 0.35, edge_width = 2, layout = c("fr", "dh", "drl", "gem", "graphopt", "kk", "lgl", "mds", "sugiyama"), coords = NULL, layout_args = list(), cluster = NULL, groups = NULL, cluster_config = list(), cluster_mark_groups = TRUE, cluster_color_vertices = FALSE, main = "", theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), filename = NULL, ... )
net |
igraph network. |
vertex_size |
Numeric: Vertex size. |
vertex_col |
Color for vertices. |
vertex_label_col |
Color for vertex labels. |
vertex_label_alpha |
Numeric: Transparency for |
vertex_frame_col |
Color for vertex border (frame). |
vertex_label |
Character vector: Vertex labels. If NULL, keep existing names in |
vertex_shape |
Character, vector, length 1 or N nodes: Vertex shape. See |
edge_col |
Color for edges. |
edge_alpha |
Numeric: Transparency for edges. |
edge_curved |
Numeric: Curvature of edges. |
edge_width |
Numeric: Edge thickness. |
layout |
Character: one of: "fr", "dh", "drl", "gem", "graphopt", "kk", "lgl", "mds", "sugiyama", corresponding to all the available layouts in igraph. |
coords |
Output of precomputed igraph layout. If provided, |
layout_args |
List of arguments to pass to |
cluster |
Character: one of: "edge_betweenness", "fast_greedy", "infomap", "label_prop", "leading_eigen", "louvain", "optimal", "spinglass", "walktrap", corresponding to all the available igraph clustering functions. |
groups |
Output of precomputed igraph clustering. If provided, |
cluster_config |
List of arguments to pass to |
cluster_mark_groups |
Logical: If TRUE, draw polygons to indicate clusters, if |
cluster_color_vertices |
Logical: If TRUE, color vertices by cluster membership. |
main |
Character: Main title. |
theme |
|
palette |
Color vector or name of rtemis palette. |
filename |
Character: If provided, save plot to this filepath. |
... |
Extra arguments to pass to |
scatterplotThree object.
EDG
library(igraph) g <- make_ring(10) draw_graphjs(g)library(igraph) g <- make_ring(10) draw_graphjs(g)
Draw interactive heatmaps using heatmaply.
draw_heatmap( x, Rowv = TRUE, Colv = TRUE, cluster = FALSE, symm = FALSE, cellnote = NULL, colorgrad_n = 101, colors = NULL, space = "rgb", lo = "#18A3AC", lomid = NULL, mid = NULL, midhi = NULL, hi = "#F48024", k_row = 1, k_col = 1, grid_gap = 0, limits = NULL, margins = NULL, main = NULL, xlab = NULL, ylab = NULL, key_title = NULL, showticklabels = NULL, colorbar_len = 0.7, plot_method = "plotly", theme = choose_theme(getOption("rtemis_theme")), row_side_colors = NULL, row_side_palette = NULL, col_side_colors = NULL, col_side_palette = NULL, font_size = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, ... )draw_heatmap( x, Rowv = TRUE, Colv = TRUE, cluster = FALSE, symm = FALSE, cellnote = NULL, colorgrad_n = 101, colors = NULL, space = "rgb", lo = "#18A3AC", lomid = NULL, mid = NULL, midhi = NULL, hi = "#F48024", k_row = 1, k_col = 1, grid_gap = 0, limits = NULL, margins = NULL, main = NULL, xlab = NULL, ylab = NULL, key_title = NULL, showticklabels = NULL, colorbar_len = 0.7, plot_method = "plotly", theme = choose_theme(getOption("rtemis_theme")), row_side_colors = NULL, row_side_palette = NULL, col_side_colors = NULL, col_side_palette = NULL, font_size = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, ... )
x |
Input matrix. |
Rowv |
Logical or dendrogram. If Logical: Compute dendrogram and reorder rows. If dendrogram: use as is, without reordering. See more at |
Colv |
Logical or dendrogram. If Logical: Compute dendrogram and reorder columns. If dendrogram: use as is, without reordering. See more at |
cluster |
Logical: If TRUE, set |
symm |
Logical: If TRUE, treat |
cellnote |
Matrix with values to be displayed on hover. Set to "values" to display |
colorgrad_n |
Integer: Number of colors in gradient. |
colors |
Character vector: Colors to use in gradient. |
space |
Character: Color space to use. |
lo |
Character: Color for low values. |
lomid |
Character: Color for low-mid values. |
mid |
Character: Color for mid values. |
midhi |
Character: Color for mid-high values. |
hi |
Character: Color for high values. |
k_row |
Integer: Number of desired number of groups by which to color dendrogram branches in the rows. |
k_col |
Integer: Number of desired number of groups by which to color dendrogram branches in the columns. |
grid_gap |
Integer: Space between cells. |
limits |
Float, length 2: Determine color range. If NULL, automatically centers values around 0. |
margins |
Float, length 4: Heatmap margins. |
main |
Character: Main title. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
key_title |
Character: Title for the color key. |
showticklabels |
Logical: If TRUE, show tick labels. |
colorbar_len |
Numeric: Length of the colorbar. |
plot_method |
Character: Plot method to use. |
theme |
|
row_side_colors |
Data frame: Column names will be label names, cells should be label colors. See |
row_side_palette |
Color palette function. See |
col_side_colors |
Data frame: Column names will be label names, cells should be label colors. See |
col_side_palette |
Color palette function. See |
font_size |
Numeric: Font size. |
padding |
Numeric: Padding around the plot, in pixels. |
displayModeBar |
Logical: If TRUE, display the plotly mode bar. |
modeBar_file_format |
Character: File format for image exports from the mode bar. |
filename |
Character: File name to save the plot. |
file_width |
Numeric: Width of exported image. |
file_height |
Numeric: Height of exported image. |
file_scale |
Numeric: Scale of exported image. |
... |
Additional arguments to be passed to |
See docs.rtemis.org/r for detailed documentation. 'heatmaply' unfortunately forces loading of the 'colorspace' namespace.
plotly object.
EDG
x <- rnormmat(200, 20) xcor <- cor(x) draw_heatmap(xcor)x <- rnormmat(200, 20) xcor <- cor(x) draw_heatmap(xcor)
Plot interactive choropleth map using leaflet
draw_leaflet( fips, values, names = NULL, fillOpacity = 1, color_mapping = c("Numeric", "Bin"), col_lo = "#0290EE", col_hi = "#FE4AA3", col_na = "#303030", col_highlight = "#FE8A4F", col_interpolate = c("linear", "spline"), col_bins = 21, domain = NULL, weight = 0.5, color = "black", alpha = 1, bg_tile_provider = leaflet::providers[["CartoDB.Positron"]], bg_tile_alpha = 0.67, fg_tile_provider = leaflet::providers[["CartoDB.PositronOnlyLabels"]], legend_position = c("topright", "bottomright", "bottomleft", "topleft"), legend_alpha = 0.8, legend_title = NULL, init_lng = -98.5418083333333, init_lat = 39.2074138888889, init_zoom = 3, stroke = TRUE )draw_leaflet( fips, values, names = NULL, fillOpacity = 1, color_mapping = c("Numeric", "Bin"), col_lo = "#0290EE", col_hi = "#FE4AA3", col_na = "#303030", col_highlight = "#FE8A4F", col_interpolate = c("linear", "spline"), col_bins = 21, domain = NULL, weight = 0.5, color = "black", alpha = 1, bg_tile_provider = leaflet::providers[["CartoDB.Positron"]], bg_tile_alpha = 0.67, fg_tile_provider = leaflet::providers[["CartoDB.PositronOnlyLabels"]], legend_position = c("topright", "bottomright", "bottomleft", "topleft"), legend_alpha = 0.8, legend_title = NULL, init_lng = -98.5418083333333, init_lat = 39.2074138888889, init_zoom = 3, stroke = TRUE )
fips |
Character vector: FIPS codes. (If numeric, it will be appropriately zero-padded). |
values |
Values to map to |
names |
Character vector: Optional county names to appear on hover along |
fillOpacity |
Float: Opacity for fill colors. |
color_mapping |
Character: "Numeric" or "Bin". |
col_lo |
Overlay color mapped to lowest value. |
col_hi |
Overlay color mapped to highest value. |
col_na |
Color mapped to NA values. |
col_highlight |
Hover border color. |
col_interpolate |
Character: "linear" or "spline". |
col_bins |
Integer: Number of color bins to create if |
domain |
Limits for mapping colors to values. If NULL, set to the range of |
weight |
Float: Weight of county border lines. |
color |
Color of county border lines. |
alpha |
Float: Overlay transparency. |
bg_tile_provider |
Background tile (below overlay colors), one of |
bg_tile_alpha |
Float: Background tile transparency. |
fg_tile_provider |
Foreground tile (above overlay colors), one of |
legend_position |
Character: One of: "topright", "bottomright", "bottomleft", "topleft". |
legend_alpha |
Float: Legend box transparency. |
legend_title |
Character: Legend title. If NULL, set to the name of the |
init_lng |
Float: Longitude (in decimal form) to center the map around. |
init_lat |
Float: Latitude (in decimal form) to center the map around. |
init_zoom |
Integer: Initial zoom level (depends on device, i.e. window, size). |
stroke |
Logical: If TRUE, draw polygon borders. |
leaflet object.
EDG
fips <- c(06075, 42101) population <- c(874961, 1579000) names <- c("SF", "Philly") draw_leaflet(fips, population, names)fips <- c(06075, 42101) population <- c(874961, 1579000) names <- c("SF", "Philly") draw_leaflet(fips, population, names)
Draw interactive pie charts using plotly.
draw_pie( x, main = NULL, xlab = NULL, ylab = NULL, alpha = 0.8, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), category_names = NULL, textinfo = "label+percent", font_size = 16, labs_col = NULL, legend = TRUE, legend_col = NULL, sep_col = NULL, margin = list(b = 50, l = 50, t = 50, r = 20), padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_pie( x, main = NULL, xlab = NULL, ylab = NULL, alpha = 0.8, bg = NULL, plot_bg = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), category_names = NULL, textinfo = "label+percent", font_size = 16, labs_col = NULL, legend = TRUE, legend_col = NULL, sep_col = NULL, margin = list(b = 50, l = 50, t = 50, r = 20), padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
data.frame: Input: Either a) 1 numeric column with categories defined by rownames, or
b) two columns, the first is category names, the second numeric or c) a numeric vector with categories defined using
the |
main |
Character: Plot title. If NULL, set to |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
alpha |
Numeric: Alpha for the pie slices. |
bg |
Character: Background color. |
plot_bg |
Character: Plot background color. |
theme |
|
palette |
Character vector: Colors to use. |
category_names |
Character, vector, length = NROW(x): Category names. If NULL, uses
either |
textinfo |
Character: Info to show over each slice: "label", "percent", "label+percent". |
font_size |
Integer: Font size for labels. |
labs_col |
Character: Color of labels. |
legend |
Logical: If TRUE, show legend. |
legend_col |
Character: Color for legend. |
sep_col |
Character: Separator color. |
margin |
List: Margin settings. |
padding |
Numeric: Padding around the plot, in pixels. |
displayModeBar |
Logical: If TRUE, display the plotly mode bar. |
modeBar_file_format |
Character: File format for image exports from the mode bar. |
filename |
Character: File name to save plot. |
file_width |
Integer: Width for saved file. |
file_height |
Integer: Height for saved file. |
file_scale |
Numeric: Scale for saved file. |
plotly object.
EDG
draw_pie(VADeaths[, 1, drop = FALSE])draw_pie(VADeaths[, 1, drop = FALSE])
Plot an amino acid sequence with multiple site and/or region annotations.
draw_protein( x, site = NULL, region = NULL, ptm = NULL, cleavage_site = NULL, variant = NULL, disease_variants = NULL, n_per_row = NULL, main = NULL, main_xy = c(0.055, 0.975), main_xref = "paper", main_yref = "paper", main_xanchor = "middle", main_yanchor = "top", layout = c("simple", "grid", "1curve", "2curve"), show_markers = TRUE, show_labels = TRUE, font_size = 18, label_col = NULL, scatter_mode = "markers+lines", marker_size = 28, marker_col = NULL, marker_alpha = 1, marker_symbol = "circle", line_col = NULL, line_alpha = 1, line_width = 2, show_full_names = TRUE, region_scatter_mode = "markers+lines", region_style = 3, region_marker_size = marker_size, region_marker_alpha = 0.6, region_marker_symbol = "circle", region_line_dash = "solid", region_line_shape = "line", region_line_smoothing = 1, region_line_width = 1, region_line_alpha = 0.6, theme = choose_theme(getOption("rtemis_theme")), region_palette = getOption("rtemis_palette", "rtms"), region_outline_only = FALSE, region_outline_pad = 2, region_pad = 0.35, region_fill_alpha = 0.1666666, region_fill_shape = "line", region_fill_smoothing = 1, bpadcx = 0.5, bpadcy = 0.5, site_marker_size = marker_size, site_marker_symbol = marker_symbol, site_marker_alpha = 1, site_border_width = 1.5, site_palette = getOption("rtemis_palette", "rtms"), variant_col = "#FA6E1E", disease_variant_col = "#E266AE", showlegend_ptm = TRUE, ptm_col = NULL, ptm_symbol = "circle", ptm_offset = 0.12, ptm_pad = 0.35, ptm_marker_size = marker_size/4.5, clv_col = NULL, clv_symbol = "triangle-down", clv_offset = 0.12, clv_pad = 0.35, clv_marker_size = marker_size/4, annotate_position_every = 10, annotate_position_alpha = 0.5, annotate_position_ay = -0.4 * marker_size, position_font_size = font_size - 6, legend_xy = c(0.97, 0.954), legend_xanchor = "left", legend_yanchor = "top", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, margin = list(b = 0, l = 0, t = 0, r = 0, pad = 0), showgrid_x = FALSE, showgrid_y = FALSE, automargin_x = TRUE, automargin_y = TRUE, xaxis_autorange = TRUE, yaxis_autorange = "reversed", scaleanchor_y = "x", scaleratio_y = 1, hoverlabel_align = "left", displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 1320, file_height = 990, file_scale = 1, width = NULL, height = NULL, verbosity = 1L )draw_protein( x, site = NULL, region = NULL, ptm = NULL, cleavage_site = NULL, variant = NULL, disease_variants = NULL, n_per_row = NULL, main = NULL, main_xy = c(0.055, 0.975), main_xref = "paper", main_yref = "paper", main_xanchor = "middle", main_yanchor = "top", layout = c("simple", "grid", "1curve", "2curve"), show_markers = TRUE, show_labels = TRUE, font_size = 18, label_col = NULL, scatter_mode = "markers+lines", marker_size = 28, marker_col = NULL, marker_alpha = 1, marker_symbol = "circle", line_col = NULL, line_alpha = 1, line_width = 2, show_full_names = TRUE, region_scatter_mode = "markers+lines", region_style = 3, region_marker_size = marker_size, region_marker_alpha = 0.6, region_marker_symbol = "circle", region_line_dash = "solid", region_line_shape = "line", region_line_smoothing = 1, region_line_width = 1, region_line_alpha = 0.6, theme = choose_theme(getOption("rtemis_theme")), region_palette = getOption("rtemis_palette", "rtms"), region_outline_only = FALSE, region_outline_pad = 2, region_pad = 0.35, region_fill_alpha = 0.1666666, region_fill_shape = "line", region_fill_smoothing = 1, bpadcx = 0.5, bpadcy = 0.5, site_marker_size = marker_size, site_marker_symbol = marker_symbol, site_marker_alpha = 1, site_border_width = 1.5, site_palette = getOption("rtemis_palette", "rtms"), variant_col = "#FA6E1E", disease_variant_col = "#E266AE", showlegend_ptm = TRUE, ptm_col = NULL, ptm_symbol = "circle", ptm_offset = 0.12, ptm_pad = 0.35, ptm_marker_size = marker_size/4.5, clv_col = NULL, clv_symbol = "triangle-down", clv_offset = 0.12, clv_pad = 0.35, clv_marker_size = marker_size/4, annotate_position_every = 10, annotate_position_alpha = 0.5, annotate_position_ay = -0.4 * marker_size, position_font_size = font_size - 6, legend_xy = c(0.97, 0.954), legend_xanchor = "left", legend_yanchor = "top", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, margin = list(b = 0, l = 0, t = 0, r = 0, pad = 0), showgrid_x = FALSE, showgrid_y = FALSE, automargin_x = TRUE, automargin_y = TRUE, xaxis_autorange = TRUE, yaxis_autorange = "reversed", scaleanchor_y = "x", scaleratio_y = 1, hoverlabel_align = "left", displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 1320, file_height = 990, file_scale = 1, width = NULL, height = NULL, verbosity = 1L )
x |
Character vector: amino acid sequence (1-letter abbreviations) OR
|
site |
Named list of lists with indices of sites. These will be highlighted by coloring the border of markers. |
region |
Named list of lists with indices of regions. These will be
highlighted by coloring the markers and lines of regions using the
|
ptm |
List of post-translational modifications. |
cleavage_site |
List of cleavage sites. |
variant |
List of variant information. |
disease_variants |
List of disease variant information. |
n_per_row |
Integer: Number of amino acids to show per row. |
main |
Character: Main title. |
main_xy |
Numeric vector, length 2: x and y coordinates for title.
e.g. if |
main_xref |
Character: xref for title. |
main_yref |
Character: yref for title. |
main_xanchor |
Character: xanchor for title. |
main_yanchor |
Character: yanchor for title. |
layout |
Character: "simple", "grid", "1curve", "2curve": type of layout to use. |
show_markers |
Logical: If TRUE, show amino acid markers. |
show_labels |
Logical: If TRUE, annotate amino acids with elements. |
font_size |
Integer: Font size for labels. |
label_col |
Color for labels. |
scatter_mode |
Character: Mode for scatter plot. |
marker_size |
Integer: Size of markers. |
marker_col |
Color for markers. |
marker_alpha |
Numeric: Alpha for markers. |
marker_symbol |
Character: Symbol for markers. |
line_col |
Color for lines. |
line_alpha |
Numeric: Alpha for lines. |
line_width |
Numeric: Width for lines. |
show_full_names |
Logical: If TRUE, show full names of amino acids. |
region_scatter_mode |
Character: Mode for scatter plot. |
region_style |
Integer: Style for regions. |
region_marker_size |
Integer: Size of region markers. |
region_marker_alpha |
Numeric: Alpha for region markers. |
region_marker_symbol |
Character: Symbol for region markers. |
region_line_dash |
Character: Dash for region lines. |
region_line_shape |
Character: Shape for region lines. |
region_line_smoothing |
Numeric: Smoothing for region lines. |
region_line_width |
Numeric: Width for region lines. |
region_line_alpha |
Numeric: Alpha for region lines. |
theme |
|
region_palette |
Named list of colors for regions. |
region_outline_only |
Logical: If TRUE, only show outline of regions. |
region_outline_pad |
Numeric: Padding for region outline. |
region_pad |
Numeric: Padding for region. |
region_fill_alpha |
Numeric: Alpha for region fill. |
region_fill_shape |
Character: Shape for region fill. |
region_fill_smoothing |
Numeric: Smoothing for region fill. |
bpadcx |
Numeric: Padding for region border. |
bpadcy |
Numeric: Padding for region border. |
site_marker_size |
Integer: Size of site markers. |
site_marker_symbol |
Character: Symbol for site markers. |
site_marker_alpha |
Numeric: Alpha for site markers. |
site_border_width |
Numeric: Width for site borders. |
site_palette |
Named list of colors for sites. |
variant_col |
Color for variants. |
disease_variant_col |
Color for disease variants. |
showlegend_ptm |
Logical: If TRUE, show legend for PTMs. |
ptm_col |
Named list of colors for PTMs. |
ptm_symbol |
Character: Symbol for PTMs. |
ptm_offset |
Numeric: Offset for PTMs. |
ptm_pad |
Numeric: Padding for PTMs. |
ptm_marker_size |
Integer: Size of PTM markers. |
clv_col |
Color for cleavage site annotations. |
clv_symbol |
Character: Symbol for cleavage site annotations. |
clv_offset |
Numeric: Offset for cleavage site annotations. |
clv_pad |
Numeric: Padding for cleavage site annotations. |
clv_marker_size |
Integer: Size of cleavage site annotation markers. |
annotate_position_every |
Integer: Annotate every nth position. |
annotate_position_alpha |
Numeric: Alpha for position annotations. |
annotate_position_ay |
Numeric: Y offset for position annotations. |
position_font_size |
Integer: Font size for position annotations. |
legend_xy |
Numeric vector, length 2: x and y coordinates for legend. |
legend_xanchor |
Character: xanchor for legend. |
legend_yanchor |
Character: yanchor for legend. |
legend_orientation |
Character: Orientation for legend. |
legend_col |
Color for legend. |
legend_bg |
Color for legend background. |
legend_border_col |
Color for legend border. |
legend_borderwidth |
Numeric: Width for legend border. |
legend_group_gap |
Numeric: Gap between legend groups. |
margin |
List: Margin settings. |
showgrid_x |
Logical: If TRUE, show x grid. |
showgrid_y |
Logical: If TRUE, show y grid. |
automargin_x |
Logical: If TRUE, use automatic margin for x axis. |
automargin_y |
Logical: If TRUE, use automatic margin for y axis. |
xaxis_autorange |
Logical: If TRUE, use automatic range for x axis. |
yaxis_autorange |
Logical: If TRUE, use automatic range for y axis. |
scaleanchor_y |
Character: Scale anchor for y axis. |
scaleratio_y |
Numeric: Scale ratio for y axis. |
hoverlabel_align |
Character: Alignment for hover label. |
displayModeBar |
Logical: If TRUE, display mode bar. |
modeBar_file_format |
Character: File format for mode bar. |
scrollZoom |
Logical: If TRUE, enable scroll zoom. |
filename |
Character: File name to save plot. |
file_width |
Integer: Width for saved file. |
file_height |
Integer: Height for saved file. |
file_scale |
Numeric: Scale for saved file. |
width |
Integer: Width for plot. |
height |
Integer: Height for plot. |
verbosity |
Integer: Verbosity level. |
plotly object.
EDG
## Not run: # Reads sequence from UniProt server tau <- seqinr::read.fasta("https://rest.uniprot.org/uniprotkb/P10636.fasta", seqtype = "AA" ) draw_protein(as.character(tau[[1]])) # or directly using the UniProt accession number: draw_protein("P10636") ## End(Not run)## Not run: # Reads sequence from UniProt server tau <- seqinr::read.fasta("https://rest.uniprot.org/uniprotkb/P10636.fasta", seqtype = "AA" ) draw_protein(as.character(tau[[1]])) # or directly using the UniProt accession number: draw_protein("P10636") ## End(Not run)
Plot 1 - p-values as a barplot
draw_pvals( x, xnames = NULL, yname = NULL, p_adjust_method = "none", pval_hline = 0.05, hline_col = rtemis_colors[["red"]], hline_dash = "dash", ... )draw_pvals( x, xnames = NULL, yname = NULL, p_adjust_method = "none", pval_hline = 0.05, hline_col = rtemis_colors[["red"]], hline_dash = "dash", ... )
x |
Float, vector: p-values. |
xnames |
Character, vector: feature names. |
yname |
Character: outcome name. |
p_adjust_method |
Character: method for p.adjust. |
pval_hline |
Float: Significance level at which to plot horizontal line. |
hline_col |
Color for |
hline_dash |
Character: type of line to draw. |
... |
Additional arguments passed to draw_bar. |
plotly object.
EDG
draw_pvals(c(0.01, 0.02, 0.03), xnames = c("Feature1", "Feature2", "Feature3"))draw_pvals(c(0.01, 0.02, 0.03), xnames = c("Feature1", "Feature2", "Feature3"))
Draw ROC curve
draw_roc( true_labels, predicted_prob, main = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), legend = TRUE, legend_title = "Group (AUC)", legend_xy = c(1, 0), legend_xanchor = "right", legend_yanchor = "bottom", auc_dp = 3L, xlim = c(-0.05, 1.05), ylim = c(-0.05, 1.05), diagonal = TRUE, diagonal_col = NULL, axes_square = TRUE, filename = NULL, ... )draw_roc( true_labels, predicted_prob, main = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), legend = TRUE, legend_title = "Group (AUC)", legend_xy = c(1, 0), legend_xanchor = "right", legend_yanchor = "bottom", auc_dp = 3L, xlim = c(-0.05, 1.05), ylim = c(-0.05, 1.05), diagonal = TRUE, diagonal_col = NULL, axes_square = TRUE, filename = NULL, ... )
true_labels |
Factor: True outcome labels. |
predicted_prob |
Numeric vector [0, 1]: Predicted probabilities for the positive class (i.e. second level of outcome). Or, for multiclass, a matrix of predicted probabilities with one column per class. Or, a list of such vectors/matrices to draw multiple ROC curves on the same plot. |
main |
Character: Main title for the plot. |
theme |
|
palette |
Character vector: Colors to use. |
legend |
Logical: If TRUE, draw legend. |
legend_title |
Character: Title for the legend. |
legend_xy |
Numeric vector: Position of the legend in the form c(x, y). |
legend_xanchor |
Character: X anchor for the legend. |
legend_yanchor |
Character: Y anchor for the legend. |
auc_dp |
Integer: Number of decimal places for AUC values. |
xlim |
Numeric vector: Limits for the x-axis. |
ylim |
Numeric vector: Limits for the y-axis. |
diagonal |
Logical: If TRUE, draw diagonal line. |
diagonal_col |
Character: Color for the diagonal line. |
axes_square |
Logical: If TRUE, make axes square. |
filename |
Character: If provided, save the plot to this file. |
... |
Additional arguments passed to draw_scatter. |
plotly object.
EDG
# Binary classification true_labels <- factor(c("A", "B", "A", "A", "B", "A", "B", "B", "A", "B")) predicted_prob <- c(0.1, 0.4, 0.35, 0.8, 0.65, 0.2, 0.9, 0.55, 0.3, 0.7) draw_roc(true_labels, predicted_prob)# Binary classification true_labels <- factor(c("A", "B", "A", "A", "B", "A", "B", "B", "A", "B")) predicted_prob <- c(0.1, 0.4, 0.35, 0.8, 0.65, 0.2, 0.9, 0.55, 0.3, 0.7) draw_roc(true_labels, predicted_prob)
Draw interactive scatter plots using plotly.
draw_scatter( x, y = NULL, fit = NULL, se_fit = FALSE, se_times = 1.96, include_fit_name = TRUE, clustering_config = NULL, group = NULL, rsq = TRUE, mode = "markers", order_on_x = NULL, main = NULL, subtitle = NULL, xlab = NULL, ylab = NULL, alpha = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), axes_square = FALSE, group_names = NULL, font_size = 16, marker_col = NULL, marker_size = 8, symbol = "circle", fit_col = NULL, fit_alpha = 0.8, fit_lwd = 2.5, line_shape = "linear", se_col = NULL, se_alpha = 0.4, scatter_type = "scatter", show_marginal_x = FALSE, show_marginal_y = FALSE, marginal_x = x, marginal_y = y, marginal_x_y = NULL, marginal_y_x = NULL, marginal_col = NULL, marginal_alpha = 0.333, marginal_size = 10, legend = NULL, legend_title = NULL, legend_trace = TRUE, legend_xy = c(0, 0.98), legend_xanchor = "left", legend_yanchor = "auto", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, x_showspikes = FALSE, y_showspikes = FALSE, spikedash = "solid", spikemode = "across", spikesnap = "hovered data", spikecolor = NULL, spikethickness = 1, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), main_y = 1.01, main_yanchor = "bottom", subtitle_x = 0.02, subtitle_y = 0.99, subtitle_xref = "paper", subtitle_yref = "paper", subtitle_xanchor = "left", subtitle_yanchor = "top", automargin_x = TRUE, automargin_y = TRUE, xlim = NULL, ylim = NULL, axes_equal = FALSE, diagonal = FALSE, diagonal_col = NULL, diagonal_dash = "dot", diagonal_alpha = 0.66, fit_params = NULL, vline = NULL, vline_col = theme[["fg"]], vline_width = 1, vline_dash = "dot", hline = NULL, hline_col = theme[["fg"]], hline_width = 1, hline_dash = "dot", hovertext = NULL, width = NULL, height = NULL, displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 0L )draw_scatter( x, y = NULL, fit = NULL, se_fit = FALSE, se_times = 1.96, include_fit_name = TRUE, clustering_config = NULL, group = NULL, rsq = TRUE, mode = "markers", order_on_x = NULL, main = NULL, subtitle = NULL, xlab = NULL, ylab = NULL, alpha = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), axes_square = FALSE, group_names = NULL, font_size = 16, marker_col = NULL, marker_size = 8, symbol = "circle", fit_col = NULL, fit_alpha = 0.8, fit_lwd = 2.5, line_shape = "linear", se_col = NULL, se_alpha = 0.4, scatter_type = "scatter", show_marginal_x = FALSE, show_marginal_y = FALSE, marginal_x = x, marginal_y = y, marginal_x_y = NULL, marginal_y_x = NULL, marginal_col = NULL, marginal_alpha = 0.333, marginal_size = 10, legend = NULL, legend_title = NULL, legend_trace = TRUE, legend_xy = c(0, 0.98), legend_xanchor = "left", legend_yanchor = "auto", legend_orientation = "v", legend_col = NULL, legend_bg = "#FFFFFF00", legend_border_col = "#FFFFFF00", legend_borderwidth = 0, legend_group_gap = 0, x_showspikes = FALSE, y_showspikes = FALSE, spikedash = "solid", spikemode = "across", spikesnap = "hovered data", spikecolor = NULL, spikethickness = 1, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), main_y = 1.01, main_yanchor = "bottom", subtitle_x = 0.02, subtitle_y = 0.99, subtitle_xref = "paper", subtitle_yref = "paper", subtitle_xanchor = "left", subtitle_yanchor = "top", automargin_x = TRUE, automargin_y = TRUE, xlim = NULL, ylim = NULL, axes_equal = FALSE, diagonal = FALSE, diagonal_col = NULL, diagonal_dash = "dot", diagonal_alpha = 0.66, fit_params = NULL, vline = NULL, vline_col = theme[["fg"]], vline_width = 1, vline_dash = "dot", hline = NULL, hline_col = theme[["fg"]], hline_width = 1, hline_dash = "dot", hovertext = NULL, width = NULL, height = NULL, displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 0L )
x |
Numeric, vector/data.frame/list: x-axis data. If y is NULL and |
y |
Numeric, vector/data.frame/list: y-axis data. |
fit |
Character: Fit method. |
se_fit |
Logical: If TRUE, include standard error of the fit. |
se_times |
Numeric: Multiplier for standard error. |
include_fit_name |
Logical: If TRUE, include fit name in legend. |
clustering_config |
|
group |
Factor: Grouping variable. |
rsq |
Logical: If TRUE, print R-squared values in legend if |
mode |
Character, vector: "markers", "lines", "markers+lines". |
order_on_x |
Logical: If TRUE, order |
main |
Character: Main title. |
subtitle |
Character: Subtitle. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
alpha |
Numeric: Alpha for markers. |
theme |
|
palette |
Character vector: Colors to use. |
axes_square |
Logical: If TRUE, draw a square plot. |
group_names |
Character: Names for groups. |
font_size |
Numeric: Font size. |
marker_col |
Color for markers. |
marker_size |
Numeric: Marker size. |
symbol |
Character: Marker symbol. |
fit_col |
Color for fit line. |
fit_alpha |
Numeric: Alpha for fit line. |
fit_lwd |
Numeric: Line width for fit line. |
line_shape |
Character: Line shape for line plots. Options: "linear", "hv", "vh", "hvh", "vhv". |
se_col |
Color for standard error band. |
se_alpha |
Numeric: Alpha for standard error band. |
scatter_type |
Character: Scatter plot type. |
show_marginal_x |
Logical: If TRUE, add marginal distribution line markers on x-axis. |
show_marginal_y |
Logical: If TRUE, add marginal distribution line markers on y-axis. |
marginal_x |
Numeric: Data for marginal distribution on x-axis. |
marginal_y |
Numeric: Data for marginal distribution on y-axis. |
marginal_x_y |
Numeric: Y position of marginal markers on x-axis. |
marginal_y_x |
Numeric: X position of marginal markers on y-axis. |
marginal_col |
Color for marginal markers. |
marginal_alpha |
Numeric: Alpha for marginal markers. |
marginal_size |
Numeric: Size of marginal markers. |
legend |
Logical: If TRUE, draw legend. |
legend_title |
Character: Title for legend. |
legend_trace |
Logical: If TRUE, draw legend trace. (For when you have |
legend_xy |
Numeric: Position of legend. |
legend_xanchor |
Character: X anchor for legend. |
legend_yanchor |
Character: Y anchor for legend. |
legend_orientation |
Character: Orientation of legend. |
legend_col |
Color for legend text. |
legend_bg |
Color for legend background. |
legend_border_col |
Color for legend border. |
legend_borderwidth |
Numeric: Border width for legend. |
legend_group_gap |
Numeric: Gap between legend groups. |
x_showspikes |
Logical: If TRUE, show spikes on x-axis. |
y_showspikes |
Logical: If TRUE, show spikes on y-axis. |
spikedash |
Character: Dash type for spikes. |
spikemode |
Character: Spike mode. |
spikesnap |
Character: Spike snap mode. |
spikecolor |
Color for spikes. |
spikethickness |
Numeric: Thickness of spikes. |
margin |
List: Plot margins. |
main_y |
Numeric: Y position of main title. |
main_yanchor |
Character: Y anchor for main title. |
subtitle_x |
Numeric: X position of subtitle. |
subtitle_y |
Numeric: Y position of subtitle. |
subtitle_xref |
Character: X reference for subtitle. |
subtitle_yref |
Character: Y reference for subtitle. |
subtitle_xanchor |
Character: X anchor for subtitle. |
subtitle_yanchor |
Character: Y anchor for subtitle. |
automargin_x |
Logical: If TRUE, automatically adjust x-axis margins. |
automargin_y |
Logical: If TRUE, automatically adjust y-axis margins. |
xlim |
Numeric: Limits for x-axis. |
ylim |
Numeric: Limits for y-axis. |
axes_equal |
Logical: If TRUE, set equal scaling for axes. |
diagonal |
Logical: If TRUE, add diagonal line. |
diagonal_col |
Color for diagonal line. |
diagonal_dash |
Character {"solid", "dash", "dot", "dashdot", "longdash", "longdashdot"}: Dash type for diagonal line. |
diagonal_alpha |
Numeric: Alpha for diagonal line. |
fit_params |
|
vline |
Numeric: X position for vertical line. |
vline_col |
Color for vertical line. |
vline_width |
Numeric: Width for vertical line. |
vline_dash |
Character: Dash type for vertical line. |
hline |
Numeric: Y position for horizontal line. |
hline_col |
Color for horizontal line. |
hline_width |
Numeric: Width for horizontal line. |
hline_dash |
Character: Dash type for horizontal line. |
hovertext |
List: Hover text for markers. |
width |
Numeric: Width of plot. |
height |
Numeric: Height of plot. |
displayModeBar |
Logical: If TRUE, display mode bar. |
modeBar_file_format |
Character: File format for mode bar. |
scrollZoom |
Logical: If TRUE, enable scroll zoom. |
filename |
Character: Filename to save plot. |
file_width |
Numeric: Width of saved file. |
file_height |
Numeric: Height of saved file. |
file_scale |
Numeric: Scale of saved file. |
verbosity |
Integer: Verbosity level. |
plotly object.
EDG
draw_scatter(iris[["Sepal.Length"]], iris[["Petal.Length"]], fit = "gam", se_fit = TRUE, group = iris[["Species"]] )draw_scatter(iris[["Sepal.Length"]], iris[["Petal.Length"]], fit = "gam", se_fit = TRUE, group = iris[["Species"]] )
Draw interactive spectrograms using plotly
draw_spectrogram( x, y, z, colorgrad_n = 101, colors = NULL, xlab = "Time", ylab = "Frequency", zlab = "Power", hover_xlab = xlab, hover_ylab = ylab, hover_zlab = zlab, zmin = NULL, zmax = NULL, zauto = TRUE, hoverlabel_align = "right", colorscale = "Jet", colorbar_y = 0.5, colorbar_yanchor = "middle", colorbar_xpad = 0, colorbar_ypad = 0, colorbar_len = 0.75, colorbar_title_side = "bottom", showgrid = FALSE, space = "rgb", lo = "#18A3AC", lomid = NULL, mid = NULL, midhi = NULL, hi = "#F48024", main = NULL, showticklabels = NULL, theme = choose_theme(getOption("rtemis_theme")), font_size = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_spectrogram( x, y, z, colorgrad_n = 101, colors = NULL, xlab = "Time", ylab = "Frequency", zlab = "Power", hover_xlab = xlab, hover_ylab = ylab, hover_zlab = zlab, zmin = NULL, zmax = NULL, zauto = TRUE, hoverlabel_align = "right", colorscale = "Jet", colorbar_y = 0.5, colorbar_yanchor = "middle", colorbar_xpad = 0, colorbar_ypad = 0, colorbar_len = 0.75, colorbar_title_side = "bottom", showgrid = FALSE, space = "rgb", lo = "#18A3AC", lomid = NULL, mid = NULL, midhi = NULL, hi = "#F48024", main = NULL, showticklabels = NULL, theme = choose_theme(getOption("rtemis_theme")), font_size = NULL, padding = 0, displayModeBar = TRUE, modeBar_file_format = "svg", filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
Numeric: Time. |
y |
Numeric: Frequency. |
z |
Numeric: Power. |
colorgrad_n |
Integer: Number of colors in the gradient. |
colors |
Character: Custom colors for the gradient. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
zlab |
Character: z-axis label. |
hover_xlab |
Character: x-axis label for hover. |
hover_ylab |
Character: y-axis label for hover. |
hover_zlab |
Character: z-axis label for hover. |
zmin |
Numeric: Minimum value for color scale. |
zmax |
Numeric: Maximum value for color scale. |
zauto |
Logical: If TRUE, automatically set zmin and zmax. |
hoverlabel_align |
Character: Alignment of hover labels. |
colorscale |
Character: Color scale. |
colorbar_y |
Numeric: Y position of colorbar. |
colorbar_yanchor |
Character: Y anchor of colorbar. |
colorbar_xpad |
Numeric: X padding of colorbar. |
colorbar_ypad |
Numeric: Y padding of colorbar. |
colorbar_len |
Numeric: Length of colorbar. |
colorbar_title_side |
Character: Side of colorbar title. |
showgrid |
Logical: If TRUE, show grid. |
space |
Character: Color space for gradient. |
lo |
Character: Low color for gradient. |
lomid |
Character: Low-mid color for gradient. |
mid |
Character: Mid color for gradient. |
midhi |
Character: Mid-high color for gradient. |
hi |
Character: High color for gradient. |
main |
Character: Main title. |
showticklabels |
Logical: If TRUE, show tick labels. |
theme |
|
font_size |
Numeric: Font size. |
padding |
Numeric: Padding around the plot, in pixels. |
displayModeBar |
Logical: If TRUE, display the plotly mode bar. |
modeBar_file_format |
Character: File format for image exports from the mode bar. |
filename |
Character: Filename to save the plot. |
file_width |
Numeric: Width of exported image. |
file_height |
Numeric: Height of exported image. |
file_scale |
Numeric: Scale of exported image. |
To set custom colors, use a minimum of lo and hi, optionally also
lomid, mid, midhi colors and set colorscale = NULL.
plotly object.
EDG
# Example data time <- seq(0, 10, length.out = 100) freq <- seq(1, 100, length.out = 100) power <- outer(time, freq, function(t, f) sin(t) * cos(f)) draw_spectrogram( x = time, y = freq, z = power )# Example data time <- seq(0, 10, length.out = 100) freq <- seq(1, 100, length.out = 100) power <- outer(time, freq, function(t, f) sin(t) * cos(f)) draw_spectrogram( x = time, y = freq, z = power )
Draw a survfit object using draw_scatter.
draw_survfit( x, mode = "lines", symbol = "cross", line_shape = "hv", xlim = NULL, ylim = NULL, xlab = "Time", ylab = "Survival", main = NULL, legend_xy = c(1, 1), legend_xanchor = "right", legend_yanchor = "top", theme = choose_theme(getOption("rtemis_theme")), nrisk_table = FALSE, filename = NULL, ... )draw_survfit( x, mode = "lines", symbol = "cross", line_shape = "hv", xlim = NULL, ylim = NULL, xlab = "Time", ylab = "Survival", main = NULL, legend_xy = c(1, 1), legend_xanchor = "right", legend_yanchor = "top", theme = choose_theme(getOption("rtemis_theme")), nrisk_table = FALSE, filename = NULL, ... )
x |
|
mode |
Character, vector: "markers", "lines", "markers+lines". |
symbol |
Character: Symbol to use for the points. |
line_shape |
Character: Line shape for line plots. Options: "linear", "hv", "vh", "hvh", "vhv". |
xlim |
Numeric vector of length 2: x-axis limits. |
ylim |
Numeric vector of length 2: y-axis limits. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
main |
Character: Main title. |
legend_xy |
Numeric: Position of legend. |
legend_xanchor |
Character: X anchor for legend. |
legend_yanchor |
Character: Y anchor for legend. |
theme |
|
nrisk_table |
Logical: If |
filename |
Character: Filename to save plot. |
... |
Additional arguments passed to draw_scatter. |
plotly object.
EDG
# Get the lung dataset data(cancer, package = "survival") sf1 <- survival::survfit(survival::Surv(time, status) ~ 1, data = lung) draw_survfit(sf1) sf2 <- survival::survfit(survival::Surv(time, status) ~ sex, data = lung) draw_survfit(sf2) # with N at risk table draw_survfit(sf2)# Get the lung dataset data(cancer, package = "survival") sf1 <- survival::survfit(survival::Surv(time, status) ~ 1, data = lung) draw_survfit(sf1) sf2 <- survival::survfit(survival::Surv(time, status) ~ sex, data = lung) draw_survfit(sf2) # with N at risk table draw_survfit(sf2)
Draw an html table using plotly
draw_table( x, .ddSci = TRUE, main = NULL, main_col = "black", main_x = 0, main_xanchor = "auto", fill_col = "#18A3AC", table_bg = "white", bg = "white", line_col = "white", lwd = 1, header_font_col = "white", table_font_col = "gray20", font_size = 14, font_family = "Helvetica Neue", margin = list(l = 0, r = 5, t = 30, b = 0, pad = 0) )draw_table( x, .ddSci = TRUE, main = NULL, main_col = "black", main_x = 0, main_xanchor = "auto", fill_col = "#18A3AC", table_bg = "white", bg = "white", line_col = "white", lwd = 1, header_font_col = "white", table_font_col = "gray20", font_size = 14, font_family = "Helvetica Neue", margin = list(l = 0, r = 5, t = 30, b = 0, pad = 0) )
x |
data.frame: Table to draw |
.ddSci |
Logical: If TRUE, apply ddSci to numeric columns. |
main |
Character: Table tile. |
main_col |
Color: Title color. |
main_x |
Float [0, 1]: Align title: 0: left, .5: center, 1: right. |
main_xanchor |
Character: "auto", "left", "right": plotly's layout xanchor for title. |
fill_col |
Color: Used to fill header with column names and first column with row names. |
table_bg |
Color: Table background. |
bg |
Color: Background. |
line_col |
Color: Line color. |
lwd |
Float: Line width. |
header_font_col |
Color: Header font color. |
table_font_col |
Color: Table font color. |
font_size |
Integer: Font size. |
font_family |
Character: Font family. |
margin |
List: plotly's margins. |
plotly object.
EDG
df <- data.frame( Name = c("Alice", "Bob", "Charlie"), Age = c(25, 30, 35), Score = c(90.5, 85.0, 88.0) ) p <- draw_table( df, main = "Sample Table", main_col = "#00b2b2" )df <- data.frame( Name = c("Alice", "Bob", "Charlie"), Age = c(25, 30, 35), Score = c(90.5, 85.0, 88.0) ) p <- draw_table( df, main = "Sample Table", main_col = "#00b2b2" )
Draw interactive timeseries plots using plotly
draw_ts( x, time, window = 7L, group = NULL, roll_fn = c("mean", "median", "max", "none"), roll_col = NULL, roll_alpha = 1, roll_lwd = 2, roll_name = NULL, alpha = NULL, align = "center", group_names = NULL, xlab = "Time", n_xticks = 12, scatter_type = "scatter", legend = TRUE, x_showspikes = TRUE, y_showspikes = FALSE, spikedash = "solid", spikemode = "across", spikesnap = "hovered data", spikecolor = NULL, spikethickness = 1, displayModeBar = TRUE, modeBar_file_format = "svg", theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), filename = NULL, file_width = 500, file_height = 500, file_scale = 1, ... )draw_ts( x, time, window = 7L, group = NULL, roll_fn = c("mean", "median", "max", "none"), roll_col = NULL, roll_alpha = 1, roll_lwd = 2, roll_name = NULL, alpha = NULL, align = "center", group_names = NULL, xlab = "Time", n_xticks = 12, scatter_type = "scatter", legend = TRUE, x_showspikes = TRUE, y_showspikes = FALSE, spikedash = "solid", spikemode = "across", spikesnap = "hovered data", spikecolor = NULL, spikethickness = 1, displayModeBar = TRUE, modeBar_file_format = "svg", theme = choose_theme(getOption("rtemis_theme")), palette = getOption("rtemis_palette", "rtms"), filename = NULL, file_width = 500, file_height = 500, file_scale = 1, ... )
x |
Numeric vector of values to plot or list of vectors |
time |
Numeric or Date vector of time corresponding to values of |
window |
Integer: apply |
group |
Factor defining groups |
roll_fn |
Character: "mean", "median", "max", or "none": Function to apply on
rolling windows of |
roll_col |
Color for rolling line |
roll_alpha |
Numeric: transparency for rolling line |
roll_lwd |
Numeric: width of rolling line |
roll_name |
Rolling function name (for annotation) |
alpha |
Numeric [0, 1]: Transparency |
align |
Character: "center", "right", or "left" |
group_names |
Character vector of group names |
xlab |
Character: x-axis label |
n_xticks |
Integer: number of x-axis ticks to use (approximately) |
scatter_type |
Character: "scatter" or "lines" |
legend |
Logical: If TRUE, show legend |
x_showspikes |
Logical: If TRUE, show x-axis spikes on hover |
y_showspikes |
Logical: If TRUE, show y-axis spikes on hover |
spikedash |
Character: dash type string ("solid", "dot", "dash", "longdash", "dashdot", or "longdashdot") or a dash length list in px (eg "5px,10px,2px,2px") |
spikemode |
Character: If "toaxis", spike line is drawn from the data point to the axis the series is plotted on. If "across", the line is drawn across the entire plot area, and supercedes "toaxis". If "marker", then a marker dot is drawn on the axis the series is plotted on |
spikesnap |
Character: "data", "cursor", "hovered data". Determines whether spikelines are stuck to the cursor or to the closest datapoints. |
spikecolor |
Color for spike lines |
spikethickness |
Numeric: spike line thickness |
displayModeBar |
Logical: If TRUE, display plotly's modebar |
modeBar_file_format |
Character: modeBar image export file format |
theme |
|
palette |
Character: palette name, or list of colors |
filename |
Character: Path to filename to save plot |
file_width |
Numeric: image export width |
file_height |
Numeric: image export height |
file_scale |
Numeric: image export scale |
... |
Additional arguments to be passed to draw_scatter |
plotly object.
EDG
time <- sample(seq(as.Date("2020-03-01"), as.Date("2020-09-23"), length.out = 140)) x1 <- rnorm(140) x2 <- rnorm(140, 1, 1.2) # Single timeseries draw_ts(x1, time) # Multiple timeseries input as list draw_ts(list(Alpha = x1, Beta = x2), time) # Multiple timeseries grouped by group, different lengths time1 <- sample(seq(as.Date("2020-03-01"), as.Date("2020-07-23"), length.out = 100)) time2 <- sample(seq(as.Date("2020-05-01"), as.Date("2020-09-23"), length.out = 140)) time <- c(time1, time2) x <- c(rnorm(100), rnorm(140, 1, 1.5)) group <- c(rep("Alpha", 100), rep("Beta", 140)) draw_ts(x, time, 7, group)time <- sample(seq(as.Date("2020-03-01"), as.Date("2020-09-23"), length.out = 140)) x1 <- rnorm(140) x2 <- rnorm(140, 1, 1.2) # Single timeseries draw_ts(x1, time) # Multiple timeseries input as list draw_ts(list(Alpha = x1, Beta = x2), time) # Multiple timeseries grouped by group, different lengths time1 <- sample(seq(as.Date("2020-03-01"), as.Date("2020-07-23"), length.out = 100)) time2 <- sample(seq(as.Date("2020-05-01"), as.Date("2020-09-23"), length.out = 140)) time <- c(time1, time2) x <- c(rnorm(100), rnorm(140, 1, 1.5)) group <- c(rep("Alpha", 100), rep("Beta", 140)) draw_ts(x, time, 7, group)
Plot variable importance using plotly
draw_varimp( x, names = NULL, main = NULL, type = c("bar", "line"), xlab = NULL, ylab = NULL, plot_top = 1, orientation = "v", line_width = 12, labelify = TRUE, alpha = 1, palette = get_palette(getOption("rtemis_palette")), mar = NULL, font_size = 16, axis_font_size = 14, theme = choose_theme(getOption("rtemis_theme")), showlegend = TRUE, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )draw_varimp( x, names = NULL, main = NULL, type = c("bar", "line"), xlab = NULL, ylab = NULL, plot_top = 1, orientation = "v", line_width = 12, labelify = TRUE, alpha = 1, palette = get_palette(getOption("rtemis_palette")), mar = NULL, font_size = 16, axis_font_size = 14, theme = choose_theme(getOption("rtemis_theme")), showlegend = TRUE, filename = NULL, file_width = 500, file_height = 500, file_scale = 1 )
x |
Numeric vector (or coercible to numeric): Input. |
names |
Vector, string: Names of features. |
main |
Character: Main title. |
type |
Character: "bar" or "line". |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
plot_top |
Numeric: Number of top features to plot if > 1, or the proportion of features to plot if <= 1 (e.g. 1 plots all features). |
orientation |
Character: "h" or "v". |
line_width |
Numeric: Line width. |
labelify |
Logical: If TRUE, labelify feature names. |
alpha |
Numeric: Transparency. |
palette |
Character vector: Colors to use. |
mar |
Vector, numeric, length 4: Plot margins in pixels (NOT inches). |
font_size |
Integer: Overall font size to use (essentially for the title at this point). |
axis_font_size |
Integer: Font size to use for axis labels and tick labels. |
theme |
|
showlegend |
Logical: If TRUE, show legend. |
filename |
Character: Path to save the plot image. |
file_width |
Numeric: Width of the saved plot image. |
file_height |
Numeric: Height of the saved plot image. |
file_scale |
Numeric: Scale of the saved plot image. |
A simple plotly wrapper to plot horizontal barplots, sorted by value,
which can be used to visualize variable importance, model coefficients, etc.
plotly object.
EDG
# synthetic data x <- rnorm(10) names(x) <- paste0("Feature_", seq(x)) draw_varimp(x) draw_varimp(x, orientation = "h")# synthetic data x <- rnorm(10) names(x) <- paste0("Feature_", seq(x)) draw_varimp(x) draw_varimp(x, orientation = "h")
Volcano Plot
draw_volcano( x, pvals, xnames = NULL, group = NULL, x_thresh = 0, p_thresh = 0.05, p_adjust_method = c("holm", "hochberg", "hommel", "bonferroni", "BH", "BY", "fdr", "none"), p_transform = function(x) -log10(x), legend = NULL, legend_lo = NULL, legend_hi = NULL, label_lo = "Low", label_hi = "High", main = NULL, xlab = NULL, ylab = NULL, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), xlim = NULL, ylim = NULL, alpha = NULL, hline = NULL, hline_col = NULL, hline_width = 1, hline_dash = "solid", hline_annotate = NULL, hline_annotation_x = 1, theme = choose_theme(getOption("rtemis_theme")), annotate = TRUE, annotate_col = theme[["labs_col"]], font_size = 16, palette = NULL, legend_x_lo = NULL, legend_x_hi = NULL, legend_y = 0.97, annotate_n = 7L, ax_lo = NULL, ay_lo = NULL, ax_hi = NULL, ay_hi = NULL, annotate_alpha = 0.7, hovertext = NULL, displayModeBar = "hover", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 1L, ... )draw_volcano( x, pvals, xnames = NULL, group = NULL, x_thresh = 0, p_thresh = 0.05, p_adjust_method = c("holm", "hochberg", "hommel", "bonferroni", "BH", "BY", "fdr", "none"), p_transform = function(x) -log10(x), legend = NULL, legend_lo = NULL, legend_hi = NULL, label_lo = "Low", label_hi = "High", main = NULL, xlab = NULL, ylab = NULL, margin = list(b = 65, l = 65, t = 50, r = 10, pad = 0), xlim = NULL, ylim = NULL, alpha = NULL, hline = NULL, hline_col = NULL, hline_width = 1, hline_dash = "solid", hline_annotate = NULL, hline_annotation_x = 1, theme = choose_theme(getOption("rtemis_theme")), annotate = TRUE, annotate_col = theme[["labs_col"]], font_size = 16, palette = NULL, legend_x_lo = NULL, legend_x_hi = NULL, legend_y = 0.97, annotate_n = 7L, ax_lo = NULL, ay_lo = NULL, ax_hi = NULL, ay_hi = NULL, annotate_alpha = 0.7, hovertext = NULL, displayModeBar = "hover", filename = NULL, file_width = 500, file_height = 500, file_scale = 1, verbosity = 1L, ... )
x |
Numeric vector: Input values, e.g. log2 fold change, coefficients, etc. |
pvals |
Numeric vector: p-values. |
xnames |
Character vector: |
group |
Optional factor: Used to color code points. If NULL, significant points
below |
x_thresh |
Numeric x-axis threshold separating low from high. |
p_thresh |
Numeric: p-value threshold of significance. |
p_adjust_method |
Character: p-value adjustment method. "holm", "hochberg", "hommel", "bonferroni", "BH", "BY", "fdr", "none". Use "none" for raw p-values. |
p_transform |
function. |
legend |
Logical: If TRUE, show legend. If NULL, set to FALSE when
|
legend_lo |
Character: Legend to annotate significant points below the
|
legend_hi |
Character: Legend to annotate significant points above the
|
label_lo |
Character: label for low values. |
label_hi |
Character: label for high values. |
main |
Character: Main title. |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
margin |
Named list of plot margins. |
xlim |
Numeric vector, length 2: x-axis limits. |
ylim |
Numeric vector, length 2: y-axis limits. |
alpha |
Numeric: point transparency. |
hline |
Numeric: If defined, draw a horizontal line at this y value. |
hline_col |
Color for |
hline_width |
Numeric: Width for |
hline_dash |
Character: Type of line to draw: "solid", "dot", "dash", "longdash", "dashdot", or "longdashdot". |
hline_annotate |
Character: Text of horizontal line annotation if
|
hline_annotation_x |
Numeric: x position to place annotation with paper as reference. 0: to the left of the plot area; 1: to the right of the plot area. |
theme |
|
annotate |
Logical: If TRUE, annotate significant points. |
annotate_col |
Color for annotations. |
font_size |
Integer: Font size. |
palette |
Character vector: Colors to use. If |
legend_x_lo |
Numeric: x position of |
legend_x_hi |
Numeric: x position of |
legend_y |
Numeric: y position for |
annotate_n |
Integer: Number of significant points to annotate. |
ax_lo |
Numeric: Sets the x component of the arrow tail about the arrow head for
significant points below |
ay_lo |
Numeric: Sets the y component of the arrow tail about the arrow head for
significant points below |
ax_hi |
Numeric: Sets the x component of the arrow tail about the arrow head for
significant points above |
ay_hi |
Numeric: Sets the y component of the arrow tail about the arrow head for
significant points above |
annotate_alpha |
Numeric: Transparency for annotations. |
hovertext |
Character vector: Text to display on hover. |
displayModeBar |
Logical: If TRUE, display plotly mode bar. |
filename |
Character: Path to save the plot image. |
file_width |
Numeric: Width of the saved plot image. |
file_height |
Numeric: Height of the saved plot image. |
file_scale |
Numeric: Scale of the saved plot image. |
verbosity |
Integer: Verbosity level. |
... |
Additional arguments passed to draw_scatter. |
plotly object.
EDG
set.seed(2019) y <- rnormmat(500, 500, return_df = TRUE) x <- data.frame(x = y[, 3] + y[, 5] - y[, 9] + y[, 15] + rnorm(500)) mod <- massGLM(x, y) draw_volcano(summary(mod)[["Coefficient_x"]], summary(mod)[["p_value_x"]])set.seed(2019) y <- rnormmat(500, 500, return_df = TRUE) x <- data.frame(x = y[, 3] + y[, 5] - y[, 9] + y[, 15] + rnorm(500)) mod <- massGLM(x, y) draw_volcano(summary(mod)[["Coefficient_x"]], summary(mod)[["p_value_x"]])
Plot timeseries data
draw_xt( x, y, x2 = NULL, y2 = NULL, which_xy = NULL, which_xy2 = NULL, shade_bin = NULL, shade_interval = NULL, shade_col = NULL, shade_x = NULL, shade_name = "", shade_showlegend = FALSE, ynames = NULL, y2names = NULL, xlab = NULL, ylab = NULL, y2lab = NULL, xunits = NULL, yunits = NULL, y2units = NULL, yunits_col = NULL, y2units_col = NULL, zt = NULL, show_zt = TRUE, show_zt_every = NULL, zt_nticks = 18L, main = NULL, main_y = 1, main_yanchor = "bottom", x_nticks = 0, y_nticks = 0, show_rangeslider = NULL, slider_start = NULL, slider_end = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), font_size = 16, yfill = "none", y2fill = "none", fill_alpha = 0.2, yline_width = 2, y2line_width = 2, x_showspikes = TRUE, spike_dash = "solid", spike_col = NULL, x_spike_thickness = -2, tickfont_size = 16, x_tickmode = "auto", x_tickvals = NULL, x_ticktext = NULL, x_tickangle = NULL, legend_x = 0, legend_y = 1.1, legend_xanchor = "left", legend_yanchor = "top", legend_orientation = "h", margin = list(l = 75, r = 75, b = 75, t = 75), x_standoff = 20L, y_standoff = 20L, y2_standoff = 20L, hovermode = "x", displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 960, file_height = 500, file_scale = 1 )draw_xt( x, y, x2 = NULL, y2 = NULL, which_xy = NULL, which_xy2 = NULL, shade_bin = NULL, shade_interval = NULL, shade_col = NULL, shade_x = NULL, shade_name = "", shade_showlegend = FALSE, ynames = NULL, y2names = NULL, xlab = NULL, ylab = NULL, y2lab = NULL, xunits = NULL, yunits = NULL, y2units = NULL, yunits_col = NULL, y2units_col = NULL, zt = NULL, show_zt = TRUE, show_zt_every = NULL, zt_nticks = 18L, main = NULL, main_y = 1, main_yanchor = "bottom", x_nticks = 0, y_nticks = 0, show_rangeslider = NULL, slider_start = NULL, slider_end = NULL, theme = choose_theme(getOption("rtemis_theme")), palette = get_palette(getOption("rtemis_palette")), font_size = 16, yfill = "none", y2fill = "none", fill_alpha = 0.2, yline_width = 2, y2line_width = 2, x_showspikes = TRUE, spike_dash = "solid", spike_col = NULL, x_spike_thickness = -2, tickfont_size = 16, x_tickmode = "auto", x_tickvals = NULL, x_ticktext = NULL, x_tickangle = NULL, legend_x = 0, legend_y = 1.1, legend_xanchor = "left", legend_yanchor = "top", legend_orientation = "h", margin = list(l = 75, r = 75, b = 75, t = 75), x_standoff = 20L, y_standoff = 20L, y2_standoff = 20L, hovermode = "x", displayModeBar = TRUE, modeBar_file_format = "svg", scrollZoom = TRUE, filename = NULL, file_width = 960, file_height = 500, file_scale = 1 )
x |
Datetime vector or list of vectors. |
y |
Numeric vector or named list of vectors: y-axis data. |
x2 |
Datetime vector or list of vectors, optional: must be provided if |
y2 |
Numeric vector, optional: If provided, a second y-axis will be added to the right side of the plot. |
which_xy |
Integer vector: Indices of |
which_xy2 |
Integer vector: Indices of |
shade_bin |
Integer vector {0, 1}: Time points in |
shade_interval |
List of numeric vectors: Intervals to shade on the plot. Only set
|
shade_col |
Color: Color to shade intervals. |
shade_x |
Numeric vector: x-values to use for shading. |
shade_name |
Character: Name for shaded intervals. |
shade_showlegend |
Logical: If TRUE, show legend for shaded intervals. |
ynames |
Character vector, optional: Names for each vector in |
y2names |
Character vector, optional: Names for each vector in |
xlab |
Character: x-axis label. |
ylab |
Character: y-axis label. |
y2lab |
Character: y2-axis label. |
xunits |
Character: x-axis units. |
yunits |
Character: y-axis units. |
y2units |
Character: y2-axis units. |
yunits_col |
Color for y-axis units. |
y2units_col |
Color for y2-axis units. |
zt |
Numeric vector: Zeitgeber time. If provided, will be shown on the x-axis instead of
|
show_zt |
Logical: If TRUE, show zt on x-axis, if zt is provided. |
show_zt_every |
Optional integer: Show zt every |
zt_nticks |
Integer: Number of zt ticks to show. Only used if |
main |
Character: Main title. |
main_y |
Numeric: Y position of main title. |
main_yanchor |
Character: "top", "middle", "bottom". |
x_nticks |
Integer: Number of ticks on x-axis. |
y_nticks |
Integer: Number of ticks on y-axis. |
show_rangeslider |
Logical: If TRUE, show a range slider. |
slider_start |
Numeric: Start of range slider. |
slider_end |
Numeric: End of range slider. |
theme |
|
palette |
Character vector: Colors to be used to draw each vector in |
font_size |
Numeric: Font size for text. |
yfill |
Character: Fill type for y-axis: "none", "tozeroy", "tonexty". |
y2fill |
Character: Fill type for y2-axis: "none", "tozeroy", "tonexty". |
fill_alpha |
Numeric: Fill opacity for y-axis. |
yline_width |
Numeric: Line width for y-axis lines. |
y2line_width |
Numeric: Line width for y2-axis lines. |
x_showspikes |
Logical: If TRUE, show spikes on x-axis. |
spike_dash |
Character: Dash type for spikes: "solid", "dot", "dash", "longdash", "dashdot", "longdashdot". |
spike_col |
Color for spikes. |
x_spike_thickness |
Numeric: Thickness of spikes. |
tickfont_size |
Numeric: Font size for tick labels. |
x_tickmode |
Character: "auto", "linear", "array". |
x_tickvals |
Numeric vector: Tick positions. |
x_ticktext |
Character vector: Tick labels. |
x_tickangle |
Numeric: Angle of tick labels. |
legend_x |
Numeric: X position of legend. |
legend_y |
Numeric: Y position of legend. |
legend_xanchor |
Character: "left", "center", "right". |
legend_yanchor |
Character: "top", "middle", "bottom". |
legend_orientation |
Character: "v" for vertical, "h" for horizontal. |
margin |
Named list with 4 numeric values: "l", "r", "t", "b" for left, right, top, bottom margins. |
x_standoff |
Numeric: Distance from x-axis to x-axis label. |
y_standoff |
Numeric: Distance from y-axis to y-axis label. |
y2_standoff |
Numeric: Distance from y2-axis to y2-axis label. |
hovermode |
Character: "closest", "x", "x unified". |
displayModeBar |
Logical: If TRUE, display plotly mode bar. |
modeBar_file_format |
Character: "png", "svg", "jpeg", "webp", "pdf": file format for mode bar image export. |
scrollZoom |
Logical: If TRUE, enable zooming by scrolling. |
filename |
Character: Path to save the plot image. |
file_width |
Numeric: Width of the saved plot image. |
file_height |
Numeric: Height of the saved plot image. |
file_scale |
Numeric: Scale of the saved plot image. |
plotly object.
EDG
datetime <- seq( as.POSIXct("2020-01-01 00:00"), as.POSIXct("2020-01-02 00:00"), by = "hour" ) df <- data.frame( datetime = datetime, value1 = rnorm(length(datetime)), value2 = rnorm(length(datetime)) ) draw_xt(x = df[, 1], y = df[, 2:3])datetime <- seq( as.POSIXct("2020-01-01 00:00"), as.POSIXct("2020-01-02 00:00"), by = "hour" ) df <- data.frame( datetime = datetime, value1 = rnorm(length(datetime)), value2 = rnorm(length(datetime)) ) draw_xt(x = df[, 1], y = df[, 2:3])
get_palette() returns a color palette (character vector of colors).
Without arguments, prints names of available color palettes.
Each palette is a named list of hexadecimal color definitions which can be used with
any graphics function.
get_palette(palette = NULL, verbosity = 1L)get_palette(palette = NULL, verbosity = 1L)
palette |
Character: Name of palette to return. If NULL, available palette names are printed and no palette is returned. |
verbosity |
Integer: Verbosity level. |
Character vector of colors for the specified palette, or invisibly returns
list of available palettes if palette = NULL.
EDG
# Print available palettes get_palette() # Get the Imperial palette get_palette("imperial")# Print available palettes get_palette() # Get the Imperial palette get_palette("imperial")
Preview one or multiple colors using little rhombi with their little labels up top
previewcolor( x, main = NULL, bg = "#333333", main_col = "#b3b3b3", main_x = 0.7, main_y = 0.2, main_adj = 0, main_cex = 0.9, main_font = 2, width = NULL, xlim = NULL, ylim = c(0, 2.2), asp = 1, labels_y = 1.55, label_cex = NULL, mar = c(0, 0, 0, 1), filename = NULL, pdf_width = 8, pdf_height = 2.5 )previewcolor( x, main = NULL, bg = "#333333", main_col = "#b3b3b3", main_x = 0.7, main_y = 0.2, main_adj = 0, main_cex = 0.9, main_font = 2, width = NULL, xlim = NULL, ylim = c(0, 2.2), asp = 1, labels_y = 1.55, label_cex = NULL, mar = c(0, 0, 0, 1), filename = NULL, pdf_width = 8, pdf_height = 2.5 )
x |
Color, vector: One or more colors that R understands |
main |
Character: Title. If NULL, set to
|
bg |
Background color. |
main_col |
Color: Title color |
main_x |
Float: x coordinate for |
main_y |
Float: y coordinate for |
main_adj |
Float: |
main_cex |
Float: character expansion factor for |
main_font |
Integer, 1 or 2: Weight of |
width |
Float: Plot width. If NULL, set automatically. |
xlim |
Vector, length 2: x-axis limits. If NULL, set automatically. |
ylim |
Vector, length 2: y-axis limits. |
asp |
Float: Plot aspect ratio. |
labels_y |
Float: y coord for labels (rhombi are fixed and range y .5 - 1.5). |
label_cex |
Float: Character expansion for labels. If NULL,
calculated automatically based on length of |
mar |
Numeric vector, length 4: margin size. |
filename |
Character: Path to save plot as PDF. |
pdf_width |
Numeric: Width of PDF in inches. |
pdf_height |
Numeric: Height of PDF in inches. |
Nothing, prints plot.
EDG
previewcolor(get_palette("rtms"))previewcolor(get_palette("rtms"))
draw_* functionsThemes for draw_* functions
theme_black( bg = "#000000", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_blackgrid( bg = "#000000", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_blackigrid( bg = "#000000", plot_bg = "#1A1A1A", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgray( bg = "#121212", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgraygrid( bg = "#121212", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#404040", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgrayigrid( bg = "#121212", plot_bg = "#202020", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "transparent", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_white( bg = "#ffffff", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_whitegrid( bg = "#ffffff", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#c0c0c0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_whiteigrid( bg = "#ffffff", plot_bg = "#E6E6E6", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "transparent", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_lightgraygrid( bg = "#dfdfdf", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#c0c0c0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_mediumgraygrid( bg = "#b3b3b3", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#d0d0d0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") )theme_black( bg = "#000000", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_blackgrid( bg = "#000000", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_blackigrid( bg = "#000000", plot_bg = "#1A1A1A", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgray( bg = "#121212", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 0.2, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgraygrid( bg = "#121212", plot_bg = "transparent", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#404040", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_darkgrayigrid( bg = "#121212", plot_bg = "#202020", fg = "#ffffff", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "transparent", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_white( bg = "#ffffff", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = FALSE, grid_nx = NULL, grid_ny = NULL, grid_col = fg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = fg, tick_alpha = 0.5, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_whitegrid( bg = "#ffffff", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#c0c0c0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_whiteigrid( bg = "#ffffff", plot_bg = "#E6E6E6", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = bg, grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "transparent", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_lightgraygrid( bg = "#dfdfdf", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#c0c0c0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") ) theme_mediumgraygrid( bg = "#b3b3b3", plot_bg = "transparent", fg = "#000000", pch = 16, cex = 1, lwd = 2, bty = "n", box_col = fg, box_alpha = 1, box_lty = 1, box_lwd = 0.5, grid = TRUE, grid_nx = NULL, grid_ny = NULL, grid_col = "#d0d0d0", grid_alpha = 1, grid_lty = 1, grid_lwd = 1, axes_visible = TRUE, axes_col = "transparent", tick_col = "#00000000", tick_alpha = 1, tick_labels_col = fg, tck = -0.01, tcl = NA, x_axis_side = 1, y_axis_side = 2, labs_col = fg, x_axis_line = 0, x_axis_las = 0, x_axis_padj = -1.1, x_axis_hadj = 0.5, y_axis_line = 0, y_axis_las = 1, y_axis_padj = 0.5, y_axis_hadj = 0.5, xlab_line = 1.4, ylab_line = 2, zerolines = TRUE, zerolines_col = fg, zerolines_alpha = 0.5, zerolines_lty = 1, zerolines_lwd = 1, main_line = 0.25, main_adj = 0, main_font = 2, main_col = fg, font_family = getOption("rtemis_font", "Helvetica") )
bg |
Color: Figure background. |
plot_bg |
Color: Plot region background. |
fg |
Color: Foreground color used as default for multiple elements like axes and labels, which can be defined separately. |
pch |
Integer: Point character. |
cex |
Float: Character expansion factor. |
lwd |
Float: Line width. |
bty |
Character: Box type: "o", "l", "7", "c", "u", or "]", or "n". |
box_col |
Box color if |
box_alpha |
Float: Box alpha. |
box_lty |
Integer: Box line type. |
box_lwd |
Float: Box line width. |
grid |
Logical: If TRUE, draw grid in plot regions. |
grid_nx |
Integer: N of vertical grid lines. |
grid_ny |
Integer: N of horizontal grid lines. |
grid_col |
Grid color. |
grid_alpha |
Float: Grid alpha. |
grid_lty |
Integer: Grid line type. |
grid_lwd |
Float: Grid line width. |
axes_visible |
Logical: If TRUE, draw axes. |
axes_col |
Axes colors. |
tick_col |
Tick color. |
tick_alpha |
Float: Tick alpha. |
tick_labels_col |
Tick labels' color. |
tck |
|
tcl |
|
x_axis_side |
Integer: Side to place x-axis. |
y_axis_side |
Integer: Side to place y-axis. |
labs_col |
Labels' color. |
x_axis_line |
Numeric: |
x_axis_las |
Numeric: |
x_axis_padj |
Numeric: x-axis' |
x_axis_hadj |
Numeric: x-axis' |
y_axis_line |
Numeric: |
y_axis_las |
Numeric: |
y_axis_padj |
Numeric: y-axis' |
y_axis_hadj |
Numeric: y-axis' |
xlab_line |
Numeric: Line to place |
ylab_line |
Numeric: Line to place |
zerolines |
Logical: If TRUE, draw lines on x = 0, y = 0, if within plot limits. |
zerolines_col |
Zerolines color. |
zerolines_alpha |
Float: Zerolines alpha. |
zerolines_lty |
Integer: Zerolines line type. |
zerolines_lwd |
Float: Zerolines line width. |
main_line |
Float: How many lines away from the plot region to draw title. |
main_adj |
Float: How to align title. |
main_font |
Integer: 1: Regular, 2: Bold. |
main_col |
Title color. |
font_family |
Character: Font to be used throughout plot. |
Theme object.
theme <- theme_black(font_family = "Geist") themetheme <- theme_black(font_family = "Geist") theme
Get protein sequence from UniProt
uniprot_get( accession, baseURL = "https://rest.uniprot.org/uniprotkb", verbosity = 1 )uniprot_get( accession, baseURL = "https://rest.uniprot.org/uniprotkb", verbosity = 1 )
accession |
Character: UniProt Accession number - e.g. "Q9UMX9" |
baseURL |
Character: UniProt rest API base URL. |
verbosity |
Integer: Verbosity level. |
List with three elements: Identifier, Annotation, and Sequence.
E.D. Gennatas
## Not run: # This gets the sequence from uniprot.org by default mapt <- uniprot_get("Q9UMX9") ## End(Not run)## Not run: # This gets the sequence from uniprot.org by default mapt <- uniprot_get("Q9UMX9") ## End(Not run)
A small synthetic dataset demonstrating various participation patterns
in longitudinal data, suitable for examples with xtdescribe.
xt_examplext_example
A data frame with 30 rows and 4 variables:
Integer: Patient identifier (1-10).
Integer: Year of measurement (2020-2024).
Numeric: Systolic blood pressure measurement.
Character: Treatment group ("A" or "B").
This dataset includes 10 patients measured at up to 5 time points (years 2020-2024). The dataset demonstrates various participation patterns typical in longitudinal studies:
Complete participation (all time points)
Early dropout
Late entry
Intermittent participation
Single time point participation
data(xt_example) head(xt_example) summary(xt_example)data(xt_example) head(xt_example) summary(xt_example)
This function emulates the xtdescribe function in Stata.
xtdescribe(x, id_col = 1, time_col = 2, n_patterns = 9)xtdescribe(x, id_col = 1, time_col = 2, n_patterns = 9)
x |
data.frame: Longitudinal data with ID and time variables. |
id_col |
Integer: The column position of the ID variable. |
time_col |
Integer: The column position of the time variable. |
n_patterns |
Integer: The number of patterns to display. |
data.frame: Summary of participation patterns, returned invisibly.
EDG
# Load example longitudinal dataset data(xt_example) # Describe the longitudinal structure xtdescribe(xt_example)# Load example longitudinal dataset data(xt_example) # Describe the longitudinal structure xtdescribe(xt_example)