fix to bring back A1 plot
This commit is contained in:
Binary file not shown.
@@ -62,7 +62,7 @@ plot.cc.example <- function(datalist, name, varnames=NULL, varorder=NULL, includ
|
|||||||
df[,Model:= factor(gsub('\\.',' ', Model), levels=rev(model.names))]
|
df[,Model:= factor(gsub('\\.',' ', Model), levels=rev(model.names))]
|
||||||
|
|
||||||
df <- df[Model %in% include.models]
|
df <- df[Model %in% include.models]
|
||||||
rename_models <- list("Automatic Classification"="Automated Classifications", "All Annotations"="Manual Annotations")
|
rename_models <- list("Automatic Classification"="Automated Classifications", "All Annotations"="Manual Annotations", "Annotation Sample"="Annotation Sample","Error Correction"="Error Correction")
|
||||||
df <- df[, Model := factor(rename_models[as.character(df$Model)],levels=rev(unique(rename_models[model.names])))]
|
df <- df[, Model := factor(rename_models[as.character(df$Model)],levels=rev(unique(rename_models[model.names])))]
|
||||||
|
|
||||||
p <- ggplot(df[variable != "Intercept"], aes(y = Estimate, x=Model, ymax=LowerCI, ymin=UpperCI, group=variable))
|
p <- ggplot(df[variable != "Intercept"], aes(y = Estimate, x=Model, ymax=LowerCI, ymin=UpperCI, group=variable))
|
||||||
|
|||||||
@@ -199,7 +199,7 @@ plot.robustness.3.dv <- function(iv, n.annotations=100, n.classifications=1000){
|
|||||||
|
|
||||||
grid.draw(p)
|
grid.draw(p)
|
||||||
}
|
}
|
||||||
plot.robustness.4.iv <- function(iv, n.annotations=100, n.classifications=1000){
|
plot.robustness.4.iv <- function(iv, n.annotations=200, n.classifications=5000){
|
||||||
r <- readRDS('robustness_4.RDS')
|
r <- readRDS('robustness_4.RDS')
|
||||||
robust_df <- data.table(r[['robustness_4']])
|
robust_df <- data.table(r[['robustness_4']])
|
||||||
|
|
||||||
|
|||||||
BIN
robustness_4.RDS
BIN
robustness_4.RDS
Binary file not shown.
Reference in New Issue
Block a user