Создание нескольких столбцов в R, основанные на другой колонке

Question

у меня есть 2 колонки в кадре данных, пожалуйста, обратитесь к ниже

no value 
1 A_0.9 
1 B_0.8 
1 C_0.7 
1 D_0.7 
2 B_0.9 
2 D_0.8 
2 A_0.7 
2 C_0.7 

Я хочу создать новый кадр данных, как показано ниже

no value1 value2 value3 value4 
1 A_0.9 B_0.8 C_0.7 D_0.7 
2 B_0.9 D_0.8 A_0.7 C_0.7 

а именно: для каждое уникальное значение в столбце «нет» будет содержать несколько столбцов, созданных с использованием данных в столбце «значение»

Answer 1

Использование data.table, мы можем создать последовательность на уникальный value по no с rleid(), и, следовательно, использовать его для dcast() данных в широком формате.

library(data.table) 
dcast(setDT(df)[, nr := rleid(value),by = no], no ~ nr) 
# no  1  2  3  4 
#1 1 A_0.9 B_0.8 C_0.7 D_0.7 
#2 2 B_0.9 D_0.8 A_0.7 C_0.7 

Или с dev version (1.9.7) из data.table, то возможно следующее, благодаря @Arun!

dcast(setDT(df), no ~ rowid(no, prefix = 'value')) 
# no value1 value2 value3 value4 
#1: 1 A_0.9 B_0.8 C_0.7 D_0.7 
#2: 2 B_0.9 D_0.8 A_0.7 C_0.7 

Answer 2

t(unstack(df, value ~ no)) 
# [,1] [,2] [,3] [,4] 
#X1 "A_0.9" "B_0.8" "C_0.7" "D_0.7" 
#X2 "B_0.9" "D_0.8" "A_0.7" "C_0.7" 

Чтобы убрать a Бове выход в соответствии с данными,

library(dplyr) 
df1 <- as.data.frame(t(unstack(df, value ~ no))) 
names(df1)[-1] <- paste0('value', 2:ncol(df1)-1) 
rownames(df1) <- NULL 
df1 <- add_rownames(df1, 'no') #from dplyr package 
# no value1 value2 value3 value4 
# (chr) (fctr) (fctr) (fctr) (fctr) 
#1  1 A_0.9 B_0.8 C_0.7 D_0.7 
#2  2 B_0.9 D_0.8 A_0.7 C_0.7 

Answer 3

Я хотел бы использовать reshape библиотеку, которая оборачивает хороший набор функций для манипулирования данными. Пример для выполнения вашей задачи:

n = c(1,1,1,1,2,2,2,2) 
x = c('A', 'B', 'C', 'D', 'A', 'B', 'C', 'D') 
# Just to create the column names you showed in the example 
columns = rep(paste("value", 1:4, sep=""), 2) 
data = data.frame(n, columns, x) 
cast(data, n~columns)