Ggvis条形图 - 选择颜色

Question

我正在使用Kaggle＆＃39; train＆＃39;数据集。

它包含891行。我使用的专栏是〜Survived。此列包含因子值＆＃39; 0＆＃39; 0和＆＃39; 1＆＃39;。

我使用以下代码行绘制了两个值：

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

结果如下：

我想给出价值观的标准＆＃39; 0＆＃39;红色和值的条形＆＃39; 1＆＃39;绿色。

有人可以帮助我吗？

提前谢谢。

Answer 1

您正在寻找?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"))

Answer 2

使用来自dplyr的mutate：

library(dplyr)

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