block by timelyportfolio 06b78fca0fe458db2b22fd5ad4db294c

semiotic in R

Full Screen

# devtools::install_bitbucket("timelyportfolio/remiotic")
library(remiotic)
library(magrittr)

XYFrame(
  data = iris,
  xAccessor = "Petal.Length",
  xExtent = c(0, max(iris$Petal.Length)),
  yAccessor = "Petal.Width",
  yExtent = c(0, max(iris$Petal.Width)),
  title = "Semiotic Using Frames API",
  margin = list(top = 60, right = 20, bottom = 40, left = 50)
) %>%
  rem_points() %>%
  rem_axes(orient = "bottom") %>%
  rem_axes(orient = "left")