2

次のようなデータフレームがあります。

TRUE    x_value1    x_value2    y_value1    y_value2    x_id    y_id
0           1            4        11             14      1       7
1           2            5        12             15      2       8
0           3            6        13             16      3       9

そして、このデータ フレームに行を追加し、x と y を切り替えて、行 4 で x_value1=y_value1 および x_id=y_id および y_value1=x_value1... などとします。

このような:

 TRUE   x_value1    x_value2    y_value1    y_value2    x_id    y_id
    0           1            4        11             14      1       7
    1           2            5        12             15      2       8
    0           3            6        13             16      3       9
    0           11           14       1              4       7       1
    1           12           15       2              5       8       2
    0           13           16       3              6       9       3

forループでこれを行うことができますが、それには時間がかかります

例えば

for (i in 1:3)
{ dataframe[i+3,2]<-dataframe[i,4] //for i=1, finds 4th row, column "x_value1" and switches it with first row, column "y_value1"
  dataframe[i+3,3]<-dataframe[i,5]
...etc.
}

私が持っているデータ フレームの例 (上記の最初の表):

structure(list(TRUE. = c(0L, 1L, 0L), x_value1 = 1:3, x_value2 = 4:6, 
    y_value1 = 11:13, y_value2 = 14:16, x_id = 1:3, y_id = 7:9), .Names = c("TRUE.", 
"x_value1", "x_value2", "y_value1", "y_value2", "x_id", "y_id"
), row.names = c(NA, 3L), class = "data.frame")

望ましい (上の 2 番目の表):

structure(list(TRUE. = c(0L, 1L, 0L), x_value1 = 1:3, x_value2 = 4:6, 
    y_value1 = 11:13, y_value2 = 14:16, x_id = 1:3, y_id = 7:9), .Names = c("TRUE.", 
"x_value1", "x_value2", "y_value1", "y_value2", "x_id", "y_id"
), row.names = c(NA, 3L), class = "data.frame")
4

3 に答える 3

4

dd が元のデータフレームである場合は、次を試すことができます。

dd2 <- cbind(dd[1], dd[4:5], dd[2:3],dd[7:6])

names(dd2) <- names(dd)

dd <- rbind(dd, dd2)
于 2013-06-10T17:01:36.383 に答える
3

より「プログラム的に」実行するには、列名のパターンで grep を使用します。

> grep("y_", names(dat))
[1] 4 5 7
> grep("x_", names(dat))
[1] 2 3 6

dat2 <- dat
# Replace all the dat2 "y_"-names with "x_"-names
colnames(dat2)[grep("y_", colnames(dat))] <- 
                    colnames(dat)[grep("x_", colnames(dat))]
# Replace alldat2  the "x_"-names with "y_"-names
colnames(dat2)[grep("x_", colnames(dat))] <- 
                     colnames(dat)[grep("y_", colnames(dat))]
colnames(dat2)
#[1] "TRUE."    "y_value1" "y_value2" "x_value1" "x_value2" "y_id"    
#[7] "x_id"    

rbind(dat,dat2)
#-----------------
  TRUE. x_value1 x_value2 y_value1 y_value2 x_id y_id
1     0        1        4       11       14    1    7
2     1        2        5       12       15    2    8
3     0        3        6       13       16    3    9
4     0       11       14        1        4    7    1
5     1       12       15        2        5    8    2
6     0       13       16        3        6    9    3
于 2013-06-10T17:10:40.337 に答える