visualize/sma_jitt_dx_year: Adjust output

Adjust labels and remove legend.
2021-01-17 11:35:12 +01:00 · 2021-01-17 11:35:12 +01:00 · beedddda01
commit beedddda01
parent 3e263bb400
1 changed files with 4 additions and 1 deletions
--- 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() {