R为每次调用函数创建一个向量

Question

我的问题非常简单，但我是新的R用户......

所以我有一个参与的函数。我想将结果放在一个带有特定名称的向量中，每次调用该函数。

我的功能

  `Window_length<-function(x,y) {
   first_interval<-length(which(x <= -1.5))
   second_interval<-length(which(x <= -1 & x > -1.5 ))
   third_interval<-length(which(x <= -0.5 & x > -1 ))
   fourth_interval<-length(which(x <= 0 & x > -0.5 ))
   fifth_interval<-length(which(x <= 0.5 & x > 0 ))
   sixth_interval<-length(which(x <= 1 & x > 0.5 ))
   seventh_interval<-length(which(x <= 1.5 & x > 1 ))
   eighth_interval<-length(which(x <= 2 & x > 1.5 ))
   ninth_interval<-length(which(x > 2  ))
   y <<- c(
   rep("1",first_interval),
   rep("2",second_interval),
   rep("3",third_interval),
   rep("4",fourth_interval),
   rep("5",fifth_interval),
   rep("6",sixth_interval),
   rep("7",seventh_interval),
   rep("8",eighth_interval),
   rep("9",ninth_interval))}`

因此，当我调用Window_length时，我想将结果放入给定的变量中，例如：

`Window_length(data,output_result)`

在output_result中我希望得到＆＃34; y＆＃34;值。

此外，我确信我的代码根本不完美。如果有人可以帮助我优化我的代码，它会很好。

我试图制作所有这些，因为我需要用ggplot数据制作一个情节。我的值介于-4和+3之间。我想创建一个具有特定窗口的图（＆lt; -1.5 / -1.5：-1 / -1：-0.5 / -0.5：0/0：1/1：1.5 / 1.5：2 /＆gt; 2）< / p>

My data :

data<- c(-3.7865964 -3.7865964 -3.1975372 -3.1975372 -3.169925 -3.1292830 -3.1292830 -2.6629650 -2.4739312 -2.4739312 -2.3536370 -2.3536370 -2.2446224 -2.2446224 -2.0000000 -1.8744691 -1.8744691 -1.7705182 -1.7655347 -1.7655347 -1.7472339 -1.7472339 -1.7062688 -1.7036070........... 1.8744691 1.8744691 2.0000000 2.2446224 2.2446224 2.3536370) 

length(data)=21685

To_Be_Plot = data.frame(data,y) 

fig1<-ggplot(To_Be_Plot, aes(x=y, y=data))+geom_boxplot()

预期结果： 谢谢大家

Answer 1

如果我理解正确的问题，一个解决方案就是使用函数cut：

x <- seq(-2.9, 3, l=5000)
FC <- sin(x*pi) + x^2/10 + 0.1*rnorm(5000)

dat <- data.frame(x, FC)
dat$windows <- cut(dat$x, breaks = seq(-3, 3, by=1))

ggplot(data=dat, aes(x, FC, color=windows)) + 
  geom_boxplot() + theme_bw()

生成的命令图框图显示窗口。