andreas/daDoctoR
1
0
Fork 0
mirror of https://github.com/agdamsbo/daDoctoR.git synced 2024-11-22 11:50:23 +01:00
Code Issues Projects Releases Wiki Activity

update

Browse Source
This commit is contained in:
agdamsbo 2018-10-10 09:33:41 +02:00
parent d55342f624
commit 4207e8349d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
R/plot_ord_odds.R
View File

@ -5,12 +5,13 @@
#' @param title plot title #' @param title plot title
#' @param dec decimals for labels #' @param dec decimals for labels
#' @param lbls labels for variable names. Carefull, as the right order is not checked automatically! #' @param lbls labels for variable names. Carefull, as the right order is not checked automatically!
#' @param short flag to half number of ticks on horizontal axis.
#' @keywords forestplot #' @keywords forestplot
#' @export #' @export
#' @examples #' @examples
#' plot_ord_odds() #' plot_ord_odds()
plot_ord_odds<-function(x, title = NULL,dec=3,lbls=NULL){ plot_ord_odds<-function(x, title = NULL,dec=3,lbls=NULL,short=FALSE){
require(ggplot2) require(ggplot2)
@ -26,6 +27,12 @@ plot_ord_odds<-function(x, title = NULL,dec=3,lbls=NULL){
} }
ticks<-c(seq(.1, 1, by =.1), seq(0, 10, by =1), seq(10, 100, by =10)) ticks<-c(seq(.1, 1, by =.1), seq(0, 10, by =1), seq(10, 100, by =10))
if (short==TRUE){
ticks<-ticks[seq(1, length(ticks), 2)]
}
else {ticks<-ticks}
odds$ord<-c(nrow(odds):1) odds$ord<-c(nrow(odds):1)
ggplot(odds, aes(y= or, x = reorder(vars,ord))) + ggplot(odds, aes(y= or, x = reorder(vars,ord))) +