r - 我自己在qplot上的传奇

Question

有人可以帮我添加 A-atype B-btype C-ctype ONLY 作为下面 qplot 图的图例。我的图例应该在图表的顶部，也应该是水平的。另请参阅下面的数据和我用于生成图表的 qplot 代码。

数据:

type    name    value
A john  47.6
B john  55.6
C john  57.7
A amy   13.15
B amy   23.1
C amy   24.9
A lily  14.0
B lily  18.1
C lily  21.9
A sam   38.8
B sam   44.8
C sam   45.9
A frank 63.6
B frank 64.4
C frank 64.7
A xia   52.8
B xia   54.1
C xia   56.4
A yan   53.8
B yan   56.1
C yan   58.6

代码:

qplot(type, value, geom="bar", fill=c(""),data=temp, group=name,
  facets= .~name,stat="identity")
+ theme_bw()             
+ opts(axis.title.y=theme_text(size=16,angle=90),axis.title.x=theme_text(size=16,angle=0))
+ opts(axis.text.x=theme_text(size=10))   
+ opts(axis.text.y=theme_text(size=14))    
+ opts(strip.background = theme_rect(colour = 'steelblue', fill = 'white', size = 2))  
+ opts(legend.title=theme_blank())  
+ opts(legend.position="top")

Answer 1

您正在寻找这样的东西吗？首先绘制图例，然后去掉图例的彩色键。 fill = type 绘制图例。 scale_fill_manual 确保条形具有相同的颜色，并在图例中插入所需的标签。 guides 删除了彩色键，或者更确切地说，它将键着色为白色，只留下图例标签。可能，调用 guides 时的 fill = NA 也可以。编辑: ggplot2 版本 2 的更新代码

library(ggplot2)

temp = read.table(text = "
type    name    value
A john  47.6
B john  55.6
C john  57.7
A amy   13.15
B amy   23.1
C amy   24.9
A lily  14.0
B lily  18.1
C lily  21.9
A sam   38.8
B sam   44.8
C sam   45.9
A frank 63.6
B frank 64.4
C frank 64.7
A xia   52.8
B xia   54.1
C xia   56.4
A yan   53.8
B yan   56.1
C yan   58.6", header = TRUE, sep = "")


qplot(type, value, geom="col", fill=type, data=temp, group=name, facets= .~name) + 
   scale_fill_manual(values = rep("salmon",3), labels = c("A - atype", "B - btype", "C - ctype")) +
   guides(fill = guide_legend(override.aes = list(fill = "white"))) +
   theme_bw() + 
   theme(axis.title.y=element_text(size=16,angle=90),
         axis.title.x=element_text(size=16,angle=0), 
         axis.text.x=element_text(size=10), 
         axis.text.y=element_text(size=14), 
         strip.background = element_rect(colour = 'steelblue', fill = 'white', size = 2),
         legend.title=element_blank(), 
         legend.position="top", 
         legend.key = element_rect(colour = NA))