bargraph(~ perception, groups = wording, data = GoodandBad, stack = TRUE, auto.key = TRUE)
mosaicplot(~ perception + wording, data = GoodandBad, shade=TRUE)
mosaic(~ perception + wording, data = GoodandBad, shade=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.