根据分组变量的彩色条形图

Question

我一直在堆栈上寻找一些时间，但没有答案直接对应我正在寻找的东西。

我想在条形图中绘制一些结果，并根据我数据集的另一列中的分组值为条形图着色。因此，第1列是分组变量（＆＃34; v＆＃34;和＆＃34; d＆＃34;），第2列是绘制值。我试图从第1列中列出一个我可以用作颜色参数的列表，但是我无法找到一种方法来确切地定义它。

status  diff

d   -2141,5

v   510

d   -947

v   867

d   -960,5

v   903

d   -421

v   1285,5

d   -1155

v   556,5

谢谢！

Answer 1

一种方法是使用命名向量来定义颜色，您可以使用因子的级别进行索引（这假设分组列是一个因子;否则它必须是字符向量，在这种情况下它可能是直接用作索引参数：

df <- data.frame(status=c('d','v','d','v','d','v','d','v','d','v'), diff=c(-2141.5,510,-947,867,-960.5,903,-421,1285.5,-1155,556.5) );
cols <- c(d='red',v='green');
barplot(df$diff,col=cols[levels(df$status)[df$status]]);