0と1を表現するためにRのカラードットをプロットする

Question

私は緑と赤のドットの1つの行として1と0の行をプロットすることに興味があります。私はRに新しく、これを行うプロットの解決策を見いださなかった。例：numbers = c(1,0,0,1,1,1,1,1,1,0,1,0,1,0)。 (green dot, red dot, red dot, green dot, green dot,...)

Answer 1

plot(x = seq_along(numbers), 
    y = rep(1, length(numbers)), 
    pch = 19, 
    col = c("red","green")[1 + (numbers == 1)], 
    ann = FALSE, 
    axes = FALSE)