blocks|key|230047|text|这里有一个策略：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|230048|##+Create+a+reproducible+example
set.seed(5)
x+<-+cumsum(rnorm(50))

##+Create+a+vector+of+colors+selected+based+on+whether+x+is+<0+or+>0++
##+(FALSE+%2B+1+->+1+->+"blue";++++TRUE+%2B+1+->+2+->+"red")
cols+<-+c("blue",+"red")[(x+>+0)+%2B+1]++

##+Pass+the+colors+in+to+barplot()+++
barplot(x,+col+=+cols)|code-block|syntax|javascript|230049|如果您想要两种以上基于值的颜色，则可以采用类似的策略(使用findInterval()代替简单的逻辑测试)：|offset|length|style|CODE|230050|vals+<-+-4:4
breaks+<-+c(-Inf,+-2,+2,+Inf)
c("blue",+"grey",+"red")[findInterval(vals,+vec=breaks)]
#+[1]+"blue"+"blue"+"grey"+"grey"+"grey"+"grey"+"red"++"red"++"red"+|230051|​|230052|📷|atomic|230053|230054|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/91d07535cd13856567eb339738919721.png|imageAlt^0|0|0|T|E|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|13|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|14|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|15|8|@$I|16|J|17|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|18|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|19|8|@]|9|@]|A|$]]|$1|Q|3|R|5|S|7|1A|8|@]|9|@$I|1B|J|1C|1|1D]]|A|$]]|$1|T|3|P|5|6|7|1E|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|1F|8|@]|9|@]|A|$]]]|V|$W|$5|X|Y|Z|A|$10|11|12|-4]]]]

Here's one strategy:

<pre><code>## Create a reproducible example
set.seed(5)
x &lt;- cumsum(rnorm(50))

## Create a vector of colors selected based on whether x is &lt;0 or &gt;0 
## (FALSE + 1 -&gt; 1 -&gt; "blue"; TRUE + 1 -&gt; 2 -&gt; "red")
cols &lt;- c("blue", "red")[(x &gt; 0) + 1] 

## Pass the colors in to barplot() 
barplot(x, col = cols)
</code></pre>

If you want more than two value-based colors, you can employ a similar strategy (using <code>findInterval()</code> in place of the simple logical test):

<pre><code>vals &lt;- -4:4
breaks &lt;- c(-Inf, -2, 2, Inf)
c("blue", "grey", "red")[findInterval(vals, vec=breaks)]
# [1] "blue" "blue" "grey" "grey" "grey" "grey" "red" "red" "red" 
</code></pre>

<img src="https://i.stack.imgur.com/DZMS7.png" alt="enter image description here">

