Nothing
#' Beautiful graphical representation of multiplication tables
#'
#' By placing on a circle 10 points numbered from 1 to 10, and connecting them by a straight line to the point corresponding to its multiplication by 2. (1 must be connected to 1 * 2 = 2, point 2 must be set to 2 * 2 = 4, point 3 to 3 * 2 = 6 and so on). You will obtain an amazing geometric figure that complicates and beautifies itself by varying the number of points and the multiplication table you use.
#' @param table muliplication table to plot
#' @param modulo number of points to use
#' @param label show number label
#'
#' @return a ggplot
#' @export
#'
#' @examples
#' draw(table=2,modulo = 10, label=TRUE)
#' draw(table=2,modulo = 50, label=FALSE)
#' draw(table=2,modulo = 250)
#' draw(table=10,modulo = 250)
draw <- function(table=2,modulo=10,label=FALSE){
table <- round(table)
modulo <- round(modulo)
gen_points(table=table,modulo=modulo) %>%
gen_droites() %>%
plot.droites(modulo=modulo,table=table,label=label) +#ggthemes::theme_solid()
ggtitle(paste("table ",table, "modulo ", modulo))+
theme(line = element_blank(),
rect = element_rect(fill = NA, size = 12, colour = NA, linetype = 0),
panel.background = element_rect(fill = NA),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.x = element_blank(),
axis.text.y = element_blank(),
strip.background = element_blank())
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.