Nothing
#' A scatter plot of traffic data.
#'
#' @param QUKtdayX, a matrix
#' @examples speedplot(QUKtdayX)
#' @export
speedplot <- function(QUKtdayX) {
quk0 <- QUKtdayX
quk1 <- dplyr::as_tibble(quk0)
ggplot2::ggplot(quk1, ggplot2::aes_string("q", "u")) +
ggplot2::geom_point(ggplot2::aes_string(color = "k", size = "k")) +
ggplot2::ggtitle("Flow-Speed Plot")
}
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.