Hi John, On Thu, Apr 4, 2013 at 8:25 AM, John Kane <jrkrid...@inbox.com> wrote: > No wiki was right: That is, the NDP party code #F4A460 is correct.
Ah, OK, I thought it was wrong because the NDP party color did not match the color listed at http://www.ndp.ca/logos. > > I have not looked at the ggplot code that closely yet but is there a chance > that scale_color_manual(values = fed.party.colors) is cycling through the > vector? I don't think so. But I did find that running my example in a new R session did not produce the expected results. The reason I think is that I always set options(stringsAsFactors=FALSE). Try this example and see if it works as expected: library(ggplot2) library(XML) party.info <- readHTMLTable("http://en.wikipedia.org/wiki/Wikipedia:WikiProject_Political_parties_and_politicians_in_Canada/list_of_parties";) fed.party.info <- party.info[[3]] fed.party.colors <- as.character(fed.party.info[, 2]) names(fed.party.colors) <- gsub("^.*\\|", "", fed.party.info[, 4]) tmp <- data.frame(x=1:15, y=1:15, z=rep(c("Canada Party", "NDP", "Socialist"), each=5)) ggplot(tmp, aes(x=x, y=y)) + geom_point(aes(color=z)) + scale_color_manual(values = fed.party.colors) The difference between this and the original version is that I ensure that fed.party.colors is a character as opposed to a factor. > > At the moment my second shot at the graph has dropped the orignal colours and > looks like it's graphing Conservative, 'some funny yellow party", > Conservative. or Blue, Yellow, Blue for the uninitiated. > > I've noticed that occasionally RStudio does strange things on my machine and > I need to start a new session or switch to gedit to check things. > > I have to run now but I'll try this again later and see what happenss. > In any case you've given me the colours which is what I had hoped for. > > Thanks again. > > John Kane > Kingston ON Canada > > >> -----Original Message----- >> From: istaz...@gmail.com >> Sent: Thu, 4 Apr 2013 08:10:07 -0400 >> To: jrkrid...@inbox.com >> Subject: Re: [R] Canadian politcal party colours in ggplot2 >> >> Hey John, >> >> Yeah, I guess my blind trust in wikipedia got me in trouble this time. >> The wikipedia colors are not the official colors, or maybe they just >> contain errors. If you can find another website with a more >> authoritative list you could adapt the technique. Or maybe wikipedia >> is close enough. >> >> Best, >> Ista >> >> On Thu, Apr 4, 2013 at 8:04 AM, John Kane <jrkrid...@inbox.com> wrote: >>> Excellent. I never thought of something like that. Clearly I need to >>> look into the XML package more closely. >>> >>> The peculiar NDP orange comes through just great though for other >>> readers, your example seems to assign the Canadian Alliance colours to >>> the NDP. Quelle horreur! >>> >>> John Kane >>> Kingston ON Canada >>> >>> >>>> -----Original Message----- >>>> From: istaz...@gmail.com >>>> Sent: Wed, 3 Apr 2013 09:43:25 -0400 >>>> To: jrkrid...@inbox.com >>>> Subject: Re: [R] Canadian politcal party colours in ggplot2 >>>> >>>> Hi John, >>>> >>>> How about this: >>>> >>>> library(XML) >>>> >>>> party.info <- >>>> readHTMLTable("http://en.wikipedia.org/wiki/Wikipedia:WikiProject_Political_parties_and_politicians_in_Canada/list_of_parties";) >>>> fed.party.info <- party.info[[3]] >>>> fed.party.colors <- fed.party.info[, 2] >>>> names(fed.party.colors) <- gsub("^.*\\|", "", fed.party.info[, 4]) >>>> >>>> tmp <- data.frame(x=1:15, >>>> y=1:15, >>>> z=factor(rep(c("Canada Party", "NDP", "Socialist"), >>>> each=5))) >>>> >>>> ggplot(tmp, aes(x=x, y=y)) + >>>> geom_point(aes(color=z)) + >>>> scale_color_manual(values = fed.party.colors) >>>> >>>> Best, >>>> Ista >>>> >>>> On Wed, Apr 3, 2013 at 9:08 AM, John Kane <jrkrid...@inbox.com> wrote: >>>>> A stupid question but does anyone know how to express the actual >>>>> colours >>>>> used by the main Canadian political parties? I want to do a couple >>>>> of >>>>> ggplot2 plots and have lines or rectangles that accurately reflect the >>>>> party colours. >>>>> >>>>> I can probably play around with RColorBrewer or something to figure it >>>>> out but if some some already has got them it would save me some time >>>>> especially with the NDP orange. >>>>> >>>>> Thanks >>>>> >>>>> John Kane >>>>> Kingston ON Canada >>>>> >>>>> ____________________________________________________________ >>>>> FREE 3D EARTH SCREENSAVER - Watch the Earth right on your desktop! >>>>> >>>>> ______________________________________________ >>>>> R-help@r-project.org mailing list >>>>> https://stat.ethz.ch/mailman/listinfo/r-help >>>>> PLEASE do read the posting guide >>>>> http://www.R-project.org/posting-guide.html >>>>> and provide commented, minimal, self-contained, reproducible code. >>> >>> ____________________________________________________________ >>> FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on >>> your desktop! >>> Check it out at http://www.inbox.com/marineaquarium >>> >>> > > ____________________________________________________________ > GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at > http://www.inbox.com/smileys > Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and > most webmails > > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
