R 如何根据先前的正方形递归创建正方形

发布于05月14日

我有一个df，其中包含创建正方形的坐标:

library(ggplot2)

df = data.frame(xmin = 1, xmax = 3, ymin = 10, ymax = 15)

ggplot(df) +
        geom_rect(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax), fill = "green")

现在，我想有一个函数，当它被赋予df时，它会在df上添加新行，有5个原始正方形的zoom 版本，如下所示:

这意味着，新正方形中绿色正方形的面积相当于原始正方形的5/9.

我还想递归地制作它，这样，考虑到df的zoom 版本(5个正方形，如第二幅图)，它给出:

等等

推荐答案

使用递归方法，您可以执行以下操作:

square5 <- function(xmin, xmax, ymin, ymax) {
  x <- data.frame(
    xmin = c(0, rep(1/3, 3), 2/3),
    xmax = c(0, rep(1/3, 3), 2/3) + 1/ 3,
    ymin = c(1/3, 0, 1/3, 2/3, 1/3),
    ymax = c(1/3, 0, 1/3, 2/3, 1/3) + 1/ 3
  )
  
  x[c("xmin", "xmax")] <- lapply(x[c("xmin", "xmax")], scales::rescale, to = c(xmin, xmax), from = c(0, 1))
  x[c("ymin", "ymax")] <- lapply(x[c("ymin", "ymax")], scales::rescale, to = c(ymin, ymax), from = c(0, 1))
  
  return(x)
}

df = data.frame(xmin = 1, xmax = 3, ymin = 10, ymax = 15)

df1 <- purrr::reduce(seq(5), function(x, n) purrr::pmap_df(x, square5), .init = df)

library(ggplot2)

ggplot(df1) +
  geom_rect(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax), fill = "green", color = "darkgreen", size = .5)