R中条形图中不同列的基于条件的单独着色

Question

我有以下特定候选人评估的数据再次基准数据。在此处找到 csv 文件：

Competencies    Desired Score
DRIVE           6       6.72
CUST ORIENTATION    6   6.58
INNOVATION  6   6.43
TEAM WORK   5   6.88
ANALYTICAL THINKING 6   7
LEADERSHIP  3   6.42
ASSERTIVENESS   3   6.73
PROBLEM SOLVING 4   6.73
IMPLEMENTATION & EXECUTION  6   6.85
WORKING KNOWLEDGE   6   5
BU KNOWLEDGE    3   4.58
FU KNOWLEDGE    3   4.7
KNOWLEDGE OF THE BUSINESS ENVIRONMENT   4   4.72

我必须像这样制作水平条形图：

http://i.stack.imgur.com/jleQf.png

其中基准栏的颜色固定为蓝色，分数栏的颜色基于以下条件：

cols <- ifelse(import1$Score>import1$Desired,"green",
           ifelse(import1$Score>=(0.96*import1$Desired) & import1$Score<import1$Desired,
                  "yellow", "red"))

如何在条形图中执行此操作，以便条形图采用如下所述的颜色（我已手动输入）：

barplot(t(as.matrix(import1[,1:2])),horiz=TRUE,
    col=c("blue","green","blue", "green","blue", "green","blue", 
          "green","blue","green","blue", "green","blue","green" ,"blue",
          "green","blue", "green","blue", "red","blue","green","blue", "green","blue", "green" ),cex.names=0.5,las=1,cex.axis=0.6,beside=TRUE,border=NA)

我想在col 中使用一些基于条件的方法。

编辑： 附加查询

如果我对同一组能力有多个分数，我如何在上述条件下制作单独的图表集。

Competencies    Desired Score 1 Score 2 Score 3
DRIVE           6       6.72        5.2 6.6
CUST ORIENTATION    6   6.58    6   7.6
INNOVATION  6   6.43    4.2 7
TEAM WORK   5   6.88    5.4 7.8
ANALYTICAL THINKING 6   7   4.6 7
LEADERSHIP  3   6.42    5.8 7
ASSERTIVENESS   3   6.73    4.8 6.4
PROBLEM SOLVING 4   6.73    6   6.6
IMPLEMENTATION & EXECUTION  6   6.85    6.2 6
WORKING KNOWLEDGE   6   5   3.6 5.4
BU KNOWLEDGE    3   4.58    3.8 4.4
FU KNOWLEDGE    3   4.7 4   4.6
KNOWLEDGE OF THE BUSINESS ENVIRONMENT   4   4.72    4   4.8

Answer 1

由于您已经在 cols 中获得了所需的颜色，因此您可以通过首先生成足够的 "blue" 值来创建所需的矢量，如下所示：

blues <- rep("blue",length(cols))

然后将此向量与另一个向量组合以获得您想要使用的颜色：

colors <- as.vector(rbind(blues,cols)) 

之后您的情节可以通过以下方式创建：

barplot(t(as.matrix(import1[,2:3])),horiz=TRUE,
    col=colors,cex.names=0.5,las=1,cex.axis=0.6,beside=TRUE,border=NA)

编辑：

将所有这些组合成一个函数如下所示：

calcCols <- function(df,score) {
    cols <- ifelse(df[,score]>df$Desired,"green",
            ifelse(df[,score]>=(0.96*df$Desired) & df[,score]<df$Desired,
                   "yellow", "red"))
    blues <- rep("blue",length(cols))
    as.vector(rbind(blues,cols))                
}

之后，您可以使用以下新数据创建您想要的三个图表：

barplot(t(as.matrix(import1[,2:3])),horiz=TRUE,
    col=calcCols(import1,"Score.1"),cex.names=0.5,las=1,cex.axis=0.6,beside=TRUE,border=NA)

barplot(t(as.matrix(import1[,2:3])),horiz=TRUE,
    col=calcCols(import1,"Score.2"),cex.names=0.5,las=1,cex.axis=0.6,beside=TRUE,border=NA)

barplot(t(as.matrix(import1[,2:3])),horiz=TRUE,
    col=calcCols(import1,"Score.3"),cex.names=0.5,las=1,cex.axis=0.6,beside=TRUE,border=NA)