ggplot geom-line和geom_bar颜色

作者: ❀⚘粉༵红༵回༵忆༵⚘❀
发布时间: 2025-03-10 04:15:03 (1天前)
转自：

3 条回复

0#
回复此人
独奏♪ | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 关键是使用填充而不是颜色。代码将生成警告但将正确显示。验证图例是否为预期结果。 </p> <P> 库（GGPLOT2） </p> <pre> <code> ggplot(data = rr, aes(x = date))+ geom_point(aes(y=value, fill="Nitrogen"), colour="black")+ geom_line(aes(y=value, fill="Nitrogen"), colour="black")+ facet_grid(depth~dose) + geom_bar(data=rr,stat = "identity", position = position_dodge(width = 0.9),aes(x=date, y=rain100, fill="Rains") )+ theme(strip.text.x = element_text(size = 7, colour = "black", angle = 0),axis.text.x = element_text(angle=90,vjust=0.5,hjust=0.5, size=8))+ ylab("Soil nitrogen measured as nitrate, lb/ac and rains, 100ths of inch")+ scale_x_date(date_breaks = "1 month",date_labels = "%m-%d-%y")+ ggtitle("MR Ranch")+ ylim(0,350) + scale_fill_manual(labels=c("Nitrogen","Rains"), breaks=c("Nitrogen","Rains"), values=c("black","blue"), name="") </code> </pre> <P> <a href="https://i.stack.imgur.com/4U9wk.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/4U9wk.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑
1#
回复此人
star | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 所以看起来你想要一个直方图而不是一个条形图。所以我改变了 <code> geom_bar </code> 至 <code> geom_histogram </code> 。此外，我相信你正在获得这个传奇，因为你正在使用 <code> color </code> 争论而不是 <code> fill </code> ，这会给你一个大纲。试试这段代码： </p> <pre> <code> ggplot(data = rr, aes(x = date)) + geom_point(aes(y = value, colour = "Nitrogen")) + geom_line(aes(y = value, colour = "Nitrogen")) + facet_grid(depth ~ dose) + geom_histogram(data= rr, stat = "identity", position = position_dodge(width = 0.9), aes(x = date, y = rain100 ,fill= "Rains")) + theme(strip.text.x = element_text(size = 7, colour = "black", angle = 0), axis.text.x = element_text(angle = 90,vjust = 0.5, hjust = 0.5, size = 8)) + ylab("Soil nitrogen measured as nitrate, lb/ac and rains, 100ths of inch") + scale_x_date(date_breaks = "1 month", date_labels = "%m-%d-%y") + ggtitle("MR Ranch")+ ylim(0,350)+ scale_colour_manual("", breaks=c("Nitrogen","Rains"), values=c("black","blue")) </code> </pre> </DIV>

编辑

登录后才能参与评论