#' Title
#'
#' @param x
#' @param y
#' @param color
#' @param name
#' @param save_yikz
#'
#' @return
#' @export
#'
#' @examples
#' \dontrun{
#' library(tidyverse)
#' df <- iris %>% group_by(Species) %>% summarise_all(funs(mean))
#' df_to_table(df, path = "~/Downloads/", file_name = "test_test, v_lines = NULL, h_lines = c(1), case = 1, verbose = FALSE)
#' }
#'
print_to_tikz_line <- function(x, y, color, name, save_yikz){
round_n <- 6
tmp <- paste0("\\addplot[",color,", fill opacity=1,mark options={scale=2}] coordinates {")
for (i in 1:length(X)) {
tmp = paste0(tmp,paste0("(",round(x[i], round_n), ",", round(y[i],round_n), ")"))
}
tmp = paste0(tmp,"};\\addlegendentry{",name,"};")
write(tmp, file = paste0(saveTikz,".tex"),
ncolumns = 1,
append = FALSE, sep = "")
print("File is saved ...")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.