使用循环/其他任何东西来编写一串间隔（向量）答案

【问题标题】：Using a loop/anything else to write a string of intervals (vector)使用循环/其他任何东西来编写一串间隔（向量）
【发布时间】：2013-08-14 20:18:04
【问题描述】：

我很难做到这一点，并且想知道您将如何使用循环/更快的方法来做到这一点。我正在为级别创建标签以在剪切语句中使用，与年龄组一起工作。

levels(age_group) <- ("<10","10-19","20-29","30-39","40-49","50-59","60-69","70-79","80-89","90-99","100-109",
             "110-119","120-129","130+")

有人对如何做到这一点有任何好的想法吗？可以手动添加较少的“

谢谢

【问题讨论】：

标签： r loops character performance

【解决方案1】：

最好使用cut 生成的级别，因为您当前的间隔没有定义包含哪一端。

s <- c(-Inf,seq(10,130,10),Inf)
levels(cut(s,s))
#  [1] "(-Inf,10]"  "(10,20]"    "(20,30]"    "(30,40]"    "(40,50]"   
#  [6] "(50,60]"    "(60,70]"    "(70,80]"    "(80,90]"    "(90,100]"  
# [11] "(100,110]"  "(110,120]"  "(120,130]"  "(130, Inf]"

如果你必须使用你当前的间隔，你可以使用这个简单的函数：

strInterval <- function(start, end, by) {
  s <- seq(start, end, by)
  i <- paste(head(s,-1), s[-1]-1, sep="-")
  c(paste0("<",start), i, paste0(end,"+"))
}
strInterval(10,130,10)
#  [1] "<10"     "10-19"   "20-29"   "30-39"   "40-49"   "50-59"   "60-69"  
#  [8] "70-79"   "80-89"   "90-99"   "100-109" "110-119" "120-129" "130+"

【讨论】：

是的，标签会进入出版物类型的东西。（我一开始没有说）所以我正在寻找接近完成的东西。不过这很好，可以打个领带吗？

【解决方案2】：

cts <- seq(10,130, by=10)
paste(c("<=", cts), c(cts-1, "+") , sep="-")
# [1] "<=-9"    "10-19"   "20-29"   "30-39"   "40-49"   "50-59"   "60-69"  
# [8] "70-79"   "80-89"   "90-99"   "100-109" "110-119" "120-129" "130-+"

你说你可以根据需要调整两端，对吧？

【讨论】：

我也打算用这个。这是迄今为止给出的最有效和最简洁的答案。

【解决方案3】：

只需插入最大/最小值并运行其余代码。

min <- 10
max <- 130

seq1 <- seq(min, max, by = 10)
seq2 <- seq(min-1, max-1, by = 10)

age_group <- c(paste("<", min, sep = ""), rep("foo", length(seq1)-1))

  for (i in 1:(length(seq1)-1)) {

    grp1 <- seq1[i]
    grp2 <- seq2[i+1]

    group <- paste(grp1, "-", grp2, sep = "")

    age_group[i+1] <- group

  }

age_group <- c(age_group, paste(max, "+", sep = ""))

age_group

【讨论】：

伙计，这是一种非常优雅的方式，并且需要最少的手动编辑。我喜欢我只需更改最小值和最大值即可运行不同的字符串。
我也很想看到一个循环，因为我也会将它与字符向量一起使用。

【解决方案4】：

我的解决方案发布了earlier，但在此处进行了一些更改（仅当您使用cut 函数并使用该间隔时才适用）：

mydata<-round(seq(1,20,length.out=5))
mydata<-as.data.frame(mydata)
names(mydata)<-"V" #name the column as V
mydata$V1<-cut(mydata$V,5) #break the data into five intervals and name that as col V1
mydata$lower<-with(mydata,round(as.numeric( sub("\\((.+),.*", "\\1", V1)))) #extract lower value
mydata$upper<-with(mydata,round(as.numeric( sub("[^,]*,([^]]*)\\]", "\\1",V1)))) # extract upper value
myfinaldata<-mydata[,c("lower","upper")] #create data frame of lower and upper values
myfinaldata$interval<-with(myfinaldata,paste(lower,upper,sep="-"))

 myfinaldata
  lower upper interval
1     1     5      1-5
2     5     9      5-9
3     9    12     9-12
4    12    16    12-16
5    16    20    16-20

【讨论】：