R цвет точек разброса точек на основе значений

Question

Я могу построить график рассеяния и покрасить точки на основе одного критерия, то есть я могу покрасить все точки> = 3 как красные, а остальные - как черные. Я хотел бы, чтобы иметь возможность цветовых точек таким образом:

1. = 3 красный цвет

2. < = 1 цвет синий
3. Остальное как черный

Код, который у меня ниже, завершает шаги 1 и 3, но я не уверен, как включить второй аргумент шага 2

data<- read.table('sample_data.txtt', header=TRUE, row.name=1) 
pos<- data$col_name1 
cn<- data$col_name2 
plot(pos,cn, ylim=c(0,5), col="blue") 
plot(pos,cn, col=ifelse(cn>=3,"red","black"), ylim=c(0,10)) 

Любая помощь будет большой !!! Заранее спасибо

Answer 1

Лучшая вещь, чтобы сделать здесь, чтобы добавить столбец объекта данных для представления цвета точки. Затем обновите его разделы путем фильтрации.

data<- read.table('sample_data.txtt', header=TRUE, row.name=1) 
# Create new column filled with default colour 
data$Colour="black" 
# Set new column values to appropriate colours 
data$Colour[data$col_name2>=3]="red" 
data$Colour[data$col_name2<=1]="blue" 
# Plot all points at once, using newly generated colours 
plot(data$col_name1,data$col_name2, ylim=c(0,5), col=data$Colour, ylim=c(0,10)) 

Должно быть понятно, как приспособить это для участков с большим количеством цветов & условий.

Answer 2

Кроме того, было бы работать, чтобы просто указать ifelse() дважды:

plot(pos,cn, col= ifelse(cn >= 3, "red", ifelse(cn <= 1,"blue", "black")), ylim = c(0, 10)) 

Answer 3

Это лучше создать новый переменный фактор, используя разрез(). Я добавил несколько вариантов, используя ggplot2.

df <- data.frame(
    X1=seq(0, 5, by=0.001), 
    X2=rnorm(df$X1, mean = 3.5, sd = 1.5) 
) 

# Create new variable for plotting 
df$Colour <- cut(df$X2, breaks = c(-Inf, 1, 3, +Inf), 
       labels = c("low", "medium", "high"), 
       right = FALSE) 

### Base Graphics 

plot(df$X1, df$X2, 
    col = df$Colour, ylim = c(0, 10), xlab = "POS", 
    ylab = "CS", main = "Plot Title", pch = 21) 

plot(df$X1,df$X2, 
    col = df$Colour, ylim = c(0, 10), xlab = "POS", 
    ylab = "CS", main = "Plot Title", pch = 19, cex = 0.5) 

# Using `with()` 

with(df, 
    plot(X1, X2, xlab="POS", ylab="CS", col = Colour, pch=21, cex=1.4) 
    ) 

# Using ggplot2 
library(ggplot2) 

# qplot() 
qplot(df$X1, df$X2, colour = df$Colour) 

# ggplot() 
p <- ggplot(df, aes(X1, X2, colour = Colour)) 
p <- p + geom_point() + xlab("POS") + ylab("CS") 
p 

p + facet_grid(Colour~., scales = "free")