R：使用轴缩放geom_point（ggplot2）

Question

我编写了以下代码，以将我的xy数据绘制在一组可重新缩放的轴上，pointSize中包含的值是在每个绘制坐标处要正确缩放的点的垂直/水平直径。 我该如何开始工作呢？ 现在，我只是使用geom_point（aes（size））中默认使用的任何缩放比例绘制点，并且这些点不随轴缩放。 使用coord_cartesian重新缩放轴后，我希望绘制的点相对于轴相应地增加/减少。

例如，如果点的大小为5，则意味着我希望点的水平和垂直直径相对于轴为5，无论指定的xyScaling如何。

编辑：pointSize中的min应该是min = 0，而不是min = -10

最小的可复制代码：

# Sample size & x-y axes plot boundaries
sampleSize <- 100

# Set scale factor of x-y axes
xyScaling <- 1

# Set to false once sampled to rescale axis with same distributions
resample <- TRUE

if (resample == TRUE){
  xSample <- replicate(sampleSize, runif(1, min = -sampleSize/2, max = sampleSize/2))

  ySample <- replicate(sampleSize, runif(1, min = -sampleSize/2, max = sampleSize/2))

  pointSize <- replicate(sampleSize, runif(1, min = 0, max = 10))
}

sampleDataFrame <- data.frame(xSample, ySample, pointSize)
samplePlot <- ggplot(sampleDataFrame, aes(xSample, ySample))
samplePlot +
geom_point(data = sampleDataFrame, aes(size = sampleDataFrame$pointSize[])) + 
coord_cartesian(xlim = c((xyScaling*(-sampleSize/2)),(xyScaling*(sampleSize/2))),
                ylim = c((xyScaling*(-sampleSize/2)),(xyScaling*(sampleSize/2)))) +
xlab("x") +
ylab("y") +
scale_size_identity(guide=FALSE)

编辑：所以我几乎可以通过使用geom_rect来解决问题，下面的代码做了我想要的告诫，即点是矩形而不是椭圆/圆形，如果有人可以，我无法将其用于椭圆指导我正确的工作，我将不胜感激。

sampleDataFrame <- data.frame(xSample, ySample, pointSize)

samplePlot <- ggplot(sampleDataFrame)
samplePlot +
  geom_point(aes(xSample, ySample, size = 0)) + 
  geom_rect(aes(xmin = xSample-(pointSize/2), xmax = xSample+(pointSize/2), ymin = ySample-(pointSize/2), ymax = ySample+(pointSize/2))) +
  coord_cartesian(xlim = c((xyScaling*(-sampleSize/2)),(xyScaling*(sampleSize/2))),
                  ylim = c((xyScaling*(-sampleSize/2)),(xyScaling*(sampleSize/2)))) +
  xlab("x") +
  ylab("y") +
  scale_size_identity(guide=FALSE)

Answer 1

过去曾有人建议这样做，但我认为它没有实现。 一个问题是，在具有单位长宽比的笛卡尔坐标的特殊情况下，圆仅是圆形的。 最简单的解决方法可能是创建一个具有xy位置（描述圆（椭圆））的data.frame并将其绘制为多边形。

library(gridExtra)
library(ggplot2)

circle <- polygon_regular(50)

pointy_points <- function(x, y, size){
  do.call(rbind, mapply(function(x,y,size,id) 
    data.frame(x=size*circle[,1]+x, y=size*circle[,2]+y, id=id),
         x=x,y=y, size=size, id=seq_along(x), SIMPLIFY=FALSE))

}

test <- pointy_points(1:10, 1:10, size=seq(0.2, 1, length.out=10))

ggplot(test, aes(x,y,group=id, fill=id)) + geom_polygon()

Answer 2

您可以尝试在最低级别上编辑点，但这很奇怪，

library(ggplot2); library(grid)
p <- qplot(1:10, 1:10, size=I(10))
g <- ggplotGrob(p)

points <- g$grobs[[4]][["children"]][[2]]
g$grobs[[4]][["children"]][[2]] <- 
  editGrob(points, size = convertUnit(points$size, unitTo = "npc"))

grid.newpage()
grid.draw(g)