如何从data.frame输出中格式化适合于pairwise.t.test图形的pairwise.t.test格式

Question

我的df

    df <- data.frame(
    measurement = runif(120, min=1, max=25),    
    group = rep(c("A","B","C","D"), each=3, times=10)
)

我把结果放到一个data.frame中

   ttest_results <- as.data.frame(pairwise.t.test(df$measurement, df$group)$p.value)

我怎样才能格式化df适合于绘制一个ggplot矩阵？

Answer 1

这里有一种使用哈德利宇宙重塑数据的方法，即dplyr和tidyr：

library(dplyr)
library(tidyr)
library(ggplot2)
ttest_results %>% 
  add_rownames("Group.1") %>% 
  gather("Group.2", "value", -Group.1) %>%
  filter(!is.na(value)) %>% 
  ggplot(aes(Group.1, Group.2, fill = value)) +
  geom_tile(height = .7, width = .7)