如何在R中基于给定数据表绘制自定义序列Logo图？

方案一：用ggseqlogo快速实现（推荐） #

ggseqlogo是专门生成序列Logo的工具，支持直接导入自定义频率数据，完全匹配你的需求。

1. 安装并加载依赖包

# 首次运行先安装
install.packages(c("ggplot2", "ggseqlogo"))

# 加载包
library(ggplot2)
library(ggseqlogo)

2. 适配数据格式
   把你的数据列名改成ggseqlogo能识别的标准字段：

logo_df <- data
colnames(logo_df) <- c("pos", "letter", "freq")

3. 生成序列Logo图
   指定method = "custom"来启用自定义频率模式，同时调整坐标轴标签匹配你的需求：

ggseqlogo(logo_df, method = "custom") +
  labs(x = "Cns", y = "rate") +
  theme_bw()

运行后每个Cns位置下的variable字符大小会自动对应rate数值，同一位置的字符会按频率堆叠，完全符合序列Logo的经典样式。

如果需要调整字符样式，比如字体或配色，可以添加额外参数：

ggseqlogo(logo_df, method = "custom", 
          font = "roboto_bold", 
          col_scheme = "hydrophobicity") +
  labs(x = "Cns", y = "rate") +
  theme_minimal()

方案二：纯ggplot2手动绘制 #

如果不想用专用包，也可以用geom_text实现基础效果，通过size参数绑定rate控制字符大小：

ggplot(data, aes(x = Cns, y = rate, label = variable, size = rate)) +
  geom_text(color = "black") +
  scale_size_continuous(range = c(3, 15)) + # 自定义大小范围避免字符过小或过大
  labs(x = "Cns", y = "rate") +
  theme_bw()

注意这种方法下同一Cns位置的字符会重叠，需要手动给每个位置的字符添加y轴偏移才能实现堆叠效果，适合简单场景。

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