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)