怎么去掉中柱状图的灰色部分？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

什么鬼？之前做一值没有，怎么这次就有了？求助啊
代码如下：

1. gg2 <- ggplot(sector_measures, aes(sectorcode))
   
2. 
   
3. gg2
   
4. gg2 <- gg2 + geom_bar()
   
5. gg2
   
6. gg2 <- gg2 + geom_bar(aes(fill = gtaeval), position = "dodge")
   
7. 
   
8. gg2

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：柱状图 柱状图

我觉得问题出在fill = gtaeval,去掉fill看看

1. p <- ggplot(gtayear, aes(startyear))
   
2. 
   
3. p + geom_bar()
   
4. 
   
5. p + geom_bar(aes(fill = gtaeval), position = "dodge") + ggtitle("The Change of The GTA over the year") +
   
6.   labs(x = "Year", y = "The Measure of GTA")
   
7. p

复制代码

为什么这个就没有？

合金针头 发表于 2017-3-26 11:34
我觉得问题出在fill = gtaeval,去掉fill看看

为什么另一个就没有？

gg2 <- ggplot(sector_measures, aes(sectorcode))
gg2 <- gg2 + geom_bar()
这里绘制出灰黑色部分
gg2 <- gg2 + geom_bar(aes(fill = gtaeval), position = "dodge")
这里是加上彩色部分
你这个程序实质是
ggplot(sector_measures, aes(sectorcode))+
       geom_bar()+
      geom_bar(aes(fill = gtaeval), position = "dodge")
而
p <- ggplot(gtayear, aes(startyear))
p + geom_bar()
是一幅图

下面的程序是另一幅图
p + geom_bar(aes(fill = gtaeval), position = "dodge") + ggtitle("The Change of The GTA over the year") +
  labs(x = "Year", y = "The Measure of GTA")

不懂不装懂 发表于 2017-3-26 14:43
gg2

谢谢 ，还有怎么将他们使用不同的阴影，因为黑白打印的话 就效果不好。

可以自定义颜色
p + geom_bar(aes(fill = gtaeval), position = "dodge") +
        scale_fill_manual(values=c("black", "grey", "darkgray"))