R中特定点之间的子集数据

我试图在特定点之间对R中的一些数据进行子集划分。具体来说，我希望只返回最小值之后和最大值之前的数据。我的数据集与下面的类似。所以，我试图在第8点之后和第20点之前对点数据进行子集

   x1
1. 4
2. 4
3. 5
4. 5
5. 5
6. 4
7. 3
8. 0
9. 1
10. 2
11. 2
12. 3
13. 3
14. 4
15. 5
16. 6
17. 6
18. 7
19. 8
20. 6
21. 4
22. 2

因此，预期的产出将是

8. 0
9. 1
10. 2
11. 2
12. 3
13. 3
14. 4
15. 5
16. 6
17. 6
18. 7
19. 8

我试过了

min <- min(x1)
max <- max(x1)
newdata <- subset(x1,x1<max|x1>min)

---

minycw的解决方案显然更优雅，但我会给你我的

cdata<-as.data.frame(c(4,4,5,5,5,5,4,3,0,1,2,2,3,3,4,5,6,6,7,8,6,4,2))
min <- min(cdata)
max <- max(cdata)
rowmax<- max(which(cdata == max))
rowmin<- min(which(cdata == min))

if (rowmax>rowmin){
  cdata<-cdata[rowmin:rowmax,, drop=FALSE]
} else{cdata<-cdata[rowmax:rowmin,, drop=FALSE]} 

cdata
if（which.min（z）
或者如果顺序不重要，只要
z[which.min（z）：which.max（z）]
假设z是感兴趣的列（向量），您可以提供一个预期输出的示例吗？刚刚做了。谢谢你的帮助谢谢。不幸的是，有人不喜欢我的答案，投了我一票否决票。没关系，我会把我的答案保存在这里，看看这对手术是否有帮助。很高兴与你交谈，我希望你一切顺利。