Построение geom_ar c () поверх графика geom_point ()

Question

Я пытаюсь построить ar c под углом 90 градусов от оси x к оси y как часть графика geom_point (), который у меня уже есть с целью создания двух частей графика внутри ar c и снаружи.

Это данные, которые у меня есть:

set.seed(1)
vector1 <- sample(1:500,250, replace = T)
vector2 <- replicate(250,min(sample(200,2,replace=TRUE)))

so.df <- data.frame(vector1, vector2)
so.df

ggplot(data = so.df, aes(x=vector2, y=vector1)) + geom_point()

Я бы хотел, чтобы ar c до go от 100 по оси Y до 100 по оси x -ось с радиусом 10.

Если я могу уточнить что-то еще, спрашивайте.

Спасибо.

Answer 1

Вы можете сделать необходимые координаты, используя немного геометрии, а затем добавить их в дополнительные geom_line:

set.seed(1)
vector1 <- sample(1:500,250, replace = T)
vector2 <- replicate(250,min(sample(200,2,replace=TRUE)))

so.df <- data.frame(vector1, vector2)
so.df

arc_data <- data.frame(
  x = 0:100
) %>%
  mutate(y = sqrt(100^2 - x^2))

ggplot(data = so.df, aes(x=vector2, y=vector1)) + geom_point() +
  geom_line(aes(x, y), data = arc_data, col = "red")

введите описание изображения здесь

При этом, я не уверен, как что-то с радиусом 10 достигает 100 на обеих осях?