我在使用geom_text向条形图添加标签和颜色时遇到问题 .
这是数据的例子:Data
Season Answer n freq
Spring Yes 103 0.77
Spring No 30 0.23
Winter Yes 75 0.85
Winter No 13 0.15
For labels
标签聚集在一起,而不是每个栏末端有一个数字 .
ggplot(data = a, aes(x = Answer, y = freq)) +
geom_bar(aes(fill = season),stat = "identity", position = "dodge") +
theme_minimal() +
scale_y_continuous(labels = scales::percent, limits = c(0, 1)) +
geom_text(aes(label = freq, group = Answer),
position=position_dodge(width = 0.5), vjust = -1.5) +
ggtitle(label = "x") +
labs (x = "%") +
coord_flip()
我希望每个栏的末尾都有一个比例,而不是它们相互重叠 .
我还希望比例显示为* 100 . 所以77.0%,而不是0.77
For colours
我想在这里修改标准蓝色和红色的颜色 . 当我添加一个带有四种颜色的调色板时,每个条形获得一个单独的颜色
,而不是一个用于'spring',一个用于'winter' . 你会发现这样做也会弄乱所有标签和图例 .
如果我使用两种颜色的调色板,我会得到这个:
错误:美学必须是长度1或与数据(4)相同:fill,x,y
ggplot(data = a, aes(x = Answer, y = freq)) +
geom_bar(aes(fill = "palette"),stat = "identity", position = "dodge") +
theme_minimal() +
scale_y_continuous(labels=scales::percent,limits= c(0, 1))+
geom_text(aes(label = freq, group = Answer),
position = position_dodge(width = 0.5),
vjust = -1.5) +
ggtitle(label = "x") +
labs (x = "%") +
coord_flip()