blocks|key|230107|text|一种方法是使用逻辑或因子变量对颜色矢量进行索引(这是R中的一种常见习惯用法)。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|230108|set.seed(1)
NAO+<-+rnorm(40)
cols+<-+c("red","black")
pos+<-+NAO+>=+0
barplot(NAO,+col+=+cols[pos+%2B+1],+border+=+cols[pos+%2B+1])|code-block|syntax|javascript|230109|这里的诀窍是pos|offset|length|style|CODE|230110|>+pos
+[1]+FALSE++TRUE+FALSE++TRUE++TRUE+FALSE++TRUE++TRUE++TRUE+FALSE
[11]++TRUE++TRUE+FALSE+FALSE++TRUE+FALSE+FALSE++TRUE++TRUE++TRUE
[21]++TRUE++TRUE++TRUE+FALSE++TRUE+FALSE+FALSE+FALSE+FALSE++TRUE
[31]++TRUE+FALSE++TRUE+FALSE+FALSE+FALSE+FALSE+FALSE++TRUE++TRUE|230111|在barplot()调用中，我们将其强制转换为数字：|230112|>+pos+%2B+1
+[1]+1+2+1+2+2+1+2+2+2+1+2+2+1+1+2+1+1+2+2+2+2+2+2+1+2+1+1+1+1+2
[31]+2+1+2+1+1+1+1+1+2+2|230113|1s和2s的向量从颜色cols的向量中选择元素，使得：|230114|>+cols[pos+%2B+1]
+[1]+"red"+++"black"+"red"+++"black"+"black"+"red"+++"black"
+[8]+"black"+"black"+"red"+++"black"+"black"+"red"+++"red"++
[15]+"black"+"red"+++"red"+++"black"+"black"+"black"+"black"
[22]+"black"+"black"+"red"+++"black"+"red"+++"red"+++"red"++
[29]+"red"+++"black"+"black"+"red"+++"black"+"red"+++"red"++
[36]+"red"+++"red"+++"red"+++"black"+"black"|230115|这是传递给每个绘制的条形图的颜色。|230116|在上面的代码中，我还通过参数border将条的边框设置为相关的颜色。|230117|生成的图应该如下所示|230118|​|230119|📷|atomic|230120|230121|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/d5205b378c27b786655b81d19d76c0c1.png|imageAlt^0|0|0|6|3|0|0|1|9|0|0|0|1|3|1|B|4|0|0|0|E|6|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|1H|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|1I|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|1J|8|@$I|1K|J|1L|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|1M|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|1N|8|@$I|1O|J|1P|K|L]]|9|@]|A|$]]|$1|Q|3|R|5|D|7|1Q|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|1R|8|@$I|1S|J|1T|K|L]|$I|1U|J|1V|K|L]|$I|1W|J|1X|K|L]]|9|@]|A|$]]|$1|U|3|V|5|D|7|1Y|8|@]|9|@]|A|$E|F]]|$1|W|3|X|5|6|7|1Z|8|@]|9|@]|A|$]]|$1|Y|3|Z|5|6|7|20|8|@$I|21|J|22|K|L]]|9|@]|A|$]]|$1|10|3|11|5|6|7|23|8|@]|9|@]|A|$]]|$1|12|3|13|5|6|7|24|8|@]|9|@]|A|$]]|$1|14|3|15|5|16|7|25|8|@]|9|@$I|26|J|27|1|28]]|A|$]]|$1|17|3|13|5|6|7|29|8|@]|9|@]|A|$]]|$1|18|3|-4|5|6|7|2A|8|@]|9|@]|A|$]]]|19|$1A|$5|1B|1C|1D|A|$1E|1F|1G|-4]]]]

One way is to index a vector of colours with a logical or factor variable (this is a common idiom in R.

<pre><code>set.seed(1)
NAO &lt;- rnorm(40)
cols &lt;- c("red","black")
pos &lt;- NAO &gt;= 0
barplot(NAO, col = cols[pos + 1], border = cols[pos + 1])
</code></pre>

The trick here is <code>pos</code>:

<pre><code>&gt; pos
 [1] FALSE TRUE FALSE TRUE TRUE FALSE TRUE TRUE TRUE FALSE
[11] TRUE TRUE FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE
[21] TRUE TRUE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
[31] TRUE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
</code></pre>

which we coerce to numeric in the <code>barplot()</code> call:

<pre><code>&gt; pos + 1
 [1] 1 2 1 2 2 1 2 2 2 1 2 2 1 1 2 1 1 2 2 2 2 2 2 1 2 1 1 1 1 2
[31] 2 1 2 1 1 1 1 1 2 2
</code></pre>

The vector of <code>1</code>s and <code>2</code>s selects elements from the vector of colour <code>cols</code>, such that:

<pre><code>&gt; cols[pos + 1]
 [1] "red" "black" "red" "black" "black" "red" "black"
 [8] "black" "black" "red" "black" "black" "red" "red" 
[15] "black" "red" "red" "black" "black" "black" "black"
[22] "black" "black" "red" "black" "red" "red" "red" 
[29] "red" "black" "black" "red" "black" "red" "red" 
[36] "red" "red" "red" "black" "black"
</code></pre>

which is the colour passed on to each bar drawn.

In the code above I also set the border of the bars to the relevant colour, via argument <code>border</code>.

The resulting plot should look like this

<img src="https://i.stack.imgur.com/MSupG.png" alt="enter image description here">

blocks|key|448179|text|使用geom_bar和stat_identity的ggplot2解决方案。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|448180|library(ggplot2)
ggplot(dat,+aes(x=+seq_along(x),+y+=+x))+%2B+
++geom_bar(stat+=+'identity',+aes(fill+=+x>0),+position+=+'dodge',+col+=+'transparent')+%2B+
++theme_bw()+%2B+scale_fill_discrete(guide+=+'none')+%2B+
++labs(x+=+'',+y+=+'NAO+Index')|code-block|syntax|javascript|448181|​|448182|📷|atomic|448183|448184|scale_fill_discrete(guide+=+'none')将删除图例，position+=+'dodge'将停止来自默认position+=+'stack'的警告。|448185|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/3a2ef13963dc04ee261c18dbe4177223.png|imageAlt^0|2|8|B|D|P|7|0|0|0|0|1|0|0|0|0|Z|15|I|1U|I|0^^$0|@$1|2|3|4|5|6|7|11|8|@$9|12|A|13|B|C]|$9|14|A|15|B|C]|$9|16|A|17|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|18|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|19|8|@]|D|@]|E|$]]|$1|M|3|N|5|O|7|1A|8|@]|D|@$9|1B|A|1C|1|1D]]|E|$]]|$1|P|3|L|5|6|7|1E|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|1F|8|@$9|1G|A|1H|B|C]|$9|1I|A|1J|B|C]|$9|1K|A|1L|B|C]]|D|@]|E|$]]|$1|S|3|-4|5|6|7|1M|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z|10|-4]]]]

