plt <- plot(iris2_tab, title="Summary statistics for the iris data",
foot="sd = standard deviation")
props(plt, id="foot") <- element_refmark(mark="*", side="before")
# Add a reference mark to just the first appearance of 'sd' in the row header:
propsa(plt, arows=arow(plt, hpath=c("setosa", "sd")), acols=2) <-
element_refmark(mark="*", side="after")
plt
Run the code above in your browser using DataLab