Plotting the Locus of Points with Squared Distance 1 from Origin in R

To plot the locus of points whose squared distance from the origin is 1 in R, we can use the following code:

library(ggplot2)

# Create a data frame with x and y coordinates
df <- data.frame(x = c(-1, -1, 1, 1),
                 y = c(-1, 1, -1, 1))

# Create a scatter plot
ggplot(df, aes(x, y)) +
  geom_point() +
  coord_fixed() +
  xlim(-2, 2) +
  ylim(-2, 2) +
  theme_minimal() +
  ggtitle('Locus of points whose squared distance from the origin is 1')

This code will create a scatter plot of four points (-1, -1), (-1, 1), (1, -1), and (1, 1), representing the locus of points whose squared distance from the origin is 1. The coord_fixed() function is used to maintain equal aspect ratio in the plot. The xlim() and ylim() functions set the x and y-axis limits to -2 and 2, respectively. The theme_minimal() function is used to apply a minimalistic theme to the plot. Finally, the ggtitle() function is used to add a title to the plot.