compile R online

Language: Layout:

x <- c(1.5, 2.1, 2.5, 5.5, 6.0, 6.5, 8.1, 9.0, 9.5, 2.4, 4.5, 5.0, 7.6, 6.7, 3.1)
y <- c(8.0, 7.6, 9.1, 2.3, 1.7, 3.1, 6.7, 5.6, 7.1, 6.5, 3.5, 2.0, 8.0, 5.7, 5.5)

df <- data.frame(x, y)

pGreen <- list(x = 2.1, y = 7.6)
pBlue  <- list(x = 4.5, y = 3.5)
pRed   <- list(x = 8.1, y = 6.7)

df$color <- 'black'

for (i in 1:nrow(df)){
    if (all(df[i, c('x', 'y')] == pGreen)) {
        df[i, 'color'] <- 'green'
    } else if (all(df[i, c('x', 'y')] == pBlue)) {
        df[i, 'color'] <- 'blue'
    } else if (all(df[i, c('x', 'y')] == pRed)) {
        df[i, 'color'] <- 'red'
    }
}

#plot(
#    x, y, 
#    pch = 20, col = df$color, 
#    xlim = c(min(df$x) * 0.80, max(df$x) * 1.20), ylim = c(min(df$y) * 0.80, max(df$y) * 1.20), 
#    xaxt = 'n', yaxt = 'n', 
#    ann = FALSE, cex = 1.5
#)
        
df$toGreen <- 0
df$toBlue  <- 0
df$toRed   <- 0
        
norma <- function(p1, p2){
    res <- (p1$x - p2$x) ** 2 + (p1$y - p2$y) ** 2
    res <- sqrt(res)
    return(res)
}

df$toGreen <- norma(df[, c('x', 'y')], pGreen)
df$toBlue  <- norma(df[, c('x', 'y')], pBlue)
df$toRed   <- norma(df[, c('x', 'y')], pRed)
        
df$minDist <- apply(df[, c('toGreen', 'toBlue', 'toRed')], 1, min)

df$color <- ifelse(df$minDist == df$toGreen, 'green', ifelse(df$minDist == df$toBlue, 'blue', ifelse(df$minDist == df$toRed, 'red', 'black')))
df
        
plot(
    x, y, 
    pch = 20, col = df$color, 
    xlim = c(min(df$x) * 0.80, max(df$x) * 1.20), ylim = c(min(df$y) * 0.80, max(df$y) * 1.20), 
    xaxt = 'n', yaxt = 'n', 
    ann = FALSE, cex = 1.5
)

[ + ] Show input
Absolute running time: 0.42 sec, cpu time: 0.37 sec, memory peak: 35 Mb, absolute service time: 0.42 sec