diff --git a/visualize.R b/visualize.R index 2b78a73..ca7ab38 100644 --- a/visualize.R +++ b/visualize.R @@ -68,7 +68,10 @@ sma_freq_dx_year <- function() { sma_jitt_dx_year <- function() { data <- i_dx_year_data() ggplot(data, aes(x = asct_year, y = dx, colour = dx, fill = dx)) + - geom_jitter(width = 0.4, height = 0.2) + geom_jitter(width = 0.4, height = 0.2) + + labs(x = "Year", y = "Diagnosis") + + theme(legend.position = "none") + + xlim(1990, 2020) } sma_plot_file_hist <- function() {