使用gglot2的嵌套图形

Question

我想要一些帮助来编码一个嵌套图形使用gglot2。这个数字是关于参与者在一段时间内的回报。共60个阶段，分为12个独立试验。主要原因是，在每个试验中，一个人可以达到的最大回报保持不变。我在之前的研究中发现了一个例子。

与示例不同，我的研究中有6个交互条件:2(透明vs不透明)x3(没有灵活性也没有修复，灵活性和修复)，所以从试验1到试验12的每个试验中应该有6个geom_lines。表头如下：

  trial period transparency    flexibility    repair    payoff  
  <int>  <int> <chr>           <chr>          <chr>      <dbl>    
1     1      1 no transparency no flexibility no repair   21.2      
2     1      1 no transparency flexbility     no repair   23.2      
3     1      1 no transparency flexbility     repair      19.3     
4     1      1 transparency    no flexibility no repair   15       
5     1      1 transparency    flexbility     no repair   20.3      
6     1      1 transparency    flexbility     repair      18.8    

x_aes应该是12个试验，然后在每个试验中，有第二层(5个周期)

y_aes应该是每期的收益。

nested plots

​

Answer 1

一种可能性是执行以下操作。由于您提供的数据不随试验或周期而变化，因此您将模拟一些具有相似结构的数据：

df <- expand.grid(
  trial = 1:12,
  period = 1:5,
  transparency = c("no transparency", "transparency"),
  flexibility = c("no flexibility", "flexibility"),
  repair = c("no repair", "repair")
)
df$payoff <- rnorm(nrow(df))

然后我们就可以在试验中进行切面，使用周期作为x轴，支出作为y轴。你如何选择编码的透明度，修复和灵活性是由你决定的。

ggplot(df, aes(period, payoff)) +
  geom_line(aes(colour = interaction(flexibility, repair), linetype = transparency)) +
  geom_point(aes(colour = interaction(flexibility, repair), shape = transparency)) +
  facet_grid(~ trial)

​

​