View source: R/stat-tile-etho.R
| stat_bar_tile_etho | R Documentation |
These functions show the temporal trend (time on the x axis) of a variable of interest (z axis)
as either colour intensity (stat_tile_etho) or using the hight of the tiles (stat_bar_tile_etho).
In both cases, the y axis is a discrete variable such as a treatment or the id of individuals.
stat_bar_tile_etho(mapping = NULL, data = NULL, geom = "bar_tile", position = "identity", ..., method = mean, method.args = list(), na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) stat_tile_etho(mapping = NULL, data = NULL, geom = "raster", position = "identity", ..., method = mean, method.args = list(), na.rm = FALSE, show.legend = NA, inherit.aes = TRUE)
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
geom |
The geometric object to use display the data |
position |
Position adjustment, either as a string, or the result of a call to a position adjustment function. |
... |
Other arguments passed on to |
method |
function used to compute the aggregate, when/if grouping several individuals on the same row. The default is fucntion is mean. median, min, max are examples of alternatives. |
method.args |
List of additional arguments passed on to the modelling
function defined by |
na.rm |
If |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
The relevant rethomic tutorial section
ggetho to generate a plot object
stat_pop_etho to show population trend by aggregating individuals over time
stat_ld_annotations to show light and dark phases on the plot
Other layers: geom_peak,
stat_ld_annotations,
stat_pop_etho
# We start by making a to dataset with 20 animals
metadata <- data.frame(id = sprintf("toy_experiment | %02d", 1:20),
age = c(1, 5, 10, 20),
condition = c("A", "B"))
print(metadata)
dt <- toy_activity_data(metadata, 3)
# We build a plot object
pl <- ggetho(dt, aes(z = asleep))
# A standard plot one row per animal:
pl + stat_tile_etho()
# We can also group animals per condition and calculate the average sleep
pl <- ggetho(dt, aes(z = asleep, y = condition))
pl + stat_tile_etho()
# We can sort by adding condition AND id on the y axis:
pl <- ggetho(dt, aes(z = asleep, y = interaction(id, condition)))
pl + stat_tile_etho()
# Same if we want to sort by age
pl <- ggetho(dt, aes(z = asleep, y = interaction(id, age)))
pl + stat_tile_etho()
# Instead, of the average, maybe we want to show the highest (max)
# posible value of sleep for any time point
pl + stat_tile_etho(method = max)
# We can also use stat_bar_tile as an alternative
pl + stat_bar_tile_etho()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.