compile R online

Language: Layout:

joke <- 11

x <- c(1.5, 2.1, 2.5, 5.5, 6.0, 6.5, 8.1, 9.0, 9.5, 2.4, 4.0, 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 = 3.1, y = 5.5)
pBlue  <- list(x = 6.5, y = 3.1)
pRed   <- list(x = 9.5, y = 7.1)

df$color <- 'black'
df$sym <- 20

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

plot(
    x, y, 
    pch = df$sym, 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'
        )
    )
)
        
subset(df, df$color == 'blue')
        
plot(
    x, y, 
    pch = df$sym, 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.59 sec, cpu time: 0.38 sec, memory peak: 35 Mb, absolute service time: 0.6 sec