a better way to share your example data:
library(tidyverse)
cor <- tibble::tribble(
~Var1, ~Var2, ~value,
"G1", "G1", 1,
"G2", "G1", 0.312280701754386,
"G3", "G1", 0.0157894736842105,
"G4", "G1", -0.101754385964912,
"G5", "G1", 0.0964912280701754,
"G6", "G1", -0.40477173313538
)
tibble::tribble(
~Var1, ~Var2, ~value,
"G1", "G1", NA,
"G2", "G1", 0.193042467797002,
"G3", "G1", 0.948846126455514,
"G4", "G1", 0.678504619638732,
"G5", "G1", 0.694348438958584,
"G6", "G1", 0.0856060025429972
)
example solution
(together <- bind_cols(cor,select(P,pval=value)))
together %>%
filter(
pval<.3,
abs(value)>.4
)