Question

我花了惊人的4个小时在谷歌上搜索，并找到了不太相同的答案来做一些需要我30秒钟的事情。

这是我的数据：

DFj <- read.table(text="Intervention Timepoint  Proportion
             0    baseline  .35
             0    final     .24
             1    baseline  .25
             1    final     .43", header=TRUE)

我想要4条柱形图。应该有两个类别，即“基线”和“最终”时间点。基线应有两个条形，对照（红色）和干预（蓝色）并排。然后，在我们有相同的两个具有相同颜色但带有“最终”数据的小节之前，我需要一点距离。这应该非常简单，但Google绝对无法帮助我。有什么想法吗？

Answer 1

这是您要寻找的吗？

library(tidyverse)
DFj <- read.table(text="Intervention Timepoint  Proportion
             0    baseline  .35
             0    final     .24
             1    baseline  .25
             1    final     .43", header=TRUE)

DFj %>% 
  ggplot(aes(Timepoint, Proportion, fill = Intervention %>% as.factor())) +
  geom_col(position = 'dodge') + 
  scale_fill_manual(values = c('red', 'blue'))

条形图由变量分隔并由另一个变量着色

1 个答案: