5

I have a data frame D that look like this:

Track <- c(0,0,0,-1,1,1)
Length <- c(1,1,2,1,3,1)
Legend <- c("A","B","A","C","B","C")
D <- data.frame(Track,Length,Legend)

D
# Track Length Legend
#     0      1      A
#     0      1      B
#     0      2      A
#    -1      1      C
#     1      3      B
#     1      1      C

I am currently using this code to plot it:

ggplot(Z, aes(x=Track, y=Length, fill=Legend)) +
      geom_bar(stat='identity') + geom_point() + expand_limits(x=0,y=0) + 
      theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
            panel.background = element_blank(), axis.line = element_line(colour = "black"))

And the graph looks like this: enter image description here

However I want to assign the color white to variable B. Is this manipulation possible? Additionally I am using dummy data for simplicity's sake in this post. The actual data that I will be using may have 10 or more different variables under Legend, so writing out each hex color doesn't look like a clean option.

Thank you for the help

alki
  • 3,334
  • 5
  • 22
  • 45

2 Answers2

2

You can use scale_fill_manual(values=c( .. and then your hex colors"

    ggplot(D, aes(x=Track, y=Length, fill=Legend)) +
      geom_bar(stat='identity') + scale_fill_manual(values=c("#000000","#FFFFFF", "#00FF00"))

Also can use

# The palette with grey:
cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")

# The palette with black:
cbbPalette <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")

# To use for fills, add
  scale_fill_manual(values=cbPalette)

# Use a different gradient
    scale_colour_gradientn(colours=rainbow(4))

   # To use for line and point colors, add
      scale_colour_manual(values=cbPalette)
vinchinzu
  • 604
  • 1
  • 7
  • 16
2

Does this produce what you're after? 

x <- length(levels(factor(Legend)))
x.colors <- hcl(h=seq(15,375,length=(x+1)),l=65,c=100)[1:x]
x.colors[x] <- "white"

ggplot(D, aes(x=Track, y=Length, fill=Legend)) +
  geom_bar(stat='identity',colour="black") + geom_point() + expand_limits(x=0,y=0) +
  scale_fill_manual(values=x.colors) +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_blank(), axis.line = element_line(colour ="black"))

I added scale_fill_manual() assigning colors to A, B, and C. I also added colour="black" to geom_bar(). You could try it with and without the second part and see what you think.

johnson-shuffle
  • 1,023
  • 5
  • 11
  • The actual data that I'm using has many variables under Legend. I don't think listing out 10+ colors for the 10+ variables that I have is a clean option. I do know that the last variable will always be the variable I want to color white though... @johnson_shuffle – alki Jul 20 '15 at 23:28
  • Fair enough. See my edited answer. Ultimately this depends on how much control you want over the other colors. Incidentally I just learned how the color palette in `ggplot()` works which is the `hcl()` part above. – johnson-shuffle Jul 20 '15 at 23:47
  • Awesome, this is perfect! Thanks – alki Jul 20 '15 at 23:52
  • What does `h=seq(15,375,length=(x+1)),l=65,c=100[1:x]` do? Thank you – Little Bee Feb 27 '17 at 23:04