下面是一个不需要额外软件包的简单方法：

library(corrplot)
Dat<-cor(iris[,1:4])[1:4,1, drop=FALSE]
PlotDat<-cbind(Dat,Dat,Dat)
corrplot(PlotDat, cl.pos='n')

如果要完全控制绘图，可以使用ggplot2执行类似的操作

library(tidyverse)
as.data.frame(cor(iris[1:4])[,rep(1, 3)]) %>%
  setNames(1:3) %>%
  rownames_to_column() %>%
  pivot_longer(-rowname) %>%
  mutate(rowname = factor(rowname, rev(unique(rowname)))) %>%
  ggplot(aes(name, rowname)) +
  geom_tile(fill = 'white', color = 'black') +
  geom_point(aes(size = abs(value), color = value)) +
  coord_equal() +
  scale_x_discrete(NULL, labels = rep('Sepal.Length', 3), expand = c(0, 0),
                   position = 'top') +
  scale_y_discrete(NULL, expand = c(0, 0)) +
  scale_color_gradientn(colors = c('red3', 'red', 'white', '#4080ce', '#063062'), 
                        limits = c(-1, 1), guide = 'none') +
  scale_size_continuous(limits = c(0, 1), range = c(0, 20), guide = 'none') +
  theme(axis.text.x = element_text(angle = 90),
        plot.margin = margin(20, 20, 20, 20))