小编Lou*_*lou的帖子

我的数据:

data <- c(1,5,11,15,24,31,32,65)

有两个邻居:31和32.我希望删除它们并仅保留平均值(例如31.5),这样数据将是:

data <- c(1,5,11,15,24,31.5,65)

这似乎很简单,但我希望自动完成,有时候会有包含更多邻居的向量.例如 :

data_2 <- c(1,5,11,15,24,31,32,65,99,100,101,140)

使用ggplot,有没有办法设置面板边框,交替使用黑色和白色矩形,如下所示:

在我的for循环中，我需要删除RAM。所以我用rm()命令删除了一些对象。然后，我做，gc()但RAM仍然相同

因此，我使用.rs.restartR()代替gc()它，并且它起作用：重新启动R会话后，将删除我的RAM的足够部分。

我的问题是for循环，在R重新启动后会中断。您是否有想法在.rs.restartR()命令后自动进入for循环？

我的数据：

dat <- data_frame(x = c(1,2,3,4,5,6), y = c(2,2,2,6,2,2))

我希望在点 (x=4,y=6) 旁边显示此表达式：

expression <- bquote(paste(frac(a[z], b[z]), " = ", .(dat[which.max(dat$y),"y"] %>% as.numeric())))

但是，当我将此表达式与 ggplot 一起使用时：

ggplot() + 
  geom_point(data = dat, aes(x = x, y = y)) + 
  geom_label(data = dat[which.max(dat$y),], aes(x = x, y = y, label = expression))

我收到此错误消息：

Error: Aesthetics must be either length 1 or the same as the data (1): label