R ggplot2几何图形栏颜色仅一列_R_Ggplot2_Geom Bar

R ggplot2几何图形栏颜色仅一列

R ggplot2几何图形栏颜色仅一列,r,ggplot2,geom-bar,R,Ggplot2,Geom Bar,考虑一个示例数据帧和相对的geom\u条plot data = data.frame(method=LETTERS[sample(x=c(1,2,3),size=100,replace=T)], x1=sample(x=c(1,2,3,4,5,6),size=100,replace=T), x2=sample(x=c(1,2,3,4,5,6),size=100,replace=T),

考虑一个示例数据帧和相对的

geom\u条

plot

data = data.frame(method=LETTERS[sample(x=c(1,2,3),size=100,replace=T)], 
                  x1=sample(x=c(1,2,3,4,5,6),size=100,replace=T), 
                  x2=sample(x=c(1,2,3,4,5,6),size=100,replace=T),
                  d =letters[sample(c(1,2,3,4),size=100,replace=T)] )

ggplot()+
  geom_bar(data=data, aes(x=method, y=x1),stat="identity") +
  facet_wrap(~d, ncol=2)

我想把每一小块的小柱子涂成红色。

我该怎么做

如果不折叠数据以创建一个新列来指定哪个值是最小值，我不确定您将如何执行此操作。然后，您可以将美学附加到该值。这里有一个使用数据的崩溃策略

collapsed < -as.data.frame(xtabs(x1~d+method, data))
collapsed$ismin <- with(collapsed, ave(Freq,d,FUN=function(x) x==min(x)))

导致

我不知道如何在不折叠数据的情况下创建一个指定最小值的新列。然后，您可以将美学附加到该值。这里有一个使用数据的崩溃策略

collapsed < -as.data.frame(xtabs(x1~d+method, data))
collapsed$ismin <- with(collapsed, ave(Freq,d,FUN=function(x) x==min(x)))

导致