ट्रांसफ़ॉर्म किए गए रेडियली सेपरेबल डेटा का विज़ुअलाइज़ेशन

#transform data
df1 <- data.frame(x1sq = df$x1^2, x2sq = ___, y = df$y)

#plot data points in the transformed space
plot_transformed <- ggplot(data = df1, aes(x = ___, y = x___, color = y)) + 
    geom_point()+ guides(color = "none") + 
    scale_color_manual(values = c("red", "blue"))

#add decision boundary and visualize
plot_decision <- plot_transformed + geom_abline(slope = -1, intercept = ___)
plot_decision