vignettes/ggplotR.md

In mbadge/AnalysisToolkitR: Objects and Functions for general data analysis

ggPlot code factoring

mabadgeley r Sys.Date()

data(classifiers, package="MyClassifiers")
str(classifiers, list.len=2)
#> List of 2
#>  $ classifier_points:List of 7
#>   ..$ nlp_4   :Formal class 'ClassifierPoint' [package "MyClassifiers"] w..
#>   .. .. ..@ Y_: logi [1:180] TRUE TRUE TRUE TRUE TRUE TRUE ...
#>   .. .. ..@ Y : logi [1:180] FALSE FALSE TRUE TRUE TRUE TRUE ...
#>   .. .. .. [list output truncated]
#>   ..$ nlp_8   :Formal class 'ClassifierPoint' [package "MyClassifiers"] w..
#>   .. .. ..@ Y_: logi [1:180] FALSE FALSE FALSE FALSE FALSE FALSE ...
#>   .. .. ..@ Y : logi [1:180] FALSE FALSE TRUE TRUE TRUE TRUE ...
#>   .. .. .. [list output truncated]
#>   .. [list output truncated]
#>  $ classifier_curves:List of 3
#>   ..$ cnn_8 :Formal class 'ClassifierCurve' [package "MyClassifiers"] wit..
#>   .. .. ..@ pY: num [1:180] 0.25347 0.65845 0.40168 0.76503 0.00696 ...
#>   .. .. ..@ Y : logi [1:180] FALSE FALSE TRUE TRUE TRUE TRUE ...
#>   .. .. .. [list output truncated]
#>   ..$ cnn_10:Formal class 'ClassifierCurve' [package "MyClassifiers"] wit..
#>   .. .. ..@ pY: num [1:180] 0.196 0.705 0.113 0.117 0.106 ...
#>   .. .. ..@ Y : logi [1:180] FALSE FALSE TRUE TRUE TRUE TRUE ...
#>   .. .. .. [list output truncated]
#>   .. [list output truncated]

reduce ggplot layers

accumulate_gg_dots <- function(...) {
    Reduce(`+`, list(...), accumulate=TRUE)
}

accumulate_gg_dots(
    ggplot(mtcars, aes(x=disp, y=cyl)) + geom_point(),
    geom_smooth(),
    xlab(NULL),
    ylab(NULL)
)
#> [[1]]
#> 
#> [[2]]
#> 
#> [[3]]
#> 
#> [[4]]

Augment data to accession-major df

tidy_curves <- map_dfr(classifiers$classifier_curves, tidy, .id="grader") %>% 
    nest(-id, -Y, .key = pY_by_grader)
tidy_points <- map_dfr(classifiers$classifier_point, tidy, .id = "grader") %>% 
    nest(-id, -Y, .key = Y_by_grader)
tidy_df <- inner_join(tidy_points, tidy_curves, c("id", "Y"))

tidy_df

{"columns":[{"label":["id"],"name":[1],"type":["chr"],"align":["left"]},{"label":["Y"],"name":[2],"type":["lgl"],"align":["right"]},{"label":["Y_by_grader"],"name":[3],"type":["list"],"align":["right"]},{"label":["pY_by_grader"],"name":[4],"type":["list"],"align":["right"]}],"data":[{"1":"7862738","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7863668","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7872384","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7873551","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7876265","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7876496","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7880241","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7880584","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7883602","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7884498","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7886648","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7887940","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7888448","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7888901","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7889921","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7890322","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7890505","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7893250","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7895951","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7896977","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7897429","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7897894","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7899792","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7899833","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7900753","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7902754","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7902997","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7903081","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7903167","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7903293","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7903334","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7907211","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7907821","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7910967","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7912698","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7915877","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7916810","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7917456","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7918479","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7919646","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7924267","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7933801","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7937519","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7942082","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7943694","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7947160","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7947204","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7951897","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7958561","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7959043","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7963375","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7968551","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7970059","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7970184","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7972190","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7974006","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7977128","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7977212","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"7981422","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7982926","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7984926","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7985324","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7991185","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7992187","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7992237","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7994234","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7997141","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"7998209","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8000806","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8001802","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8002483","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8008368","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8013266","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8015149","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8019080","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8019207","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8019238","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8019467","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8021436","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8022109","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8022303","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8023026","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8023839","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8029094","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8029388","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8029676","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8029822","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8031435","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8032487","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8034564","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8035086","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8037619","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8038137","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8039377","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8040987","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8044079","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8044942","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8045195","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8047027","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8049669","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8049719","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8055087","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8056467","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8057958","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8059394","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8061631","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8070474","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8070478","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8077027","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8078122","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8078898","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8087885","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8089609","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8091343","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8093182","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8094492","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8105200","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8106666","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8108521","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8109944","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8110228","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8110871","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8111377","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8112829","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8114715","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8116123","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8117310","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8119977","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8123964","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8124076","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8131644","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8132739","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8133936","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8137550","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8137634","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8137892","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8139175","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8145526","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8146571","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8148870","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8151294","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8151592","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8151896","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8151914","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8152202","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8154260","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8154272","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8154355","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8157224","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8157312","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8157794","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8161747","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8161748","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8163655","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8170802","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8175474","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8175695","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8177349","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8178336","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8182771","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8185105","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8188113","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8190453","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8190474","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8194275","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8195270","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8197505","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8205201","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8211179","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8216934","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8218638","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8220746","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8225781","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8226249","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8231069","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8235851","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8236021","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8240026","2":"TRUE","3":"<tibble>","4":"<tibble>"},{"1":"8240361","2":"FALSE","3":"<tibble>","4":"<tibble>"},{"1":"8243309","2":"FALSE","3":"<tibble>","4":"<tibble>"}],"options":{"columns":{"min":{},"max":[10]},"rows":{"min":[10],"max":[10]},"pages":{}}}

tidy_df %>% `[`(1, ) %>% use_series(Y_by_grader) %>% kable

grader Y_ --------- ------ nlp_4 TRUE nlp_8 FALSE nlp_10 FALSE javin FALSE eko TRUE mike TRUE priority FALSE

tidy_df %>% `[`(1, ) %>% use_series(pY_by_grader) %>% kable

grader pY ------- ------- cnn_8 0.2535 cnn_10 0.1960 cnn_4 0.9916

mbadge/AnalysisToolkitR documentation built on May 27, 2019, 1:08 p.m.