r - Custom line in barplot (multiple barplots) -


my data frame:

    n   p   e   s w1 3.5 3.5 3.4 3.5 w2 3.4 3.7 3.6 3.5 w3 3.5 3.4 3.5 3.5 w4 3.5 3.4 3.5 3.5 w5 3.5 3.4 3.5 3.5 w6 3.5 3.4 3.5 3.5 w7 3.5 3.4 3.5 3.5 w8 3.5 3.4 3.5 3.5

and code barplot

mat <- as.matrix(t(tabela.matrix))  qw <- barplot(mat, beside = true, axisnames = false, ylim = c(0, 6),               col = c("yellow", "deepskyblue1", "yellowgreen", "orchid4"))  text(colmeans(qw[2:3, ]), -0.25, labels = colnames(mat), xpd = true, srt = 15) text(qw, 0, round(as.matrix(t(tabela.matrix)), 1), cex = 1, pos = 3, srt = 90)  legend(3.2, -0.6, c("n","p","e", "s"),        fill = c("yellow", "deepskyblue1", "yellowgreen", "orchid4"),        horiz = true, xpd = true)

produces barplot enter image description here

so on barplot need add line indicates subtraction: max-min values per row. using below code subtraction.

max.tmp <- apply(df, 1, max) min.tmp <- apply(df, 1, min) substr.tmp <- max.tmp - min.tmp

now add red line indicating values in substr.tmp. code lines() doesn't work.

my output (red line) should "look" (it picture form excel , interested in adding line, not data in picture itself)

enter image description here

a dput of data:

structure(c(3.46666666666667, 3.35, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.45555555555556, 3.7, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.40769230769231, 3.57692307692308, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.51122994652406, 3.5156862745098, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909 ), .dim = c(8l, 4l), .dimnames = list(c("a", "b", "c", "d", "e", "f", "g", "h"), null))

with data.table , ggplot2 packages follows:

library(data.table) df2 <- melt(setdt(df), id="name") df2[, difference := max(value) - min(value), = name]  library(ggplot2) ggplot(df2, aes(x=name, y=value, fill=variable)) +   geom_bar(stat="identity", position="dodge") +   geom_line(aes(x=name, y=difference, group=1), size=1.5, color="red") +   scale_x_discrete(expand = c(0,0)) +   scale_y_continuous(expand = c(0,0), limits = c(0,4)) +   scale_fill_manual(breaks = c("v1", "v2", "v3", "v4"),                     values = c("yellow", "deepskyblue1", "yellowgreen", "orchid4")) +   theme_bw()

this gives:

enter image description here

used data:

m <- structure(c(3.46666666666667, 3.35, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.45555555555556, 3.7, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.36666666666667, 3.40769230769231, 3.57692307692308, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.53846153846154, 3.51122994652406, 3.5156862745098, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909, 3.49090909090909 ), .dim = c(8l, 4l), .dimnames = list(c("a", "b", "c", "d", "e", "f", "g", "h"), null)) df <- as.data.frame(m) df$name <- rownames(df)

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more