用ggplot显示某些传说

Posted 2021-04-05

我有下面的plto

我如何能：

（1）删除sizze图例。

（2）使条形颜色为蓝色，图例为“条形图例”。另外如何删除条形图方块中的黑点。

（3）使点的颜色变红，传说说“点传奇”

dat = data.frame(label = c("A","B","C","D"), group1 = c(1,2,3,5), group2 = c(3,4,5,0), color1 = c("blue","blue","blue","blue") ,
           color12 = c("red","red","red","red"))

dat$sizze = ifelse(dat$group2 ==0 ,0, 2 )

ggplot(dat, aes(x = label, y = group1, fill = color1))+
  geom_bar(stat="identity")  +
 geom_point(data = dat, aes(x = label, y = group2, color =color12, size = sizze), shape=15)+
   guides(
  size = guide_legend(show = FALSE) 
)

--->这一行：

dat$sizze = ifelse(dat$group2 ==0 ,0, 3 )

似乎不起作用。我可以将3改为1或5，但情节看起来仍然相同。知道如何让它工作？

答案

使用guides和scale_*_manual：

p1 <- ggplot(dat, aes(x = label, y = group1, fill = color1))+
  geom_bar(stat="identity")  +
  geom_point(data = dat, aes(x = label, y = group2, color = color12, size = sizze), shape=15)

p1 + 
  guides(size = FALSE)+
  scale_fill_manual(values = c('blue' = 'blue'),
                    name = 'bar legend')+
  scale_colour_manual(values = c('red' = 'red'),
                      name = 'point legend')