Постройте каждый отдельный символ из последовательности букв

Question

Итак, у меня есть строка букв, но всего 4 уникальных буквы. Скажем, G, T, A, C. Я хочу построить каждое вхождение каждой буквы в диаграмме рассеяния, так что последовательность будет указана, и для каждой буквы над ней будет точка, соответствующая этой букве. Что-то вроде этого ...

Возможным начало для строки символов было бы,

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

Answer 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 тогда клещи также будут опущены)