用 circlize 绘图

Question

我在图书馆 circlize 工作，我制作了情节。下面你可以看到代码

library(circlize)
random_values<-c(500:100)

random_sample<-sample(random_values,15)

col.pal = c(BMW = "red",
            Honda = "green",
            Nissan = "blue",
            Tesla = "grey",
            Toyota = "maroon",
            Phoenix = "grey",
            Tucson = "black",
            Sedona = "grey"
              )
Sample_Matrix <- matrix( 
                    random_sample,
                    nrow = 5,
          dimnames = list(c("BMW","Honda","Nissan","Tesla","Toyota"),
                          c("Phoenix","Tucson","Sedona")))

chordDiagram(Sample_Matrix,grid.col = col.pal)

现在我想在这个情节上使用这个标题上的标题。我经常使用 ggplot2 并且我有一个与 ggplot2 相同字体的标题来生成绘图。谁能帮我解决这个问题？

Answer 1

您可以使用此代码添加标题：

chordDiagram(Sample_Matrix,grid.col = col.pal, annotationTrackHeight = c(0.03, 0.01), title(main = "title"))

输出：

用 circlize 绘图

Plot with circlize

r

ggplot2