在geom bar中使用刻度颜色手册的问题

Question

我的数据如下：

AA  Extracellular   Intracellular
A   2.23        5
B   8.6         5
C   13.5        5

代码如下：

rdatamy<-read.table("rat.txt",header=TRUE) # load the File
molten2<-melt(rdatamy,id.vars="AA",measure.vars=c("Extracellular","Intracellular"))#melt
plot2<-ggplot(molten2,aes(x=AA,width=0.3,y=value,colour=variable))+ 
geom_bar(position='dodge',stat="identity") + scale_color_manual(values=c("Intracellular" = 
"cyan","Extracellular" = "gold2"))

所以，我正在策划一个barpolot来比较两个不同的东西。

他们得到的颜色不是那些，我在比例颜色手册中提到。但是，相同的颜色方案适用于相同变量的气泡图的geom_point。如果我使用fill=variable，条形图会充满一些不同的颜色。以下是我的geom_point()代码：

plot1<-ggplot(molten, aes(x = variable, y = AA, size = value, colour = variable)) + 
geom_point()+scale_color_manual(values=c("Intracellular" = "cyan","Extracellular" = 
"gold2","TM" = "lightpink4"))+ scale_size(range = c(0, 10),name="")

请帮助我理解这一点。