我有这些数据:
data <- structure(list(Cod.projeto = c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L
), Nome.projeto = c("ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS",
"ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS", "ESCOLAS INFANTIS",
"ESCOLAS INFANTIS"), Secretarua = c("SMED", "SMED", "SMED", "SMED",
"SMED", "SMED", "SMED", "SMED"), Comp = structure(c(1L, 2L, 1L,
2L, 1L, 2L, 1L, 2L), .Label = c("28/02/2013", "01/03/2013"), class = c("ordered",
"factor")), Estado = c("Criadas", "Criadas", "Providas", "Providas",
"Criadas", "Criadas", "Providas", "Providas"), Categoria = c("A/G",
"A/G", "A/G", "A/G", "B", "B", "B", "B"), Vagas = c(67, 67, 63,
63, 124, 124, 73, 72)), .Names = c("Cod.projeto", "Nome.projeto",
"Secretarua", "Comp", "Estado", "Categoria", "Vagas"), row.names = c(NA,
-8L), class = "data.frame")
和这个ggplot2()
条形图:
require(ggplot2)
ggplot(data, aes(x=Categoria, y=Vagas, fill=relevel(factor(Estado),'Providas'))) +
geom_bar(position='dodge', stat='identity') +
ggtitle(substitute(atop(titulo, atop(subtitulo)),list(titulo=paste(data[1,1:2],collapse=' - '),subtitulo=data[1,3]))) +
theme(legend.position = "bottom") +
xlab("Categoria") +
ylab("Vagas") +
scale_fill_grey('') +
theme(panel.background = element_rect(fill='white'),panel.grid.major = element_line(colour = "gray70", linetype = 2)) +
geom_text(aes(x=Categoria, y=Vagas/2, label = sprintf("%1.0f", Vagas)),position = position_dodge(height=1,width=1), size=4, colour='white') +
facet_wrap( ~ Comp)
导致:
我想要仅在ligth grey column(Categoria = Criadas)中更改文本的颜色。我已经尝试在colour
参数中使用两个值,但它不起作用。我最接近的结果是当我在colour=relevel(factor(Estado),'Providas'))
内添加aes()
时,但文字是粉红色和蓝色,并添加了一个我不想要的新图例。
答案 0 :(得分:8)
如果您使用colour=relevel(factor(Estado),'Providas'))
来电,它应该有效,但添加
+ scale_color_manual(values =c('white', 'black'),guide="none")
黑色是你想要的任何颜色。