如何在gggenomes包中设置bin标签为斜体？

gggenomes的geom_bin_label生成的是独立的文本标注，而非ggplot常规的轴标签，所以你之前设置theme(axis.text.y = element_text(face = "italic"))不会生效。可以通过以下两种方法实现斜体效果：

方法一：直接设置fontface参数 #

geom_bin_label继承自ggplot2的geom_text，支持fontface参数，直接指定斜体即可：

p1 <- gggenomes(seqs = seqs, genes = genes, links = links) +
    geom_seq() +
    geom_gene(aes(fill = ifelse(is.na(Orthogroup) & nrow(genes) == 1, "NA", Orthogroup)), stroke = 0.5) +
    geom_bin_label(size = 4.5, fontface = "italic") +  # 新增fontface参数设置斜体
    geom_link()+
    scale_x_continuous(labels = function(x) { 
      x <- x + region$start 
      round(x)}) +
    labs(fill = "Orthogroups") +
    scale_fill_manual(values = setNames(genes$color, genes$Orthogroup))+
    theme(legend.text=element_text(size=13),
          legend.title = element_text(size=15),
          axis.text.x=element_text(size=12))

方法二：使用表达式解析（适合复杂文本格式） #

如果需要更灵活的格式控制，可以将标签转为表达式并开启解析功能：

p1 <- gggenomes(seqs = seqs, genes = genes, links = links) +
    geom_seq() +
    geom_gene(aes(fill = ifelse(is.na(Orthogroup) & nrow(genes) == 1, "NA", Orthogroup)), stroke = 0.5) +
    geom_bin_label(aes(label = paste0("italic('", bin, "')")), size = 4.5, parse = TRUE) +  # 构造斜体表达式并解析
    geom_link()+
    scale_x_continuous(labels = function(x) { 
      x <- x + region$start 
      round(x)}) +
    labs(fill = "Orthogroups") +
    scale_fill_manual(values = setNames(genes$color, genes$Orthogroup))+
    theme(legend.text=element_text(size=13),
          legend.title = element_text(size=15),
          axis.text.x=element_text(size=12))

注：上述代码假设物种名存储在seqs数据框的bin列中，若实际列名不同，替换为对应列名即可。

内容的提问来源于stack exchange，提问作者Lilly