Как я сортирую один вектор на основе значений другого
Обновите 8 лет спустя (ничего себе!) для покрытия c# 6's пустой условный оператор :
var value = maybeNull?.ToString() ?? String.Empty;
Другие подходы:
object defaultValue = "default";
attribs.something = (entry.Properties["something"].Value ?? defaultValue).ToString()
я также использовал это, которое не ужасно умно, но удобно:
public static string ToSafeString(this object obj)
{
return (obj ?? string.Empty).ToString();
}
6 ответов
Вот однострочный ...
y[sort(order(y)[x])]
[edit:] Это разбивается следующим образом:
order(y) #We want to sort by y, so order() gives us the sorting order
order(y)[x] #looks up the sorting order for each x
sort(order(y)[x]) #sorts by that order
y[sort(order(y)[x])] #converts orders back to numbers from orders
Вы можете преобразовать x в упорядоченный множитель:
x.factor <- factor(x, levels = y, ordered=TRUE)
sort(x)
sort(x.factor)
Очевидно, преобразование ваших чисел в множители может радикально изменить то, как нижестоящий код реагирует на x ]. Но поскольку вы не дали нам никакого контекста о том, что будет дальше, я подумал, что предлагаю это как вариант.
Как насчет?:
rep(y,table(x)[as.character(y)])
(Иэн, наверное, еще лучше)
[ Изменить: Ясно, что у Иана правильный подход, но я буду оставьте это для потомков.]
Вы можете сделать это без циклов, индексируя свой вектор y. Добавьте увеличивающееся числовое значение к y и объедините их:
y <- data.frame(index=1:length(y), x=y)
x <- data.frame(x=x)
x <- merge(x,y)
x <- x[order(x$index),"x"]
x
[1] 4 4 4 2 2 1 3 3 3
x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)
for(i in y) { z <- c(z, rep(i, sum(x==i))) }
Результат в z: 4 4 4 2 2 1 3 3 3
Важные шаги:
for (i in y) - Перебирает интересующие элементы.
z <- c (z, ...) - Объединяет каждое подвыражение по очереди
rep (i, sum (x == i)) - повторяет i (текущий интересующий элемент) sum (x == i) раз (сколько раз мы нашли i в x).