2

我正在尝试创建一个分组条形图，显示我输入的数据的平均值，同时我想让它易于重现，以便我可以交换其他排列类似的数据集。我不想手动计算平均值并将其输入数据框中 - 有没有办法做到这一点？

我的数据由 100 - 2000 之间的数值组成，分为 3 个不同的药物治疗组，然后细分为 3 组（基于它们在生物体中的解剖位置，称为“内部”、“中间”、“外部”）。最终图应为 3 组，每组 3 条（每组代表 3 个位置中每个位置的细胞存活平均值）。到目前为止，我已经设法制作了单独的条形图，但我想将它们结合起来。

这是我拥有的一些代码，下面是数据集的一小段摘录：

 ggplot(Survival, aes(Treatment, Inner)) +
stat_summary(fun.y = mean,
             geom = "bar",
             position = "dodge")

Treatment   Inner   Middle  Outer
RAD          317    373      354
RAD          323    217      174
RAD          236    255      261
HUTS        1411    1844     1978
HUTS        1922    1756     1856
HUTS        1478    1711     1433
RGD         1433    1489     1633
RGD         1400    1500     1544
RGD         1222    1333     1444
4

1 回答 1

3

这里有两种选择：一种是使用group_byand summarisefromdplyr来计算均值，然后使用管道ggplot来制作躲避的条形。第二个用途stat_summary就像您的示例代码一样。两者都需要gather将您的数据转换为长格式。

library(tidyverse)

df %>%
  gather(key = group, value = value, -Treatment) %>%
  group_by(Treatment, group) %>%
  summarise(mean_val = mean(value, na.rm = T)) %>%
  ggplot(aes(x = Treatment, y = mean_val, fill = group)) +
    geom_col(position = position_dodge())


df %>%
  gather(key = group, value = value, -Treatment) %>%
  ggplot(aes(x = Treatment, y = value, fill = group)) +
    stat_summary(fun.y = mean, geom = "col", position = position_dodge())

于 2018-05-15T20:14:32.053 回答