A <code>ggplot2</code> solution using <code>geom_bar</code> with <code>stat_identity</code>.

<pre><code>library(ggplot2)
ggplot(dat, aes(x= seq_along(x), y = x)) + 
 geom_bar(stat = 'identity', aes(fill = x&gt;0), position = 'dodge', col = 'transparent') + 
 theme_bw() + scale_fill_discrete(guide = 'none') + 
 labs(x = '', y = 'NAO Index')
</code></pre>

<img src="https://i.stack.imgur.com/sQ4BA.png" alt="enter image description here">

<code>scale_fill_discrete(guide = 'none')</code> removes the legend, <code>position = 'dodge'</code> stops the warning that comes from the default <code>position = 'stack'</code>.

blocks|key|230224|text|我在寻找关于如何根据因子给条形图中的各个条形图着色的帮助时发现了这个页面。我找不到任何其他信息来源，但多亏了这个页面，我想出了这个：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|230225|cols+<-+df(df$Country+==“格陵兰”，“绿色”，“蓝色”)|230226|然后按照上面描述的方式将其传递到barplot中：|230227|条形图(x，col+=+cols)|230228|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|K|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|L|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|M|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|I|$]]

I found this page while looking for help on how to colour individual bars in a bar chart according to a factor. I couldn't find any other source of information but thanks to this page, came up with this:

cols &lt;- ifelse(df$Country == "Greenland", "green","blue")

It then gets passed into barplot in the usual way as described above:

barplot(x, col = cols)

I've been creating some bar-charts and I was wondering is it possible to colour bars on a chart depending on whether they lie above or below the x-axis?

For clarification, this is the type of bar-chart I mean:

<img src="https://i.stack.imgur.com/SfmeD.png" alt="enter image description here">

Ideally I would like to be able to colour the bars above a separate colour to those below so the graph looks more appealing, I've been searching but I can't find any method of doing this, can anyone help?

Thanks in advance. :)

Change colours of particular bars in a bar chart

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我一直在创建一些条形图，我想知道是否可以根据条形图上的条形图是位于x轴的上方还是下方对它们进行着色？为了澄清，这是我的意思是条形图的类型：​​理想情况下，我希望能够给上面的条块涂上单独的颜色，这样图形看起来更吸引人，我一直在寻找，但我找不到任何方法来做到这一点，有人能帮助我吗？提前谢谢。:)

问更改条形图中特定条形图的颜色
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问更改条形图中特定条形图的颜色EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问更改条形图中特定条形图的颜色
EN