r - Plotting with ggplot through calling another function -

-

i have function gets matrix 4 columns input. function plots boxplots using 2 columns of input matrix, fills them different color based on third column , plots points on each box based on fourth column show parameters. 

p1 <- ggplot(pl1, aes(x=factor(edge_n), y=get(make.names(y_label)), ymax=max(get(make.names(y_label)))*1.05))+    geom_boxplot(aes(fill=method), outlier.shape= na)+    theme(text = element_text(size=20), aspect.ratio=1)+   xlab("number of edges")+   ylab(y_label)+   scale_fill_manual(values=color_box)+  geom_point(aes(x=factor(edge_n), y=get(make.names(true_des)), ymax=max(get(make.names(true_des)))*1.05, color=method),                position = position_dodge(width=0.75))+   scale_color_manual(values=color_pnt)

finally @ end of function using print() function print on opened pdf.

when run function line line works well, when call function function, not work , below error:

error in make.names(true_des) : object 'true_des' not found

actually 5 hours trying solve problem, can't. can help?

your example not clear because give call don't show values of variables it's hard figure out you're trying (for instance, method name of column in data frame pl1, or variable (and if it's variable, type? string? name?)).

nonetheless, here's example should set on way doing want:

try this:

pl1 <- data.frame(edge_n = sample(5, 20, true), foo = rnorm(20), bar = rnorm(20))  y_label <- 'foo'  ax <- do.call(aes, list(     x=quote(factor(edge_n)),      y=as.name(y_label),      ymax = substitute(max(y)*1.05, list(y=as.name(y_label)))))  p1 <- ggplot(pl1) + geom_boxplot(ax) print(p1)

this should started figuring out rest of you're trying do.

alternately (a different interpretation of question) may running problem environment in aes evaluates arguments. see https://github.com/hadley/ggplot2/issues/743 details. if issue, answer might override default value of environment argument aes, instance: aes(x=factor(edge_n), y=get(make.names(y_label)), ymax=max(get(make.names(y_label)))*1.05, environment=environment())


Comments

Post a Comment

Popular posts from this blog

javascript - gulp-nodemon - nodejs restart after file change - Error: listen EADDRINUSE events.js:85 -

-
i'm running nodejs 0.12.3 - gulp 3.10.8 , gulp-nodemon 2.0.3. gulpfile.js : gulp.task('serve', ['build'], function() { gulp.start('fb-flo'); nodemon({ script: paths.server, env: { 'node_env': 'development' }, // env: { 'node_env': 'production' }, execmap: { 'js': 'node_modules/babel/bin/babel-node --stage 1' //es7 cote server }, delay: '0ms', watch: ['src/shared/', 'src/server/'], ignore: ['src/shared/components'], tasks: function (changedfiles) { var tasks = []; changedfiles.foreach(function (file) { if (path.extname(file) === '.jsx' && !~tasks.indexof('bundlejs')) tasks.push('bundlejs'); if (path.extname(file) === '.less' && !~tasks.indexof('compileless')) tasks.push('compileless'); }); return tasks; } ...
Read more

Fatal Python error: Py_Initialize: unable to load the file system codec. ImportError: No module named 'encodings' -

-
i trying make simple python program opening list of webpages user manually download reports site. don't have previous experience preparing exe files.. , i'm in learning process python coding. of done on windows 7 x64 this python code: #!c:/python34/python.exe -u splinter import * import time import os import csv #---------------------------------- raporty = [] open('../raporty.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') raporty.append(r) #--not implemented yet zmienne = [] open('../zmienne.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') zmienne.append(r) print("start") browser = browser(...
Read more

javascript - oscilloscope of speaker input stops rendering after a few seconds -

-
the following script reads audio user's microphone , renders oscilloscope on html canvas. the source taken example of mozilla developer network: visualizations web audio api and here fiddle: http://jsfiddle.net/b7j8pktp/ mozgetusermedia (note: code has no fork mechanism different browsers: works firefox) it works fine few seconds , stops rendering. whereas works totally stable: http://mdn.github.io/voice-change-o-matic/ the problem can reduced following code. microphone activation icon (next the address bar in firefox) disappears after 5 seconds: navigator.mozgetusermedia({audio: true}, function() {}, function() {} ); ( http://jsfiddle.net/b7j8pktp/2/ ) this known bug in firefox. take stream getusermedia call , hook window so: navigator.mozgetusermedia({audio: true}, function(stream) { window.stream = stream; // rest of code }, function err() { // handle error }); hopefully can fixed soon. problem we're f...
Read more