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