只返回p <p的相关性。 .05或r> r

Question

我有一个大的数据帧15257 * 2050，我试图将相关项隔离，其相关性高于r = .4且低于p <。 0.05。我有相关性，但我无法有效地可视化数据：

Final_Dataset <- Final_Dataset[, colSums(is.na(Final_Dataset)) != nrow(Final_Dataset)]
Final_Dataset <- Final_Dataset[,-grep("Date|factor|character|logical", sapply(Final_Dataset, class))]
table(sapply(Final_Dataset, class))
Final_Dataset <- as.data.frame(scale(Final_Dataset))

longformData <- as.data.frame(cor(Final_Dataset[sapply(Final_Dataset, is.numeric)]), method = "pearson")
longformData <- corr.test(Final_Dataset, adjust = "none", ci = F) 

任何想法，我都尝试过corrplot和其他替代品，但似乎没有什么对我有用。理想情况下，我会将图形限制为显着的相关性。