所以我有一串字母,但总共只有4个独特的字母。让我们说G,T,A,C。我想在散点图中绘制每个字母的每个出现位置,以便列出序列,并且对于每个字母,在其上方有一个与该字母对应的点。像这样......
字符串可能的开头是,
sample(LETTERS[1:4], 20, replace = T)
答案 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))
哪个产生
as.numeric(factor(.))
用于将字母转换为数字以便于绘图
xaxt
和yaxt
用于取消默认轴标签
(您可以使用axes=FALSE
,然后在结尾处使用box()
)
pch
用于给出十字符号 - 尝试plot(1:22, pch=1:22, cex=2, col=1:22)
axis
用于添加轴标签,其中at
用于指定位置
cex.axis
调整文字标签的大小
lwd
禁止在框顶部重绘轴线,lwd.ticks
允许仍然绘制刻度线(如果省略并使用lwd=0
则刻度线也将是中省略)