R中的图形分类变量

Question

Picture of how I want the graph to look

我有一个包含以下 3 个变量的数据集：

1. 条件，分为 3 个级别：控制、眼睛、相机
2. mean_destruction，连续，值范围在 0-10 之间，n=120
3. mean_expectation，连续，范围在 0-10，n=120

例如：

df1 <- data.frame(Condition = c(rep('Control', 40), rep('Eyes', 40), rep('Camera', 40)),
                 mean_destruction = sample(0:10, 120, replace = T),
                 mean_expectation = sample(0:10, 120, replace = T)) 

我试图在 ggplot 2 中绘制此图，但失败了。这是我为重现下图所做的众多 ahem 努力之一：

ggplot(data=df1, aes(x= Condition, y=(mean.destruction), fill=(mean.expected)) +
    geom_bar(stat="identity", position=position_dodge(), colour="black")))

Answer 1

这是一个使用 dplyr 和 tidyr 的答案。

我是这样解释你的数据的：

set.seed(2112)

df1 <- data.frame(Condition = c(rep('Control', 40), rep('Eyes', 40), rep('Camera', 40)),
                 mean_destruction = sample(0:10, 120, replace = T),
                 mean_expectation = sample(0:10, 120, replace = T)) 

您需要将数据转换为 long，以便为 destruction 和 expectation 获得不同的条形：

library(ggplot2)
library(dplyr)
library(tidyr)

df1 <- df1 %>% 
      gather(mean_destruction, mean_expectation, key = mean_type, value = value) %>% 
      group_by(Condition, mean_type) %>% 
      summarize(mean = mean(value))

> df1
Source: local data frame [6 x 3]
Groups: Condition [?]

  Condition        mean_type  mean
     (fctr)            (chr) (dbl)
1    Camera mean_destruction  4.90
2    Camera mean_expectation  5.20
3   Control mean_destruction  4.85
4   Control mean_expectation  5.30
5      Eyes mean_destruction  4.40
6      Eyes mean_expectation  4.15

那么您的 ggplot2 调用只需要稍作调整：

ggplot(data=df1, aes(x = Condition, y = mean, fill = mean_type)) +
         geom_bar(stat="identity", position = 'dodge', colour="black")