| propsa<- | R Documentation |
Update the graphical properties of table elements in selected rows and columns of a plotted table.
propsa(x, arows=NULL, acols=NULL, setEnabled=TRUE) <- value
x |
A |
arows, acols |
Numeric vectors of row and column numbers in the table's augmented row-column grid. The default value of NULL means all rows or columns. Use half-integer values to refer to the locations of horizontal or vertical rules running between rows or columns. |
setEnabled |
Logical scalar. If TRUE then any element whose properties are updated by
this function will have its |
value |
An |
There are three similar functions that can be used to modify the graphical
properties of table elements: props<-, propsa<-, and
propsd<-. They differ only in how one specifies which elements are
to be modified. props<- uses element or block ID, or searches the
text content of entries. propsa<- uses explicit row and column
numbers within the augmented row-column grid. propsd<- uses the
values of element descriptors (as described in ?elements).
The type of elements that are updated is determined by value: if
value is an element_entry or element_refmark object
then entries are updated; if it is an element_hvrule object then
hvrules are; if it is an element_block object then blocks are. See
the documentation for props<- for discussion of their use.
For this function the selected elements are those which are (a) completely
contained within the rows listed in arows and the columns listed in
acols; and (b) of a type (entry, block, or hvrule) corresponding to
the class of value. For (a), arows and acols are
treated as _sets_ of row/column numbers, not _ranges_. For example, a
horizontal rule running between rows 3 and 4 will not be selected by
arows=c(3, 4); the value 3.5 must be included in arows.
The helper functions arow and acol provide a partial bridge
between this function and props<-. They return row and column
numbers associated with particular element IDs, or with specified values
of the row and column headers. For example, propsa(plt,
arows=arow(plt, id="body"), acols=acol(plt, id="body")) is equivalent to
props(plt, id="body"). See the examples below for cases where the
combination of propsa<- and arow/acol is more
convenient than props<- alone.
This function overrides graphical properties in x that may have
been set by a style. Therefore the value of style_row is set to NA
for any elements whose properties are updated by this function.
An object like x, with updated graphical properties for the
selected elements.
element_entry, element_refmark,
element_hvrule, element_block,
arow, acol, props<-,
propsd<-
plt <- plot(iris2_tab, title="Summary statistics for the iris data")
plt2 <- plt
# Change the title to italics:
propsa(plt2, arows=1) <- element_entry(fontface=3)
# Change the vertical rule between row header and body from empty to
# a solid line:
propsa(plt2, acols=2.5) <- element_hvrule(linetype=1, color="black",
size=0.5)
# Put all the mean values in bold face:
propsa(plt2, arows=arow(plt2, hpath=c(NA, "mean")),
acols=acol(plt2, id="body")) <- element_entry(fontface=2)
plt3 <- plt
# Use shading to highlight the rows for the 'versicolor' species:
propsa(plt3, arows=arow(plt3, hpath=c("versicolor"))) <-
element_block(fill="gray85")
# Compare tables before and after modification:
print(plt, vpx=0.25, vpy=0.75)
print(plt2, vpx=0.75, vpy=0.75, newpage=FALSE)
print(plt3, vpx=0.5, vpy=0.25, newpage=FALSE)
# Striping every other row in a data frame listing (must include row names):
data(mtcars, package="datasets")
plt <- plot(textTable(head(mtcars, 10),
title="Partial listing of the 'mtcars' data frame"))
ar <- arow(plt, id="body")
propsa(plt, arows=ar[ar %% 2 == 0]) <- element_block(fill="gray85")
plt
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.