R中的X和Y坐标有没有一种明显的方法来删除距离给定点一定半径的数据？

# 创建示例数据
x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 5, 6)

# 给定点的坐标
given_point <- c(3, 4)

# 计算每个数据点与给定点之间的距离
distances <- sqrt((x - given_point[1])^2 + (y - given_point[2])^2)

# 设置半径阈值
radius <- 2

# 筛选出距离小于给定半径的数据点的索引
selected_points <- which(distances < radius)

# 删除选定的数据点
x <- x[-selected_points]
y <- y[-selected_points]

# 打印结果
print(x)
print(y)