Punkty rozproszenia w kolorze R na podstawie wartości

Question

Potrafię wykreślić wykres punktowy i pokolorować punkty na podstawie jednego kryterium, tj. Mogę pokolorować wszystkie punkty> = 3 jako czerwone, a pozostałe jako czarne. chciałbym móc punktów koloru w ten sposób:

1. = 3 kolor czerwony

2. < = 1 kolor niebieski
3. Reszta jako czarne

Poniższy kod kończy etap 1 i 3, ale nie jestem pewien, jak włączyć drugi argument kroku 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)) 

Każda pomoc będzie świetna !!! góry dzięki

Answer 1

najlepszą rzeczą do zrobienia jest, aby dodać kolumnę do obiektu danych do reprezentowania koloru punktu. Następnie zaktualizuj sekcje, filtrując.

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

To powinno być jasne, w jaki sposób dostosować to dla działek o więcej kolorów & warunkach.

Answer 2

także, że to działa tylko określić ifelse() dwukrotnie:

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

Answer 3

Lepiej utworzyć nową zmienną przy użyciu współczynnika cięcie(). Dodałem kilka opcji, używając również 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")