從data.frame中添加ggplot圖例中的信息

我想在圖例中添加傳感器具有此值的信息。從data.frame中添加ggplot圖例中的信息

這是我的代碼：

z <- data.frame(
     a=c("sensor 1","sensor 2","sensor 3","sensor 4","sensor 5","sensor 6","sensor 7","sensor 8"), 
     b=c(50, 60, 70, 20,90,110,30,100) 
    ) 

cxc <- ggplot(z, aes(x=a, y=b, fill=factor(b))) + 
     geom_bar(width = 1,stat="identity",colour = "black") + 
     scale_fill_brewer(palette="Blues",type = "seq")+ 
     geom_text(aes(y = b/2,label = b),color = "red",size = 5) 
cxc + coord_polar() + 
    theme_linedraw() + 
    theme(axis.ticks =element_blank(), axis.text.y =element_blank(), axis.title=element_blank(), axis.text.x=element_text(size = 12,angle = 45)) + 
    guides(fill = guide_legend(title = "Value and sensor"))

這是我的結果：

我想在圖例寫這樣的：

20（傳感器4）
30 （傳感器7）
50（傳感器1）

我想保持這種顏色和圖形樣式。

來源

2016-07-05 Nejc Galof

你可以使用'labels'參數'scale_fill_brewer' –

@RichardTelford是的，但問題是，當我把'scale_fill_brewer（標籤= Z $ A）'我的文字，而不是價值右側的文本。我不知道如何在沒有手寫的情況下爲正確的價值傳感器。 –

將labels參數用於scale_fill_brewer和order這些標籤，以便它們按正確順序排列。

cxc <- ggplot(z, aes(x=a, y=b, fill=factor(b))) + 
    geom_bar(width = 1,stat="identity",colour = "black") + 
    scale_fill_brewer(palette="Blues",type = "seq", labels = paste0(z$b, " (", z$a, ")")[order(z$b)])+ 
    geom_text(aes(y = b/2,label = b),color = "red",size = 5) 
cxc + coord_polar() + 
    theme_linedraw() + 
    theme(axis.ticks =element_blank(), axis.text.y =element_blank(), axis.title=element_blank(), axis.text.x=element_text(size = 12,angle = 45)) + 
    guides(fill = guide_legend(title = "Value and sensor"))

來源

2016-07-05 12:14:01

從data.frame中添加ggplot圖例中的信息

回答

相關問題