library(finalfit)
library(dplyr)
library(ggplot2)
# OR plot
explanatory = c("age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
dependent = "mort_5yr"
colon_s %>%
or_plot(dependent, explanatory)
colon_s %>%
or_plot(dependent, explanatory, table_text_size=4, title_text_size=14,
plot_opts=list(xlab("OR, 95% CI"), theme(axis.title = element_text(size=12))))
Run the code above in your browser using DataLab