Stampa con colori condizionali in base ai valori in R

Question

Desidero stampare un grafico con colori diversi in base ai valori. Ho scritto il codice qui sotto,

np_graph <- data.frame(C1 = -5:5, C2 = -5:5) 
x=np_graph2$C1 
y=np_graph2$C2 
plot(x,y,xlab="PC1",ylab="PC2") 

Ora, se il valore di X è> 0, allora che valore dovrebbe essere di colore verde (nel grafico). se il valore di Y è> 0, allora quel valore dovrebbe essere in rosso (nel grafico).

Qualcuno può aiutarmi in questo?

Answer 1

L'argomento col imposterà i colori, è possibile utilizzarlo in combinazione con un'istruzione ifelse. Vedi ?plot per maggiori dettagli.

# using base plot 
plot(x,y,xlab="PC1",ylab="PC2", col = ifelse(x < 0,'red','green'), pch = 19) 

di fare la stessa cosa in ggplot2.

#using ggplot2 
library(ggplot2) 
ggplot(np_graph) + geom_point(aes(x = C1, y = C2, colour = C1 >0)) + 
    scale_colour_manual(name = 'PC1 > 0', values = setNames(c('red','green'),c(T, F))) + 
    xlab('PC1') + ylab('PC2')