Hello everybody, can someone help me how can I avoid this problem?
Error: Argument 2 must have names
Also, does anyone know how to change the direction of the graph that I am going to get?
In theory I will obtain something very similar to this, however I would like the variables (metadata) to be on the x axis and below the graph.
Something like that I would like to obtain
Thank yoy thank yooouu so much
library(tidyverse)
library(corrplot)
#> corrplot 0.84 loaded
library(corrr)
metadata <- data.frame(tibble::tribble(
~SampleID, ~DO, ~pH, ~WT, ~Turbidity, ~ORP, ~Ammonium, ~Nitrates, ~BGA, ~Chlrophyll, ~TN, ~TP,
"1A", 4.24, 9.94, 24.48, 87.3, 97, 4.46, 3.6, 279133L, 36.6, 10.74, 1.62,
"1B", 2.58, 10.06, 24.95, 95.2, 108.4, 4.62, 3.98, 279113L, 38.9, 11.82, 1.45,
"1C", 2.85, 9.98, 24.01, 98.8, 102.9, 4.37, 3.57, 265304L, 40, 13.37, 1.47,
"1D", 3.81, 9.07, 26.67, 24.9, 94, 5.6, 3.53, 11603L, 44, 14.56, 1.87,
"1E", 2.64, 8.99, 24.01, 43.1, 63.9, 3.38, 2.55, 218471L, 35, 16.56, 1.27,
"1F", 4.61, 8.93, 23.5, 49.1, 64.7, 3.21, 2.28, 226658L, 32.8, 12.57, 1.38,
"1G", 5.74, 9.24, 24.46, 68.6, 40.3, 1.93, 0.71, 267389L, 44, 9.94, 1.43,
"1H", 3.69, 9.32, 24.65, 69.8, 48.1, 2.21, 1.2, 267144L, 44.8, 10.62, 1.34,
"2A", 4.24, 9.94, 24.48, 87.3, 97, 4.46, 3.6, 279133L, 36.6, 10.74, 1.62,
"2B", 2.66, 10, 24.92, 113, 111.9, 4.75, 3.21, 270193L, 39.8, 11.82, 1.45,
"2C", 2.85, 9.98, 24.01, 98.8, 102.9, 4.37, 3.57, 265304L, 40, 13.37, 1.47,
"2D", 3.81, 9.07, 26.67, 24.9, 94, 5.6, 3.53, 11603L, 44, 14.56, 1.87,
"2E", 2.64, 8.99, 24.01, 43.1, 63.9, 3.38, 2.55, 218471L, 35, 16.56, 1.27,
"2F", 4.61, 8.93, 23.5, 49.1, 64.7, 3.21, 2.28, 226658L, 32.8, 12.57, 1.38,
"2G", 5.74, 9.24, 24.46, 68.6, 40.3, 1.93, 0.71, 267389L, 44, 9.94, 1.43,
"2H", 3.69, 9.32, 24.65, 69.8, 48.1, 2.21, 1.2, 267144L, 44.8, 10.62, 1.34,
"3A", 2.51, 10.04, 24.35, 87.7, 91.3, 4.5, 3.36, 267716L, 39.6, 10.74, 1.62,
"3B", 2.66, 10, 24.92, 113, 111.9, 4.75, 3.21, 270193L, 39.8, 11.82, 1.45,
"3C", 3.14, 10, 24, 96.9, 108, 4.48, 3.76, 279119L, 38.5, 13.37, 1.47,
"3D", 2.92, 9.06, 26.46, 39.7, 23.7, 7.64, 3.66, 66608L, 45.1, 14.56, 1.87,
"3E", 1.83, 8.99, 23.99, 49, 64.1, 3.18, 2.44, 213497L, 42.2, 16.56, 1.27,
"3F", 1.82, 8.92, 23.43, 47.6, 60.4, 3.09, 2.06, 242331L, 50.2, 12.57, 1.38,
"3G", 3.02, 9.18, 24.14, 66.6, 40.6, 2.19, 0.67, 267007L, 43.6, 9.94, 1.43,
"3H", 3.3, 9.32, 24.67, 74.1, 49.8, 2.14, 0.87, 261363L, 45.1, 10.62, 1.34,
"4A", 2.51, 10.04, 24.35, 87.7, 91.3, 4.5, 3.36, 267716L, 39.6, 10.74, 1.62,
"4B", 3.04, 9.96, 24.04, 98.5, 98.9, 3.97, 4.35, 279109L, 43, 10.91, 1.48,
"4C", 2.85, 9.98, 24.01, 98.8, 102.9, 4.37, 3.57, 265304L, 40, 13.37, 1.47,
"4D", 2.92, 9.06, 26.46, 39.7, 23.7, 7.64, 3.66, 66608L, 45.1, 14.56, 1.87,
"4E", 1.83, 8.99, 23.99, 49, 64.1, 3.18, 2.44, 213497L, 42.2, 16.56, 1.27,
"4F", 1.82, 8.92, 23.43, 47.6, 60.4, 3.09, 2.06, 242331L, 50.2, 12.57, 1.38,
"4G", 3.02, 9.18, 24.14, 66.6, 40.6, 2.19, 0.67, 267007L, 43.6, 9.94, 1.43,
"4H", 3.3, 9.32, 24.67, 74.1, 49.8, 2.14, 0.87, 261363L, 45.1, 10.62, 1.34,
"5A", 4.24, 9.94, 24.48, 87.3, 97, 4.46, 3.6, 279133L, 36.6, 10.74, 1.62,
"5B", 3.04, 9.96, 24.04, 98.5, 98.9, 3.97, 4.35, 279109L, 43, 10.91, 1.48,
"5C", 2.85, 9.98, 24.01, 98.8, 102.9, 4.37, 3.57, 265304L, 40, 13.37, 1.47,
"5D", 3.81, 9.07, 26.67, 24.9, 94, 5.6, 3.53, 11603L, 44, 14.56, 1.87,
"5E", 2.64, 8.99, 24.01, 43.1, 63.9, 3.38, 2.55, 218471L, 35, 16.56, 1.27,
"5F", 4.61, 8.93, 23.5, 49.1, 64.7, 3.21, 2.28, 226658L, 32.8, 12.57, 1.38,
"5G", 5.74, 9.24, 24.46, 68.6, 40.3, 1.93, 0.71, 267389L, 44, 9.94, 1.43,
"5H", 3.69, 9.32, 24.65, 69.8, 48.1, 2.21, 1.2, 267144L, 44.8, 10.62, 1.34,
"6A", 4.24, 9.94, 24.48, 87.3, 97, 4.46, 3.6, 279133L, 36.6, 10.74, 1.62,
"6B", 2.09, 9.95, 24.01, 95.9, 92.8, 4.06, 3.68, 279100L, 50, 10.91, 1.48,
"6C", 2.98, 10.09, 24.36, 97.2, 106.9, 4.43, 3.34, 279099L, 43, 10.39, 1.49,
"6D", 3.81, 9.07, 26.67, 24.9, 94, 5.6, 3.53, 11603L, 44, 14.56, 1.87,
"6E", 1.83, 8.99, 23.99, 49, 64.1, 3.18, 2.44, 213497L, 42.2, 16.56, 1.27,
"6F", 1.82, 8.92, 23.43, 47.6, 60.4, 3.09, 2.06, 242331L, 50.2, 12.57, 1.38,
"6G", 3.02, 9.18, 24.14, 66.6, 40.6, 2.19, 0.67, 267007L, 43.6, 9.94, 1.43,
"6H", 3.3, 9.32, 24.67, 74.1, 49.8, 2.14, 0.87, 261363L, 45.1, 10.62, 1.34,
"7A", 2.51, 10.04, 24.35, 87.7, 91.3, 4.5, 3.36, 267716L, 39.6, 10.74, 1.62,
"7B", 2.09, 9.95, 24.01, 95.9, 92.8, 4.06, 3.68, 279100L, 50, 10.91, 1.48,
"7C", 2.98, 10.09, 24.36, 97.2, 106.9, 4.43, 3.34, 279099L, 43, 10.39, 1.49,
"7D", 8.17, 9.04, 24.88, 46.9, 90.4, 2.81, 2.25, 246979L, 34, 9.68, 1.34,
"7E", 2.63, 9, 24.7, 37.2, 74.9, 4.2, 2.99, 169175L, 38.4, 10.74, 1.67,
"7F", 7.69, 9.53, 26.14, 74.2, 67.7, 4.5, 1.3, 272332L, 58.5, 10.39, 1.59,
"7G", 3.07, 9.31, 24.19, 69.9, 42, 1.99, 0.74, 269519L, 44.3, 9.2, 1.32,
"7H", 3.7, 9.14, 22.65, 71.3, 37.1, 2.07, 0.68, 272096L, 40, 9.08, 1.38,
"8A", 2.51, 10.04, 24.35, 87.7, 91.3, 4.5, 3.36, 267716L, 39.6, 10.74, 1.62,
"8B", 3.04, 9.96, 24.04, 98.5, 98.9, 3.97, 4.35, 279109L, 43, 10.91, 1.48,
"8C", 2.18, 9.97, 24.4, 100.6, 102.7, 5.47, 4.11, 278137L, 53.8, 10.39, 1.49,
"8D", 8.17, 9.04, 24.88, 46.9, 90.4, 2.81, 2.25, 246979L, 34, 9.68, 1.34,
"8E", 2.63, 9, 24.7, 37.2, 74.9, 4.2, 2.99, 169175L, 38.4, 10.74, 1.67,
"8F", 7.69, 9.53, 26.14, 74.2, 67.7, 4.5, 1.3, 272332L, 58.5, 10.39, 1.59,
"8G", 3.07, 9.31, 24.19, 69.9, 42, 1.99, 0.74, 269519L, 44.3, 9.2, 1.32,
"8H", 3.7, 9.14, 22.65, 71.3, 37.1, 2.07, 0.68, 272096L, 40, 9.08, 1.38,
"9A", 2.58, 10.06, 24.95, 95.2, 108.4, 4.62, 3.98, 279113L, 38.9, 11.82, 1.45,
"9B", 2.09, 9.95, 24.01, 95.9, 92.8, 4.06, 3.68, 279100L, 50, 10.91, 1.48,
"9C", 2.18, 9.97, 24.4, 100.6, 102.7, 5.47, 4.11, 278137L, 53.8, 10.39, 1.49,
"9D", 2.16, 8.96, 24.3, 42, 53, 3.19, 2.1, 174271L, 50.3, 9.68, 1.34,
"9E", 1.7, 9.02, 24.72, 36.1, 63.4, 3.97, 2.55, 159046L, 55.9, 10.74, 1.67,
"9F", 6.8, 9.51, 26.15, 74.4, 73.9, 3.3, 1.11, 271503L, 51.3, 10.39, 1.59,
"9G", 1.95, 9.39, 23.9, 44.4, 42, 3.38, 0.69, 261124L, 68.2, 9.2, 1.32,
"9H", 4.28, 8.85, 20.65, 71.3, 37.5, 1.18, 0.69, 271303L, 34.2, 9.08, 1.38,
"10A", 2.58, 10.06, 24.95, 95.2, 108.4, 4.62, 3.98, 279113L, 38.9, 11.82, 1.45,
"10B", 2.09, 9.95, 24.01, 95.9, 92.8, 4.06, 3.68, 279100L, 50, 10.91, 1.48,
"10C", 2.98, 10.09, 24.36, 97.2, 106.9, 4.43, 3.34, 279099L, 43, 10.39, 1.49,
"10D", 2.16, 8.96, 24.3, 42, 53, 3.19, 2.1, 174271L, 50.3, 9.68, 1.34,
"10E", 1.7, 9.02, 24.72, 36.1, 63.4, 3.97, 2.55, 159046L, 55.9, 10.74, 1.67,
"10F", 6.8, 9.51, 26.15, 74.4, 73.9, 3.3, 1.11, 271503L, 51.3, 10.39, 1.59,
"10G", 1.95, 9.39, 23.9, 44.4, 42, 3.38, 0.69, 261124L, 68.2, 9.2, 1.32,
"10H", 4.28, 8.85, 20.65, 71.3, 37.5, 1.18, 0.69, 271303L, 34.2, 9.08, 1.38,
"11A", 2.66, 10, 24.92, 113, 111.9, 4.75, 3.21, 270193L, 39.8, 11.82, 1.45,
"11B", 3.14, 10, 24, 96.9, 108, 4.48, 3.76, 279119L, 38.5, 13.37, 1.47,
"11C", 2.18, 9.97, 24.4, 100.6, 102.7, 5.47, 4.11, 278137L, 53.8, 10.39, 1.49,
"11D", 8.17, 9.04, 24.88, 46.9, 90.4, 2.81, 2.25, 246979L, 34, 9.68, 1.34,
"11E", 2.63, 9, 24.7, 37.2, 74.9, 4.2, 2.99, 169175L, 38.4, 10.74, 1.67,
"11F", 7.69, 9.53, 26.14, 74.2, 67.7, 4.5, 1.3, 272332L, 58.5, 10.39, 1.59,
"11G", 3.07, 9.31, 24.19, 69.9, 42, 1.99, 0.74, 269519L, 44.3, 9.2, 1.32,
"11H", 3.7, 9.14, 22.65, 71.3, 37.1, 2.07, 0.68, 272096L, 40, 9.08, 1.38,
"12A", 2.66, 10, 24.92, 113, 111.9, 4.75, 3.21, 270193L, 39.8, 11.82, 1.45,
"12B", 3.14, 10, 24, 96.9, 111.9, 4.48, 3.76, 279119L, 38.5, 13.37, 1.47,
"12C", 2.92, 9.06, 26.46, 39.7, 23.7, 7.64, 3.66, 66608L, 45.1, 14.56, 1.87,
"12D", 2.16, 8.96, 24.3, 42, 53, 3.19, 2.1, 174271L, 50.3, 9.68, 1.34,
"12E", 1.7, 9.02, 24.72, 36.1, 63.4, 3.97, 2.55, 159046L, 55.9, 10.74, 1.67,
"12F", 6.8, 9.51, 26.15, 74.4, 73.9, 3.3, 1.11, 271503L, 51.3, 10.39, 1.59,
"12G", 1.95, 9.39, 23.9, 44.4, 42, 3.38, 0.69, 261124L, 68.2, 9.2, 1.32,
"12H", 4.28, 8.85, 20.65, 71.3, 37.5, 1.18, 0.69, 271303L, 34.2, 9.08, 1.38
)
)
bacteria <- data.frame (tibble::tribble(
~SampleID, ~NMetabolism, ~PMetabolism,
"1A", 133701L, 294489L,
"1B", 54190L, 102499L,
"1C", 55290L, 133608L,
"1D", 75913L, 212066L,
"1E", 81955L, 266949L,
"1F", 182560L, 309043L,
"1G", 42296L, 54327L,
"1H", 137343L, 267428L,
"2A", 227608L, 341054L,
"2B", 163387L, 207101L,
"2C", 157492L, 227493L,
"2D", 68277L, 153121L,
"2E", 120538L, 329198L,
"2F", 59369L, 143889L,
"2G", 158530L, 378924L,
"2H", 150267L, 278892L,
"3A", 112519L, 287163L,
"3B", 11227L, 24351L,
"3C", 31216L, 63553L,
"3D", 32189L, 77942L,
"3E", 62645L, 102131L,
"3F", 49652L, 91142L,
"3G", 49571L, 94079L,
"3H", 7347L, 15111L,
"4A", 383032L, 599075L,
"4B", 124633L, 200077L,
"4C", 60031L, 76606L,
"4D", 94988L, 168159L,
"4E", 107165L, 187926L,
"4F", 3381L, 17404L,
"4G", 131973L, 405516L,
"4H", 445225L, 875253L,
"5A", 85139L, 310769L,
"5B", 54832L, 119896L,
"5C", 16492L, 68252L,
"5D", 81175L, 133072L,
"5E", 115144L, 290010L,
"5F", 156474L, 306656L,
"5G", 70400L, 185091L,
"5H", 74867L, 266514L,
"6A", 301771L, 431365L,
"6B", 208568L, 395787L,
"6C", 63949L, 109825L,
"6D", 75725L, 139641L,
"6E", 90398L, 144915L,
"6F", 143555L, 222296L,
"6G", 39877L, 179796L,
"6H", 282072L, 696716L,
"7A", 208124L, 486444L,
"7B", 39022L, 101733L,
"7C", 52457L, 163436L,
"7D", 195999L, 333842L,
"7E", 155609L, 351031L,
"7F", 174867L, 395995L,
"7G", 38516L, 71823L,
"7H", 19470L, 82602L,
"8A", 217283L, 331032L,
"8B", 304498L, 507132L,
"8C", 80365L, 115648L,
"8D", 186219L, 346164L,
"8E", 122168L, 202590L,
"8F", 291842L, 523773L,
"8G", 164587L, 379685L,
"8H", 204463L, 449932L,
"9A", 53297L, 152060L,
"9B", 112696L, 269766L,
"9C", 34916L, 82335L,
"9D", 200406L, 424424L,
"9E", 281516L, 694297L,
"9F", 231181L, 476470L,
"9G", 37318L, 229367L,
"9H", 50323L, 138380L,
"10A", 102959L, 199604L,
"10B", 125225L, 180575L,
"10C", 37514L, 79682L,
"10D", 91792L, 184491L,
"10E", 82027L, 143258L,
"10F", 121089L, 151886L,
"10G", 33769L, 75082L,
"10H", 29924L, 71685L,
"11A", 10260L, 36966L,
"11B", 9212L, 25425L,
"11C", 75664L, 178144L,
"11D", 134910L, 236403L,
"11E", 116286L, 191544L,
"11F", 52227L, 121413L,
"11G", 22459L, 152627L,
"11H", 110001L, 313921L,
"12A", 221839L, 318466L,
"12B", 119808L, 189232L,
"12C", 143928L, 197004L,
"12D", 171916L, 347141L,
"12E", 82504L, 202369L,
"12F", 152046L, 262976L,
"12G", 375520L, 770853L,
"12H", 215221L, 595597L
)
)
metadata <- metadata[,-1]
bacteria <- bacteria[,-1]
library(RColorBrewer)
res1 <- cor.mtest(bind_cols(bacteria[, -1],metadata[, -1]), conf.level = 0.95)
#> Error: Argument 1 must have names
corrr::correlate(bind_cols(metadata[, -1], bacteria[, -1])) %>%
filter(rowname %in% colnames(metadata)) %>%
select(one_of(c("rowname", colnames(bacteria)[-1]))) %>%
as.data.frame() %>%
column_to_rownames("rowname") %>%
as.matrix() %>%
corrplot::corrplot(is.corr = FALSE, p.mat = res1$p[8:14, 1:7], insig = "label_sig", pch.col = "white",
pch = "p<.05", pch.cex = .5, tl.col = "black", tl.srt = 45, col= brewer.pal (n=10, name= "PRGn"))
#> Error: Argument 2 must have names
Created on 2021-06-16 by the reprex package (v0.3.0)