在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"))

​

​