groceryheist/ml_measurement_error_overleaf
1
0
Fork 0
Code Activity

fix to bring back A1 plot

Browse Source
This commit is contained in:
Nathan TeBlunthuis
2023-03-06 10:42:05 -08:00
parent 764788bb2a
commit aaff514ee5
4 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resources/real_data_example.R
View File

@@ -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 <- 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])))]
p <- ggplot(df[variable != "Intercept"], aes(y = Estimate, x=Model, ymax=LowerCI, ymin=UpperCI, group=variable))