r - Shiny plot in ggplot not respecting "fill" argument in plot command -



r - Shiny plot in ggplot not respecting "fill" argument in plot command -

i've included lot of sample code because i'm new shiny (and still beginner r) i'm not sure problem lies.

the first 2 code blocks ui.r , server.r of app, along image of output. problem i'm having "fill" argument in ggplot command isn't beingness respected, , i'm getting mono-color output in chart, when should have 2 different colors in histogram dependent upon "id" value in df.

the lastly block of code , image show same code beingness run in r-studio, desired effect achieved. can see in included output screenshot there 2 overlain histograms colored value of "id" column.

thanks help!

example app:

server.r

library(shiny) library(ggplot2) id <- sample(0:1, 100, replace=t) val <- sample(seq(1:25), 100, replace=t) val2 <- sample(seq(1:10), 100, replace=t) info <- data.frame(id, val, val2) # define server shiny app shinyserver(function(input, output) { # fill in spot created plot output$featureplot <- renderplot({ # render histogram # note readers, outcome same whether fill command # written, or written as: fill=as.factor(id) p <- ggplot(data, aes_string(x=input$feature, fill=as.factor(data$id))) + geom_histogram(alpha=0.5, aes(y=..density..), position='identity', binwidth = input$binsize); print(p) }) })

ui.r

library(shiny) library(ggplot2) id <- sample(0:1, 100, replace=t); val <- sample(seq(1:25), 100, replace=t); val2 <- sample(seq(1:10), 100, replace=t); info <- data.frame(id, val, val2); # define overall ui shinyui( fluidpage( titlepanel("why u no color?"), sidebarlayout( sidebarpanel( selectinput("feature", "feature:", choices=colnames(data), selected='val'), hr(), helptext("select feature compare"), sliderinput("binsize", "size of bins", min = 1, max = 10, value = 2) ), mainpanel( plotoutput("featureplot") ) ) ) )

app output:

here want # illustration info help library(ggplot2) id <- sample(0:1,100,replace=t) val <- sample(seq(1:25),100,replace=t) val2 <-sample(seq(1:10), 100, replace=t) df <- data.frame(id, val, val2) ggplot(df, aes(x=val, fill=as.factor(id))) + geom_histogram(alpha=0.7, aes(y=..density..), position = 'identity', binwidth=1) you can run code , see desired output, here's image in case

you setting fill in aes_string you're not passing string, trying pass vector. mixing aes() , aes_string(). seek separating them

p <- ggplot(data, aes_string(x=input$feature)) + geom_histogram(alpha=0.5, aes(fill=as.factor(id), y=..density..), position='identity', binwidth = input$binsize);

r ggplot2 shiny

Comments

Post a Comment

Popular posts from this blog

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* -

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* - i've inherited doc publishing process takes docbook , builds html , pdf output, using apache fop both. project had been started, never completed. lots of tweaking, i've able of doc sets build (20+), except handful, , fail severe code 1 of these 2 conditions: "fo:flow" missing kid elements. required content model: marker* "fo:block" not valid kid of "fo:root" the xml output comes out of docbook , docbook-fop checks out well-formed. the fop error in 1 book, "endecagloss", example, points end of string: <fo:flow flow-name="xsl-region-body" start-indent="4pc" end-indent="0pt"/> here’s log output in case: [java] severe: javax.xml.transform.transformerexception: file:/scratch/publishing/hudson/jobs/build-main-endeca-documentation/workspace/serverdoc/w...
Read more

mediawiki - How do I insert tables inside infoboxes on Wikia pages? -

mediawiki - How do I insert tables inside infoboxes on Wikia pages? - i want insert tables in infoboxes. example, have proteinbox i've developed using infobox template (http://health-and-medicine.wikia.com/wiki/template:proteinbox), , fasta field big fit comfortably in proteinbox. hence collapsible table within box. this tried: {{infobox | row 1 = {| class = "mw-collapsible mw-collapsed wikitable" |- | <!-- table content --> |} }} your problem is, putting nested table within template. pipe characters ( | ) in table syntax collides pipe usage in templates. the commonly used hack around create template called template:! , containing pipe character, , utilize when need set tables, parser functions or other stuff using pipe characters, within templates. table (with every | replaced {{!}} ): {{{!}} {{!}}- {{!}} a1 {{!}} b1 {{!}}- {{!}} a2 {{!}} b2 {{!}}} ...the equivalent of {| |- | a1 | b1 |- | a2 | b2 |} furthermore, hav...
Read more

Local Service User Logged into Windows -

Local Service User Logged into Windows - i created windows service tracks app server user connected through load balancer. it retrieves user logged windows on machine, cross references active directory (ad) business relationship homecoming first name, lastly name , e-mail (for notification through website created project) there 1 scheme on network users remote system, vista system, reason returning values "local service" logged machine, it's weird , security guys impossible "local service" business relationship logged windows. here how user logged windows managementscope ms = new managementscope("\\\\.\\root\\cimv2"); objectquery query = new objectquery("select * win32_computersystem"); managementobjectsearcher searcher = new managementobjectsearcher(ms, query); foreach (managementobject mo in searcher.get()) { _username = mo["username"].tostring(); } // remove domain part username string[] usernameparts = _...
Read more