在R中着色帶狀圖

Question

如何使用ifelse和點陣的stripchart()更改某些點的顏色？ 我可以使用stripchart(d, method="stack", offset=1, pch=19, at=1.0) ：

我還可以更改使用參數繪圖的顏色col ，但我試圖做更復雜的東西，像這樣： ifelse(d>40, "Red", "Black") （在這個例子中，小於或等於40的所有點都是黑色的，一切都高於40是紅色的。）我該如何申請ifelse這個情節？

Answer 1

也許最簡單的事情是編寫一個簡單的腳本來進行數學運算，並使用標准plot（）函數繪制帶狀圖

#generate some random numeric data     
set.seed(100)
    d <- sample(10:80, size = 150, replace = TRUE)

# count re-occurences of the same value (for plotting on the y-axis)
td <- do.call(rbind, lapply(1:length(d), (function(i){ 
      c(d[i], 1+ sum(d[1:i] == d[i]))})))

# plot
plot(x= td[,1], y = td[,2], 
         pch=19, ylim = c(0, 20),
         col = ifelse(td[,1]>49, "red", "blue"))