将注释颜色栏添加到ggplot或ggvis barplot

Question

有谁知道如何将注释颜色条添加到ggplot或ggvis/plotly/... barplot？

示例如下面的“热图1”，颜色条（蓝色和红色）表示样本信息为类型a或类型b：

Answer 1

如果您使用type a/type b变量来获得fill美学，您将获得彩色条和图例。

suppressPackageStartupMessages(library(tidyverse))

df <- data.frame(trt = c("a", "b", "c"), outcome = c(2.3, 1.9, 3.2))
ggplot(df, aes(trt, outcome, fill=trt)) +
  geom_col()