In Enlightengeo/GeoscienceBC_2019-008: Enlighten Geoscience BC 2019-008 Induced Seismicity Statistical Study Code

Plot performance of models

library(tidyverse)

Classification performance

class_perfclass_perf = read_csv('class_performance.csv')

ggplot(class_perf) +
  geom_point(aes(x=model, y=train_bias, color='Train Bias', shape='Train Bias', size=2)) +
  geom_point(aes(x=model, y=test_bias, color='Test Bias', shape='Test Bias', size=2)) +
  geom_point(aes(x=model, y=train_var, color='Train Variance', shape='Train Variance', size=2)) +
  geom_point(aes(x=model, y=test_var, color='Test Variance', shape='Test Variance', size=2)) +
  ylab('Classification Bias/Variance') +
  xlab('') +
  scale_color_discrete(name = "") +
  guides(shape = FALSE, size=FALSE) +
  theme_minimal() +
  ggsave('class_performance.jpg', width=8, height=3)

Regression Performance

regr_perf = read_csv('regr_performance.csv')

ggplot(regr_perf) +
  geom_point(aes(x=model, y=train_bias, color='Train Bias', shape='Train Bias', size=2)) +
  geom_point(aes(x=model, y=test_bias, color='Test Bias', shape='Test Bias', size=2)) +
  geom_point(aes(x=model, y=train_var, color='Train Variance', shape='Train Variance', size=2)) +
  geom_point(aes(x=model, y=test_var, color='Test Variance', shape='Test Variance', size=2)) +
  ylab('Regression Bias/Variance') +
  xlab('') +
  scale_color_discrete(name = "") +
  guides(shape = FALSE, size=FALSE) +
  theme_minimal() +
  ggsave('regr_performance.jpg', width=8, height=3)

Enlightengeo/GeoscienceBC_2019-008 documentation built on Feb. 4, 2021, 12:43 p.m.