Question

请让我知道可以重新排列

数据的'R代码'

AA 100 NA
BB 200 300
CC 300 NA
DD 100 400

到

AA 100 0   0   0
BB 0   200 300 0
CC 0   0   300 0
DD 100 0   0   400

OR

   100 200 300 400
AA 1   0   0   0
BB 0   1   1   0
CC 0   0   1   0
DD 1   0   0   1

Answer 1

df <- read.table(text = "AA 100 NA
BB 200 300
CC 300 NA
DD 100 400")

table(data.frame(letters = df[,1], numbers = unlist(df[,-1])))
#        numbers
# letters 100 200 300 400
#      AA   1   0   0   0
#      BB   0   1   1   0
#      CC   0   0   1   0
#      DD   1   0   0   1

Answer 2

# SAMPLE DATA
myDF <- structure(list(V2 = c(100L, 200L, 300L, 100L), V3 = c(NA, 300L, NA, 400L)), .Names = c("V2", "V3"), class = "data.frame", row.names = c("AA", "BB", "CC", "DD"))

假设myDf是您的原始数据框

# create columns sequence
Columns <- seq(100, 400, by=100)

newMat <- sapply(Columns, function(c) rowSums(c==myDF, na.rm=T))

# assign names
colnames(newMat) <- Columns

newMat  
#      100 200 300 400
#   AA   1   0   0   0
#   BB   0   1   1   0
#   CC   0   0   1   0
#   DD   1   0   0   1

<小时/>

说明：

c == myDF给出一个TRUE / FALSE值的矩阵。
  如果对T / F执行算术运算，则将它们视为1/0   因此，我们可以为每行AA，BB等取rowSum()     这将告诉我们每行等于c的次数。

  我们使用sapply迭代每个列值100,200等。
    lapply为我们返回列表
    sapply，获取该列表并将其简化为一个很好的矩阵。

然后我们清理名称以使事情变得漂亮。

Answer 3

要获取值，还可以使用reshape2包：

DF <- read.table(text = "AA 100 NA
 BB 200 300
 CC 300 NA
 DD 100 400")

library(reshape2)
dfm <- melt(DF, id = "V1")

dcast(dfm, V1 ~ factor(value), fill = 0)[, -6]
  V1 100 200 300 400
1 AA 100   0   0   0
2 BB   0 200 300   0
3 CC   0   0 300   0
4 DD 100   0   0 400

删除了dcast（）中的最后一列，因为NA是dfm $ value中的值，占用了转换数据框中的最后一列。

R数据重新排列

3 个答案:

说明：