※ 引述《girl5566 (5566520)》之铭言： : 文章分类提示: : - 问题: 当你想要问问题时，请使用这个类别 : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 新手(没写过程式，R 是我的第一次) : [问题叙述]: : 目前有很多个椭圆形和矩形，想滤掉椭圆形与矩形相重合的矩形，如代码中的蓝色矩形 : 不知道有什麽好方法可以做这件事情呢!? : [程式范例]: : d <- data.frame(x = c(8,5,2,5), y = c(5,9,5,1)) : plot(d, : xlim=c(1, 10), : ylim=c(1,20)) : bb <- data.frame(x = 1:10,y = 10:19) : points(bb,col="blue") : theta <- seq(0, 2 * pi, length=(30)) : x <- 100 + 50 * cos(theta) : y <- 300 + 100 * sin(theta) : plot(x, y, xlim=c(1, 500), : ylim=c(1,500),type = "l") : i <- 4*(0:10) : rect(80, 280, 120, 320, col = "blue") : rect(380, 280, 420, 320, col = "red") : [环境叙述]: : : R 3.2.2 win7 64bit : [关键字]: : 如果你想问的是，用数学的角度判断是否在椭圆内部 椭圆的方程式是 x^2 / a^2 + y^2 / b^2 < 1 e1 <- function(c) return((c[1]-100)^2/50^2 + (c[2]-300)^2/100^2 < 1) # 这是矩形的四个角座标 r1 <- matrix(c(80,80,120,120,280,320,280,320),4) # [,1] [,2] # [1,] 80 280 # [2,] 80 320 # [3,] 120 280 # [4,] 120 320 apply(r1, 1, e1) # [1] TRUE TRUE TRUE TRUE 这里要看你的「重合」是指四个角都在内部，或只有一个在就算 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.127.245.66 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1449671470.A.AC4.html