从 R 中的整洁数据同时创建多个交互图

Question

我有一个整洁的数据框，如下所示：

id  samediff  gainloss  factor  value
1   S         G         happy   5
1   S         G         sad     3
1   S         G         angry   4
2   D         G         happy   2
2   D         G         sad     3
2   D         G         angry   5
3   D         L         happy   1
3   D         L         sad     4
3   D         L         angry   3

这是可重现的数据：

df<- data.frame(id = c(1, 1, 1, 2, 2, 2, 3, 3, 3), 
samediff = c("S", "S", "S", "D", "D", "D", "D", "D", "D"), 
gainloss = c("G", "G", "G", "G", "G", "G", "L", "L", "L"), 
factor = c("happy", "sad", "angry", "happy", "sad", "angry", "happy", "sad", "angry"), 
value = c(5, 3, 4, 2, 3, 5, 1, 4, 3))

我想创建一系列交互图。到目前为止，我已经通过以下方式传播数据来创建交互图：

id  samediff  gainloss  happy  sad  angry 
1   S         G         5      3    4
2   D         G         2      3    5
3   D         L         1      4    3

然后我使用以下函数：

interaction.plot(df$samediff, df$gainloss, df$happy) 

有没有办法同时为每个因素创建单独的交互图？在我的实际数据集中，我有比这里列出的 3 个更多的因素（快乐、悲伤、愤怒），所以知道是否有办法有效地生成这些因素对我很有用。

使用此处的示例，我还需要在interaction.plot 函数中的最后一项是df$sad 和df$angry 的绘图。 interaction.plot 函数中的前两项可以保持不变。

Answer 1

不是很优雅，但希望很清楚发生了什么，以及如果您的请求有其他更改，可以如何调整它。

df <- data.frame(id = c(1, 1, 1, 2, 2, 2, 3, 3, 3), 
                 samediff = c("S", "S", "S", "D", "D", "D", "D", "D", "D"), 
                 gainloss = c("G", "G", "G", "G", "G", "G", "L", "L", "L"), 
                 factor = c("happy", "sad", "angry", "happy", "sad", "angry", "happy", "sad", "angry"), 
                 value = c(5, 3, 4, 2, 3, 5, 1, 4, 3))
df_2 <- tidyr::spread(df, factor, value)

# Unique values of factor to iterate over and obtain interaction plots for
factor_values <- unique(df$factor)
size <- ceiling(sqrt(length(factor_values)))

par(mfrow = c(size, size))
for(i_factor_value in factor_values) {
  interaction.plot(df_2$samediff, df_2$gainloss, df_2[[i_factor_value]], ylab = i_factor_value)
}
par(mfrow = c(1, 1))