-1

350 から 2500 までの波長があり、それぞれにデータがあります。

x350    x351    x352    x353    x354 ...... x2500
0.18    0.17    0.17    0.17    0.16 ...... 0.3
0.16    0.15    0.15    0.15    0.15 ...... 0.47
0.14    0.14    0.13    0.13    0.13 ...... 0.35

波長の名前のない列を 1 つ作成し、この新しい列に名前を付ける必要があります。

Wave
0.18
0.16
0.14
0.17
0.15
0.14
0.17
0.15
0.13
0.16
0.15
0.13
.
.
.
0.3
0.47
0.35

mは私のファイルで、波長の列は 17 列から 2167 列です。私は試した：

a <- list(m[1:16,17:2167])

しかし、間に列の名前を含むリストを取得します:

list(structure(list(X350 = c(0.15723315, 0.138406682, 0.174909807, 
0.143139974, 0.123193808, 0.154449448, 0.163255619, 0.126194713, 
0.14327512, 0.066265248, 0.139851395, 0.158271497, 0.158060045, 
0.145313933, 0.143890661), X351 = c(0.154324452, 0.135509959, 
0.173350322, 0.139867145, 0.121439474, 0.15276091, 0.160391152, 
0.125592826, 0.140349489, 0.065316491, 0.137927937, 0.158400317, 
0.156211611, 0.142498763, 0.141353986), X352 = c(0.151243533....

2465 列から 1 つの名前を持つ 1 つの列だけを取得するにはどうすればよいですか?

より詳しい情報

str(m)

'data.frame':   16 obs. of  2167 variables:
 $ pott : int  48 49 50 51 52 53 54 55 56 57 ...
 $ b    : chr  "B1" "B1" "B1" "B1" ...
 $ F : int  1 1 1 1 1 1 1 1 1 1 ...
 $ G  : chr  "Sunstar" "Quarrion" "Nacozari" "W130114" ...
 $ R : int  3 3 3 3 3 3 3 3 3 3 ...
 $ D  : int  80 80 81 80 81 80 82 82 82 82 ...
 $ W: num  1.8 1.5 1.3 1.9 1.8 1.25 1.85 2.1 1.6 2.4 ...
 $ S : num  43.4 35.7 44.7 48.6 45.3 35.5 49.2 49.1 46.8 41.5 ...
 $ R  : num  -0.327 1.149 2.348 1.636 1.952 ...
 $ V  : num  76.4 49 118.9 108 114.5 ...
 $ J    : num  158 114 191 169 183 ...
 $ P: num  19.9 10.6 24.1 21.1 23.6 ...
 $ Ce : num  0.367 0.13 0.466 0.36 0.462 ...
 $ Ci   : num  273 246 280 263 272 ...
 $ S : num  23.5 29 30.9 29.4 24.1 ...
 $ L  : num  42.5 34.4 32.4 34 41.4 ...
 $ X350 : num  0.176 0.157 0.138 0.175 0.143 ...
 $ X351 : num  0.172 0.154 0.136 0.173 0.14 ...
 $ X352 : num  0.169 0.151 0.133 0.172 0.138 ...
 $ X353 : num  0.167 0.147 0.132 0.17 0.137 ...
 $ X354 : num  0.165 0.147 0.13 0.167 0.133 ...
 $ X355 : num  0.162 0.146 0.127 0.166 0.13 ...
 $ X356 : num  0.159 0.144 0.126 0.164 0.128 ...
 $ X357 : num  0.158 0.14 0.125 0.161 0.125 ...
 $ X358 : num  0.155 0.138 0.123 0.159 0.124 ...
 $ X359 : num  0.153 0.137 0.121 0.157 0.123 ...
 $ X360 : num  0.15 0.135 0.12 0.154 0.122 ...
....$2500
4

1 に答える 1

0

あなたのデータはテキストファイルにあると思います

data <- read.table("your_file", header=T, quote="\"")

したがって、データは次のようになります

structure(list(x350 = c(0.18, 0.16, 0.14), x351 = c(0.17, 0.15, 
0.14), x352 = c(0.17, 0.15, 0.13), x353 = c(0.17, 0.15, 0.13)), .Names = c("x350", 
"x351", "x352", "x353"), class = "data.frame", row.names = c(NA, 
-3L))

と

result <- data.frame(Wave = unlist(data,use.names=FALSE))

生産します

   Wave
1  0.18
2  0.16
3  0.14
4  0.17
5  0.15
6  0.14
7  0.17
8  0.15
9  0.13
10 0.17
11 0.15
12 0.13
于 2012-08-28T09:40:46.413 に答える