Commit 5b8fbe8a authored by jml's avatar jml
Browse files

typo

parent 38514adf
...@@ -21,7 +21,7 @@ basicr <- function(df,target,group="none"){ ...@@ -21,7 +21,7 @@ basicr <- function(df,target,group="none"){
"none" = df %>% basic_(target=target), "none" = df %>% basic_(target=target),
"YEAR" = df %>% group_by(YEAR) %>% basic_(target=target), "YEAR" = df %>% group_by(YEAR) %>% basic_(target=target),
"MONTH" = df %>% group_by(MONTH) %>% basic_(target=target), "MONTH" = df %>% group_by(MONTH) %>% basic_(target=target),
"WDAY" = df %>% group_by(wday) %>% basic_(target=target), "WDAY" = df %>% group_by(WDAY) %>% basic_(target=target),
"HOUR" = df %>% group_by(HOUR) %>% basic_(target=target), "HOUR" = df %>% group_by(HOUR) %>% basic_(target=target),
"MINUTE" = df %>% group_by(MINUTE) %>% basic_(target=target), "MINUTE" = df %>% group_by(MINUTE) %>% basic_(target=target),
"SECOND" = df %>% group_by(SECOND) %>% basic_(target=target), "SECOND" = df %>% group_by(SECOND) %>% basic_(target=target),
......
...@@ -33,7 +33,7 @@ plot_tbl_basic <- function(df,target,group,path=tempdir(),name=NULL,DESKTOP=TRUE ...@@ -33,7 +33,7 @@ plot_tbl_basic <- function(df,target,group,path=tempdir(),name=NULL,DESKTOP=TRUE
p <- switch(group, p <- switch(group,
"YEAR" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = YEAR, y = targ)) + ggplot2::labs(x = group, y = target), "YEAR" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = YEAR, y = targ)) + ggplot2::labs(x = group, y = target),
"MONTH" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = MONTH, y = targ)) + ggplot2::labs(x = group, y = target), "MONTH" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = MONTH, y = targ)) + ggplot2::labs(x = group, y = target),
"WDAY" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = wday, y = targ)) + ggplot2::labs(x = group, y = target), "WDAY" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = WDAY, y = targ)) + ggplot2::labs(x = group, y = target),
"HOUR" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = HOUR, y = targ)) + ggplot2::labs(x = group, y = target), "HOUR" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = HOUR, y = targ)) + ggplot2::labs(x = group, y = target),
"MINUTE" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = MINUTE, y = targ)) + ggplot2::labs(x = group, y = target), "MINUTE" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = MINUTE, y = targ)) + ggplot2::labs(x = group, y = target),
"SECOND" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = SECOND, y = targ)) + ggplot2::labs(x = group, y = target), "SECOND" = ggplot2::ggplot(df) + ggplot2::geom_boxplot(ggplot2::aes(x = SECOND, y = targ)) + ggplot2::labs(x = group, y = target),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment