coo <- shapes[11] %>% coo_template()
coo_plot(coo, xlim=c(-1, 1))
coo %>% coo_scalex(1.5) %>% coo_draw(border="blue")
coo %>% coo_scaley(1.5) %>% coo_draw(border="red")
coo %>% coo_scalex(0.5) %>% coo_draw(border="blue", lty=2)
coo %>% coo_scaley(0.5) %>% coo_draw(border="red", lty=2)
Run the code above in your browser using DataLab