r - Generating a legend in ggplot2 -

-

i tried generate legend ggplot, want illustrate 5 different lines on time horizon of 2,5 months 11 datapoints. can generate graph, doesn't work legend comparing colors , names of lines. tried different commands, i.e. scale_colour_manual, scale_fill_discrete, opts, guides,... nothing works. don't know what's wrong.. can please me?

here commands define data frame.

spaß <- read.csv(file="spaßfaktor.csv", header = true, sep = ";", dec=",")  svs <- ts(spaß$sehr.viel.spaß, deltat=1/52) vs <- ts(viel.spaß, deltat=1/52) n <- ts(normal, deltat=1/52) ws <- ts(wenig.spaß, deltat=1/52) sws <- ts(sehr.wenig.spaß, deltat=1/52)  zp <- strptime(spaß$zeitpunkt, format="%d.%m.%y") zp  df<-data.frame(zp, svs, vs, n, ws, sws)

to generate graph, used example following command (which includes comman scale_colour_manual). including command, r doesn't create graph. if delete out of ggplot command, graph shwos up:

       sp<-ggplot(df, aes(zeit) ) +       geom_line(aes(y=svs), colour="green", lwd=1.3) +  # first layer       geom_line(aes(y=vs), colour="blue", lwd=1.3) +       geom_line(aes(y=n), colour="black", lwd=1.3) +         geom_line(aes(y=ws), colour="orange", lwd=1.3) +       geom_line(aes(y=sws), colour="red", lwd=1.3) +        scale_colour_manual("",                  breaks = c("sehr viel spaß", "viel spaß", "normal", "wenig spaß", "sehr wenig spaß"),                           values = c("green", "blue", "black", "orange", "red"))+       xlab("zeit") +       scale_y_continuous("anzahl in prozent", limits = c(0,65)) +        labs(title="häufigkeit der auspräungen des faktors spaß")  sp

i tried command scale_fill_discrete or guide @ end adding sp. means i.e.: sp + guides(fill = guide_legend(reverse=true)) or sp + scale_fill_discrete(name="legende", labels=c("sehr viel spaß", "viel spaß", "normal", "wenig spaß", "sehr wenig spaß"))

can please me??

the datas generated on own survey. shown underneath:

varaible       spaß    beurteilung sehr viel spaß/sehr gut 4   5 viel spaß/gut     8     6 normal/neutral    10    9 wenig spaß/schlecht    3    4 sehr wenig spaß/sehr schlecht      3    4

to expand on heroka's comment you'll want use tidyr or reshape2 convert data wide format long format. vignettes each package cover in-depth. you'd set color in aes call in geom_line , use scale_color_manual set breaks, colors , labels appropriately.

library(tidyr) library(ggplot2)  # using input dataset provided in separate answer df <- gather(df, variable, value, -zeitpunkt)  ggplot(df, aes(x = zp) ) +   geom_line(aes(y = value, colour = variable, group = variable), lwd = 1.3) +    scale_colour_manual(labels = c("sehr viel spaß", "viel spaß", "normal", "wenig spaß", "sehr wenig spaß"),                       breaks = c("svs","vs","n","ws","w"),                       values = c("green", "blue", "black", "orange", "red")) +   xlab("zeit") +   scale_y_continuous("anzahl in prozent", limits = c(0,65)) +    labs(title="häufigkeit der auspräungen des faktors spaß")

enter image description here


Comments

Post a Comment

Popular posts from this blog

php - How to display all orders for a single product showing the most recent first? Woocommerce -

-
i have password protected page on frontend. on page, want display full list of purchases associated single woocommerce product id. option 1: i've looked through woocommerce docs , , found: wc_cli_order , list_( $args, $assoc_args ) function lists orders. presumably, orders can filtered product id [--=] filter orders based on order property. line item fields (numeric array, started index zero): line_items.0.product_id option 2: i found article , based on customer id. i've modified code based on guesses meta_key , meta_value. $customer_orders = get_posts( array( 'numberposts' => -1, 'meta_key' => '_product', 'meta_value' => get_product_id(), 'post_type' => wc_get_order_types(), 'post_status' => array_keys( wc_get_order_statuses() ), ) ); how display orders single product showing recent order first? here solution put based on these articles: http://www.w...
Read more

asp.net - How to correctly use QUERY_STRING in ISAPI rewrite? -

-
i'm having difficult time , hope guys can help. using helicon isapi rewrite version 3.1.0.104 on our iis server. edit http.conf file , have tried , still fail. this trying do: redirect url: https://www.domain.com/switch-by-version?version=2.8.5.2594 to: https://test.domain.com/load/load.aspx?tver=2.8.5.2594 the version number @ end source url change, , need target url have same version number @ end of url example above shows. i tried following not work: rewritecond %{query_string} ^version=(\d\d?)\.(\d\d?)\.(\d\d?)\.(.*)$ [nc] rewriterule ^/switch-by-version(.*)$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l] any appreciated! thanks. if it's running in equivalent context of .htaccess , rule shouldn't start / . here's simpler version: rewritecond %{query_string} ^version=(\d+\.\d+\.\d+(?:\..+)?)$ [nc] rewriterule ^switch-by-version/?$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l]
Read more

angularjs - How restrict admin panel using in backend laravel and admin panel on angular? -

-
https://scotch.io/tutorials/token-based-authentication-for-angularjs-and-laravel-apps following tutorials, try write authentication restrict admin panel, didn't understood how can that. this admin panel, admin panel don't want show , request database unauthenticated users. my laravel-routes route::get('/admin',function(){ return view('index'); }); route::get('/api/v1/employees/{id?}', 'employees@index'); route::get('/api/v1/users/{id?}', 'employees@users'); route::post('/api/v1/employees', 'employees@store'); route::post('/api/v1/employees/{id}', 'employees@update'); route::delete('/api/v1/employees/{id}', 'employees@destroy'); route::group(['prefix' => 'api'], function() { route::resource('authenticate', 'authenticatecontroller', ['only' => ['index']]); route::post('authenticate', 'authentic...
Read more