R 复杂热图中的行注释字体

我有一张热图，数据框里有一些基因和值。我还有一个向量，其中的名称与df1相同，但向量中有另一个标识符。我想用第一个df生成一个热图，并使用向量中的标识符作为行注释。我已经走了这么远：

df1

                               0-dpi      1-dpi     7-dpi    14-dpi      22-dpi
TRINITY_DN0_c0_g1_i2      1.27584408  0.5872404  1.780178  1.414362  1.53341851
TRINITY_DN0_c0_g1_i8      1.81458019  1.9002198  1.902848  1.728553  1.68079706
TRINITY_DN10214_c0_g1_i2 -2.34774378 -2.9194079 -3.211677 -2.885869 -2.04617227
TRINITY_DN10214_c0_g1_i6 -2.14867876 -1.5794957 -1.577811 -2.485095 -1.44172768
TRINITY_DN1038_c0_g1_i4   0.03163921  0.7375222  2.037936  2.462830  0.04559793
TRINITY_DN10462_c0_g1_i2 -2.63973533 -2.8039350 -2.481144 -2.698932 -1.76284020

vector

TRINITY_DN0_c0_g1_i2     TRINITY_DN0_c0_g1_i8 TRINITY_DN10214_c0_g1_i2
                   "ERF"                     "B3"            "MYB_related"
TRINITY_DN10214_c0_g1_i6  TRINITY_DN1038_c0_g1_i4 TRINITY_DN10462_c0_g1_i2
           "MYB_related"                "G2-like"                "G2-like"

我成功地制作了热图，但无法更改行批注的字体大小。有人知道怎么做吗？代码如下：

ha = HeatmapAnnotation(text = anno_text(vector), which = "row", gp = gpar(fontsize = 5, fontfamily = "sans", fontface = "bold"))

heat.gen.k = Heatmap(tf.log, width = unit(4, "cm"),
                   km = 6, 
                   cluster_columns = F, 
                   show_row_names = F, 
                   row_title_rot = 0, 
                   row_title_gp=gpar(fontsize=5),
                   row_gap = unit(1.25, "mm"), 
                   name = "Log2FC", 
                   column_title = "Resistant - Susceptible",
                   column_title_gp = gpar(fontfamily = "sans", fontsize = 16), 
                   col = heat.col,
                   right_annotation = ha)