Facet Wrap in r barplot and line


Facet Wrap in r barplot and line



I'm dealing with R and ggplot and I have this dataframe:


R


ggplot


> Results
V NetStateCosts DeltaCosts CostPerTon
1 BAU 6.071476 -2.060885e-04 0.0000
2 ENT 56.549041 -5.165512e+01 512.2071
3 FIN -126.879230 6.180334e+01 -277.3276
4 TWC -24.398330 1.591942e+01 -240.2432
5 FITAX -118.786530 2.514306e+01 -210.3841
6 FITWC -214.627979 1.210538e+02 -383.4240
7 TWCTAX 26.490005 -3.510108e+01 240.9295`



I'm trying to plot a barplot for the variables NetStateCosts and DeltaCosts (column V represents different scenarios) but then I want to add a second graph, using facet wrap, that plot over the other one a line built using CostPerTons y value (but x is the same (V column)).


barplot


NetStateCosts


DeltaCosts


CostPerTons



Final plot should be something like this



enter image description here



However I'm struggling using facet_wrap to do that. Any ideas?


facet_wrap



Here is what I was able to do but I don't know how to add the other plot:


Results.tidy <- Results %>%
gather(D, d_val, NetStateCosts:DeltaCosts) %>%
gather(CS, c_val, CostPerTon)

barRes <- ggplot(Results.tidy, aes(x=V))
barRes +
geom_bar(aes(y=d_val,fill=D),stat="identity",position="dodge")





facet_wrap() is for facetting the same plot, not combining multiple types of plots. Check out ggplotGrob() and grid.arrange() in the gridExtra package for combining your graphs. gridExtra CRAN page
– Jan Boyer
12 hours ago


facet_wrap()


ggplotGrob()


grid.arrange()


gridExtra









By clicking "Post Your Answer", you acknowledge that you have read our updated terms of service, privacy policy and cookie policy, and that your continued use of the website is subject to these policies.

Comments

Post a Comment

Popular posts from this blog

paramiko-expect timeout is happening after executing the command

paramiko-expect timeout is happening after executing the command Can someone help me why timeout is happening after executing the command .I am trying to SSH to a machine and execute a command.I want to store the result of the executed command . I have referred paramiko-timeout but i didn't get my expected result. import traceback try: import paramiko except ImportError: raise Exception("Please install paramiko , pip install paramiko") import pexpect from paramiko_expect import SSHClientInteraction def main(): HOSTNAME = "minion5.net" USERNAME = "root" PASSWORD = "help@432" PROMPT = "root@*:~$s+" try: client = paramiko.SSHClient() client.load_system_host_keys() client.set_missing_host_key_policy(paramiko.AutoAddPolicy()) client.connect(hostname=HOSTNAME, username=USERNAME, password=PASSWORD) with SSHClientInteraction(client, timeout=20, display=True) as interact: ...
Read more

Export result set on Dbeaver to CSV

Export result set on Dbeaver to CSV Normally I use Dbeaver for windows and always export my result set like this: run my query --> select the result --> export the result set --> select export to clipboard --> done This step by step puts my result set in my clipboard and I can paste it wherever I want to work with it. The problem is that now I am using dbeaver for mac and this guide is not working. I can go on until the moment that I select my result set like in the image below: exporting data set But once I go further in the process, in the last step I get: no query Note that in "source" it was suppose to show the query that originated the result set, but instead it says just "select. As a result it does't select my result or anything (besides being "successful"). Normally my query would show up there automatically and I couldn't find any option that corrects this problem in the menus. Please help me! Thanks. Aft...
Read more

Opening a url is failing in Swift

Opening a url is failing in Swift breakpointing inside the callback and logging success shows false. I added itms-apps to my plist: LSApplicationQueriesSchemes and put this in my app delegate: func application(_ app: UIApplication, open url: URL, options: [UIApplicationOpenURLOptionsKey : Any] = [:]) -> Bool { return true } func moreTapped() { let url = NSURL(string: "itms-apps://itunes.com/developer/quantum-productions/id979315877") if #available(iOS 10.0, *) { UIApplication.shared.open(url! as URL, options: [:], completionHandler: {(success: Bool) in }) } else { UIApplication.shared.openURL(url! as URL) } } Are you testing on a real device? – rmaddy Jun 21 at 23:57 I try on a device, get "Cannot Connect to App Store". Device is online ...
Read more