GGPLOT2 - 亮點最小/最大欄

Question

無需添加額外的列到data.frame，有一個內置的方式來突出最小/最大吧？在下面的例子中，我希望Joe欄爲綠色（最大），John杆爲紅色（最小）。

我敢肯定，這已被問過，但搜索時，我找不到：

data= data.frame(Name = c("Joe","Jane", "John") , Value = c(3,2,1)) 
ggplot(data=data)+geom_bar(aes_string(x="Name",y="Value"), stat="identity") 

Answer 1

您可以使用子集：

p <- ggplot(data=data)+ 
    geom_bar(aes(x=Name, y=Value), stat="identity") + 
    geom_bar(data=subset(data, Value==min(Value)), aes(Name, Value), 
       fill="red", stat="identity") + 
    geom_bar(data=subset(data, Value==max(Value)), aes(Name, Value), 
       fill="green", stat="identity") 
print(p) 

Answer 2

在這裏你去

ggplot(data, aes(Name, Value)) + 
geom_bar(stat = 'identity') + 
geom_bar(stat = 'identity', aes(fill = factor(Value)), 
    subset = .(Value %in% range(Value))) +  
scale_fill_manual(values = c('red', 'green')) 

Answer 3

我想我會用ifelse辦法做這一切一氣呵成：

ggplot(data=data) + 
    geom_bar(aes_string(x="Name",y="Value", fill='factor(ifelse(Value==max(Value), 3, ifelse(Value==min(Value), 2, 1)))'), stat="identity") + 
    scale_fill_manual(values=c('gray20', 'red', 'green'), legend=F) 

Answer 4

通過which.min()和which.max()使用邏輯索引這裏有一個選項：

ggplot(data, aes(Name, Value, stat = "identity")) + 
    geom_bar() + 
    geom_bar(data = data[which.min(data$Value),], fill = "red") + 
    geom_bar(data = data[which.max(data$Value),], fill = "green")