2015-07-04 40 views
3

我正在使用Kaggle'train'數據集。Ggvis條形圖 - 選擇顏色

它包含891行。我正在使用的列是〜Survived。該列由因子值'0'和'1'組成。

train %>% ggvis(~Survived, fill = ~Survived) %>% 
    layer_bars() 

結果看起來是這樣的:

enter image description here

我想給的值「0條

我曾嘗試使用下面的代碼行繪製兩個值'紅色,值爲'1'的欄爲綠色。

有人可以幫我嗎?

預先感謝您。

+0

您能否提供一個用於使用的數據集的鏈接?謝謝。 – SabDeM

+1

嗨,我在「火車」一詞下添加了鏈接。 – glnvdl

回答

3

您正在尋找?scale_nominal。縮放比與ggplot2不同 - 僅有三個scales

library(ggvis) 

set.seed(0) 
dat <- data.frame(Survived = factor(sample(0:1, 50, rep=T))) 

dat %>% ggvis(~Survived, fill=~Survived) %>% 
    layer_bars() %>% 
    scale_nominal("fill", range = c("red", "green")) 
1

使用發生變異,從dplyr

library(dplyr) 

train %>% mutate(mycolours = ifelse(Survived == 0, "red", "green")) %>% 
    ggvis(~Survived, fill := ~mycolours) %>% 
    layer_bars() 
+0

將此添加到shinyapps中將引發以下錯誤: 嘗試複製'closure'類型的對象 – glnvdl

+0

很奇怪,請嘗試編輯 – jeremycg

+0

像魅力一樣工作! – glnvdl