Ggvis条形图 - 选择颜色

Question

我使用Kaggle“ 火车 ”的数据集。

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

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

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

结果如下：

我想给值为'0'的条形图为红色，值为'1'的条形条为绿色。

有人可以帮帮我吗？

先感谢您。

Answer 1

你在找?scale_nominal 。 缩放与ggplot2不同 - 只有三个缩放 。

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()