Is this what you are trying to do?
library(purrr)
V1 <- list(
c(149.6, 251, 161, 244.3, 760.7, 185.5),
c(26.434432, 26.192469, 26.379851, 26.158357, 25.848118, 26.676528),
c(251, 161, 244.3, 760.7, 185.5, 44.3),
c(26.192469, 26.379851, 26.158357, 25.848118, 26.676528, 26.655914),
c(161, 244.3, 760.7, 185.5, 44.3, 3.8))
V2 <- list(
c(26.379851, 26.158357, 25.848118, 26.676528, 26.655914, 26.85959),
c(244.3, 760.7, 185.5, 44.3, 3.8, 0.5),
c(26.158357, 25.848118, 26.676528, 26.655914, 26.85959, 27.271498),
c(760.7, 185.5, 44.3, 3.8, 0.5, 2.2),
c(25.848118, 26.676528, 26.655914, 26.85959, 27.271498, 0))
Cors <- map2(.x = V1, .y = V2, .f = ~cor(.x, .y))
Cors
#> [[1]]
#> [1] 0.3245963
#>
#> [[2]]
#> [1] -0.04686047
#>
#> [[3]]
#> [1] -0.09022814
#>
#> [[4]]
#> [1] -0.1934669
#>
#> [[5]]
#> [1] 0.4059379
#Confirm two cases manually
cor(V1[[1]], V2[[1]])
#> [1] 0.3245963
cor(V1[[5]], V2[[5]])
#> [1] 0.4059379
Created on 2021-11-30 by the reprex package (v2.0.1)