使用vapply将函数指定给坐标

Question

我受到威胁，不得不在PowerPoint中手动绘制数百个圆圈而且转换时间非常短，因此我希望R为我这样做。原谅我，我以前从未编程过，而且我直接跳了进去。

基本上我是在时间轴上绘制散点图。我使用ggplot2轻松完成了这项工作。不幸的是，由于涉及到数百个点，我需要能够将它们分开，以便可以看到所有这些。抖动不是一种选择，因为我不知道我的最终点数。因此，我试图建立一些最终知道象限中有多少点的东西。首先，我试图为我的坐标分配一个范围内的值：

    getxcordinate <- function (x) {
  x <- as.numeric(x)
  runif(1,x-1,x)
}

getycordinate <- function (y) {
    y<- as.numeric(y)
    runif(1,y-1,y)
}

getxcordinate(x = my.data$t_score[1])
getycordinate(y = my.data$Geography[1])


#Precreate the offset as numeric x-y coordinates that so that the points and the text can refer to the same coordinates later  
my.data$moved_t_score <- vapply(my.data$t_score,getxcordinate, any)
my.data$moved_Geography <- vapply(my.data$moved_Geography,getycordinate, any)

从帮助中我可以看到vapply需要一些名为FUN.VALUE的东西才能工作。我试过了＃34;任何＆＃34;但这很乐观 - 我应该做什么？

谢谢！