从一系列字母中绘制每个单独的字符

时间:2016-05-13 12:07:54

标签: r scatter-plot

所以我有一串字母,但总共只有4个独特的字母。让我们说G,T,A,C。我想在散点图中绘制每个字母的每个出现位置,以便列出序列,并且对于每个字母,在其上方有一个与该字母对应的点。像这样......

enter image description here

字符串可能的开头是,

sample(LETTERS[1:4], 20, replace = T)

1 个答案:

答案 0 :(得分:1)

set.seed(1)
x <- sample(LETTERS[1:4], 20, replace = TRUE)

plot(as.numeric(factor(x)), pch=3, xaxt="n", yaxt="n") 
axis(1, at=seq_along(x), labels=x, cex.axis=0.75, lwd=0, lwd.ticks=1)
axis(2, at=seq_along(x))

哪个产生

enter image description here

as.numeric(factor(.))用于将字母转换为数字以便于绘图

xaxtyaxt用于取消默认轴标签 (您可以使用axes=FALSE,然后在结尾处使用box()

pch用于给出十字符号 - 尝试plot(1:22, pch=1:22, cex=2, col=1:22)

axis用于添加轴标签,其中at用于指定位置

cex.axis调整文字标签的大小

lwd禁止在框顶部重绘轴线,lwd.ticks允许仍然绘制刻度线(如果省略并使用lwd=0则刻度线也将是中省略)