Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/sorting/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在R studio中按升序和降序排序_R_Sorting - Fatal编程技术网

在R studio中按升序和降序排序

在R studio中按升序和降序排序,r,sorting,R,Sorting,我需要按升序对前一半的数字进行排序; 另一半在R-Studio中按降序排列 如果我把这个发错了,请原谅。请建议更正 mark = floor(seq(1,10)) print(mark) sort(mark, 1:5) 试试这个: #Data mark = floor(seq(1,10)) print(mark) #Code mark2 <- c(sort(mark[1:5]),sort(mark[6:10],decreasing = T)) 另一种方法可以是: #Code2 mar

我需要按升序对前一半的数字进行排序; 另一半在R-Studio中按降序排列

如果我把这个发错了,请原谅。请建议更正

mark = floor(seq(1,10))
print(mark)

sort(mark, 1:5)
试试这个:

#Data
mark = floor(seq(1,10))
print(mark)
#Code
mark2 <- c(sort(mark[1:5]),sort(mark[6:10],decreasing = T))
另一种方法可以是:

#Code2
mark2 <- c(sort(mark[1:floor(quantile(mark,0.5))]),sort(mark[(floor(quantile(mark,0.5))+1):length(mark)],decreasing = T))
或更自动:

#Code 3
mark2 <-c(sort(mark[1:floor(quantile(1:length(mark),0.5))]),
  sort(mark[(floor(quantile(1:length(mark),0.5))+1):length(mark)],decreasing = T))

多谢各位
[1]  1  2  3  4  5 10  9  8  7  6
#Code 3
mark2 <-c(sort(mark[1:floor(quantile(1:length(mark),0.5))]),
  sort(mark[(floor(quantile(1:length(mark),0.5))+1):length(mark)],decreasing = T))
[1]  1  2  3  4  5 10  9  8  7  6