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

-

I've included a lot of sample code because I'm new to shiny (and still very early with R) So I 'm not sure where the problem is.

The first two code blocks are UI R and servers. R, with the picture of the output. The problem I am facing is that "filling" argument is not being respected in the ggplot command, and I get a mono-color output in the chart, when the histogram has two different colors on it, DF In the "id" value

The last block of code and image is essentially running the same code in R-studio, with the desired effect. You can see in the included output screenshot that there are two hybrid histogram colors with the value of the "Eyed" column

Thanks for any help!

Example Application:

Server. R 

  Library (Bright) Library (ggplot2) id & lt; - Sample (0: 1, 100, replacement = T) Val & lt; - Sample (Seek (1:25), 100, Replacement = T) Val 2 and LT; - Sample (Seek (1:10), 100, Replacement = t) Data & Lt; - Define a server for shinyServer (function (input, output) - # data.frame (id, val, val2) {# We have a plot output $ feature plot & lt; -renderPlot ({# # Histogram Render # Note the readers, the result is the same, even if the command # is written or written: fill = as.factor (id) p & lt; - ggplot (data, aes_string (x = input $ feature, fill) = as Factor (data $ id))) + geom_histogram (alpha = 0.5, aes (y = .. density ..), position = 'detection', binwidth = input $ binSize); print (p)})})

ui.R 

  libraries Rei (shiny) library (ggplot2) id & lt; - Sample (0: 1, 100, Change = T); Val & Lt; - Sample (Seek (1:25), 100, Replacement = t); Val2 & lt; - Sample (seq (1:10), 100, replaced = t); Data & lt; - data.frame (id, val, val2); #Uplus UI shinyUI (fluidPage ("Why, Why not?"), Sidebar Landout (SidebarPaneel (Selection Input ("Feature", "Feature:", Option = Colnames (Data), Selected = 'Wall'), HR Slider Input ("bin size", "size box", min = 1, max = 10, value = 2)), main paneel (plot output ("featureplate")), help text ("Choose a feature to compare" ))))

App Output : to Output App

I'm the one I want 

  # ud For stealing data library (Jijiplot 2) ID & lt; - Sample (0: 1,100, replaced = T) well and lt; - Sample (SEC (1:25), 100, replacement = T) Val 2 and LT; -Sand (Seek (1:10), 100, Replace = t) DF & LT; - Data.frame (id, val, val2) ggplot (df, aes (x = val, fill = esque)) + gom_histogram (alpha = 0.7, aes (y = .. density ..), position = 'Identity', bin-wide = 1)

You can run the code and see the desired output, but here's just a picture

This is what it should look!

You're setting your fill in a aes_string , but you're a Tring not spend, you had been trying to have a vector AES () and aes_string (). Try to isolate them 

  p

Comments

Post a Comment

Popular posts from this blog

java - ImportError: No module named py4j.java_gateway -

-
I'm trying to call the Python using the Java program py4j . I've been installing the plug-in Eclipse and test name Piidvi project. I'm trying to execute the following part of the code found on py4j webpage: Import from py4j.java_gateway to JavaGateway, java_import gateway = JavaGateway () jvm = gateway.jvm java_import (jvm, '' Org.eclipse Kkorkrisorsej. * ") Vrkspes_rut = Jvankresourkesplginkgetvrkspas (). GetRoot (Gateway .help (workspace_root, '* Projects *') project_names = [project.getName () (for projects workpace_root.getProjects))] print (Projekt_nam) But I There is an error in import. I have checked that the P4JJ is present in the Jar Eclipse plugin directory. Can anyone help please? I had to install the py4j application
Read more

python - Receiving "KeyError" after decoding json result from url -

-
I am new to Python I am trying to parse JSON result from a URL. Basically, I was using the following: response = urllib.request.urlopen (url) json_obj = json.load (response) It should be a stroke "str 'not' bytes' in the lines of a given" JSON object, so after searching on the StackoverView Flo, I decode the response in this way: F = urllib.request.urlopen (Url) charset = f.info (). Get_param ('charset', 'utf8') data = f.read () decoded = json.loads (data.decode (charset)) If I print "decode" I is as follows: { 'link': { 'summary data': 'https: // localhost / piwebapi / streams / p0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / summary' 'value': 'https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / price ',' InterpolatedData ':' https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTE...
Read more

.net - Creating a new Queue Manager and Queue in Websphere MQ (using C#) -

-
"itemprop =" text "> I am writing applications that use WebSphere MQ to send messages. My unittests (for flow), I want to verify that I have put the correct message on the response queue. I am trying to figure out how to do this. My main obstacle is that I think it might be scary to clear the queue before running in my queue because the same queue can be used by other applications, I thought a decent solution would be a new line The manager will remove the queue for my solidarity and after using it. So my question is: Is it possible to use C # by using queue manager and queue? After the For future reference and future people, who want to make queues. I thought how to make and remove IBM MQ QE (not quenhers) with PCM messaging. It is not very simple, but it can be done. We have implemented it in a library and it is being used to create and delete commands before and after integration tests. The most important part of the code in this library is shown in the...
Read more