```— title: “My Report” output: html_document —
```diff –git a/R/plot.likert.bar.r b/R/plot.likert.bar.r index b9dbc3e..94ea8b6 100755 — a/R/plot.likert.bar.r +++ b/R/plot.likert.bar.r @@ -43,7 +43,7 @@ likert.bar.plot <- function(l, } ymin <- 0 ymax <- 100 - ybuffer <- 5 + ybuffer <- 0 # CHANGED
lowrange <- 1 : floor(center - 0.5)
highrange <- ceiling(center + 0.5) : l$nlevels@@ -95,7 +95,7 @@ likert.bar.plot <- function(l, ymin <- 0
if(centered) { ymin <- -100 ymin <- -50 # CHANGED
rows <- which(results$variable %in% names(l$results)[3:(length(lowrange)+2)])
results[rows,'value'] <- -1 * results[rows,'value']
if(center %% 1 == 0) { #Midpoint is a level@@ -141,25 +141,30 @@ likert.bar.plot <- function(l, }
if(plot.percent.low) { p <- p + geom_text(data=lsum, y=ymin, aes(x=Group, p <- p + geom_text(data=lsum, y=ymin-5, aes(x=Group, # CHANGED
label=paste0(prettyNum(low, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), group=Item), group=Item, family="Times New Roman"), # CHANGED
size=text.size, hjust=1, color=text.color)
}
if(plot.percent.high) { p <- p + geom_text(data=lsum, aes(x=Group, y=100, p <- p + geom_text(data=lsum, y=100+5, aes(x=Group, # CHANGED
label=paste0(prettyNum(high, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), group=Item), size=text.size, hjust=-.2, color=text.color) group=Item, family="Times New Roman"), # CHANGED hjust=-.12, size=text.size, color=text.color)
}
if(plot.percent.neutral & l$nlevels %% 2 == 1 & include.center) {
if(centered) {
p <- p + geom_text(data=lsum, y=0, aes(x=Group, group=Item, label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=.5, color=text.color)
} else {
lsum$y <- lsum$low + (lsum$neutral/2)
p <- p + geom_text(data=lsum, aes(x=Group, y=y, group=Item, label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=.5, color=text.color)
}
}@@ -170,7 +175,9 @@ likert.bar.plot <- function(l, p <- p + geom_text(data = lpercentpos, aes(x = Group, y = pos, label = paste0(prettyNum(value, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), ‘%’),
group = Item), size = text.size) group = Item, family="Times New Roman"), # CHANGED size = text.size)
lpercentneg <- results[results$value < 0, ]
if(nrow(lpercentneg) > 0) {
lpercentneg <- lpercentneg[nrow(lpercentneg):1, ]@@ -183,7 +190,8 @@ likert.bar.plot <- function(l, lpercentneg\(pos <- lpercentneg\)pos * -1 p <- p + geom_text(data = lpercentneg, aes(x = Group, y = pos,
label = paste0(prettyNum(abs(value), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label = paste0(prettyNum(abs(value), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size = text.size)
}
}@@ -194,7 +202,7 @@ likert.bar.plot <- function(l, if(is.null(panel.arrange)) { p <- p + facet_wrap(~ Item) } else if(panel.arrange == ‘v’) {
p <- p + facet_wrap(~ Item, ncol=1) p <- p + facet_wrap(~ Item, ncol=1, strip.position="left") # CHANGED
#p <- p + facet_grid(Item ~ .)
} else if(panel.arrange == 'h') {
p <- p + facet_wrap(~ Item, nrow=1)@@ -275,12 +283,14 @@ likert.bar.plot <- function(l, } if(plot.percent.low) { p <- p + geom_text(data=lsum, y=ymin, aes(x=Item,
label=paste0(prettyNum(low, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(low, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=1, color=text.color)
}
if(plot.percent.high) {
p <- p + geom_text(data=lsum, y=100, aes(x=Item, label=paste0(prettyNum(high, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(high, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=-.2, color=text.color)
}
if(plot.percent.neutral & l$nlevels %% 2 == 1 & include.center & !plot.percents) {@@ -288,14 +298,16 @@ likert.bar.plot <- function(l, p <- p + geom_text(data=lsum, y=0, aes(x=Item,
label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=.5, color=text.color)
} else {
lsum$y <- lsum$low + (lsum$neutral/2)
p <- p +
geom_text(data=lsum,
aes(x=Item, y=y, label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(neutral, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, hjust=.5, color=text.color)
}
}@@ -308,7 +320,8 @@ likert.bar.plot <- function(l, pos = cumsum(value) - 0.5*value) p <- p + geom_text(data=lpercentpos[lpercentpos$variable != center.label,], aes(x=Item, y=pos,
label=paste0(prettyNum(value, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(value, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, color=text.color)
lpercentneg <- results[results$value < 0,]
if(nrow(lpercentneg) > 0) {@@ -319,20 +332,23 @@ likert.bar.plot <- function(l, lpercentneg\(pos <- lpercentneg\)pos * -1 p <- p + geom_text(data=lpercentneg[lpercentneg$variable != center.label,], aes(x=Item, y=pos,
label=paste0(prettyNum(abs(value), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(abs(value), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, color=text.color)
}
lpercentneutral <- results[results$variable == center.label,]
if(nrow(lpercentneutral) > 0 & centered) {
p <- p + geom_text(data=lpercentneutral,
aes(x=Item, y=0, label=paste0(prettyNum(abs(value * 2), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(abs(value * 2), digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, color=text.color)
}
if(nrow(lpercentneutral) > 0 & !centered) {
p <- p + geom_text(data=lpercentpos[lpercentpos$variable == center.label,],
aes(x=Item, y=pos, label=paste0(prettyNum(value, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%')), label=paste0(prettyNum(value, digits=digits, drop0trailing=drop0trailing, zero.print=zero.print), '%'), family="Times New Roman"), # CHANGED
size=text.size, color=text.color)
}
}@@ -352,7 +368,8 @@ likert.bar.plot <- function(l, } } ##### End: No grouping p <- p + scale_y_continuous(labels=abs_formatter,
limits=c(ymin - ybuffer, ymax + ybuffer)) limits=c(ymin - ybuffer, ymax + ybuffer), breaks=seq(ymin,ymax,by=25), minor_breaks = NULL, expand=expansion(mult=0.02)) # CHANGEDp <- p + theme(legend.position=legend.position)
attr(p, ‘item.order’) <- levels(results$Item) @@ -369,6 +386,6 @@ likert.bar.plot <- function(l, #’ @param … other parameters passed to ggplot2. #’ @export #’ @method print likert.bar.plot -print.likert.bar.plot <- function(x, …) {
suppressWarnings(NextMethod(x, …)) -} +#print.likert.bar.plot <- function(x, …) { +# suppressWarnings(NextMethod(x, …)) +#}
Would you like me to also add a section template for inserting figures (like your violin plots or bar charts) so you can drop them directly into the report without errors?
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.