Question

我想将一个篮子格式转换为单一格式，然后使用＆＃34; Convert basket to single＆＃34;的代码，但发生了如下错误：

> Data <- read.table("r9.txt")
> Data
      V1      V2  V3  V4  V5  V6  V7  V8  V9 V10 V11
1  A3322 neutral 157 158 159 160 161 162 163 164 165
2  A4003    cold 157 158 159 160 161 162 163 164 165
3  A3928    none 154 155 157 159 160 163 164 165  NA
4  A4002 neutral 158 159 160 161 162 163 164 165  NA
5  A3992    none 159 160 161 162 163 164 165  NA  NA
6  A3993    none 159 160 161 162 163 164 165  NA  NA
7  A3994    cold 159 160 161 162 163 164 165  NA  NA
8  A3995    cold 159 160 161 162 163 164 165  NA  NA
9  A3996    none 159 160 161 162 163 164 165  NA  NA
10 A3997    none 159 160 161 162 163 164 165  NA  NA
11 A4001 neutral 159 160 161 162 163 164 165  NA  NA
12 A1458    none 160 161 162 163 164 165  NA  NA  NA
13 A2042    cold 160 161 162 163 164 165  NA  NA  NA
> col1=NULL
> col2=NULL
> for(i in 1:nrow(Data)){
+ col1=c(col1,rep(Data[i],ncol(Data)-1))
+ col2=c(col2,Data[i,-1])}
erro`[.data.frame`(Data, i) : undefined columns selected
>

Answer 1

你要做的是＆＃34; 融化＆＃34;在将V1作为您的ID变量时进行数据处理，请尝试以下

library(reshape2) 
res <- na.omit(melt(Data, "V1")[-2])
res[order(res$V1), ]
#        V1   value
# 12  A1458    none
# 25  A1458     160
# 38  A1458     161
# 51  A1458     162
# 64  A1458     163
# 77  A1458     164
# 90  A1458     165
# 13  A2042    cold
# 26  A2042     160
# 39  A2042     161
# 52  A2042     162
# 65  A2042     163
....

# or, for a general set of id columns:
idvars = c("V1","V2")
res <- na.omit(melt(Data,idvars)[-(1+length(idvars))])
res[do.call(order,res[,idvars]),]
#       V1   V2 value
# 12 A1458 none   160
# 25 A1458 none   161
# 38 A1458 none   162
# 51 A1458 none   163
# 64 A1458 none   164
# 77 A1458 none   165
....

或类似于dplyr/tidyr

library(tidyr)
library(dplyr)
Data %>%
  gather(variable, value, -V1) %>%
  na.omit() %>%
  arrange(V1) %>%  
  select(-variable)

使用R将篮子数据格式转换为单一格式时出错

1 个答案: