2017-09-01 9 views
-2

サンプルデータ私は2つの列(日付列とシート可用性列)を持っており、時間に基づいて可用性がどのように変化するかをチェックする必要があります。

Date       SeatAvailability    
01/05/2017 J6C5D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9 
02/05/2017 J7C6D6I6Z5W9S9H9K8Y9B9R9L9U9M9E9Q9X9V9N7O9 
03/05/2017 J6C1D6I6Z5W9S9H9K9Y9B9R9L9U3M9E9Q9X9V2N9O9 
04/05/2017 J6C6D6I6Z5W9S9H9K6Y9B9R9L4U9M9E9Q9X9V9N9O9 
05/05/2017 J6C6D8I6Z5W2S9H9K9Y9B9R9L9U9M9E9Q9X9V9N8O9 
06/05/2017 J6C6D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9 
07/05/2017 J6C6D6I6Z5W9S9H9K9Y9B9R7L9U9M9E9Q7X9V9N7O9 
08/05/2017 J6C6D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9 
09/05/2017 J8C6D6I6Z5W9S9H8K9Y9B9R9L9U9M9E9Q9X9V9N9O9 
10/05/2017 J6C1D6I6Z5W9S9H9K9Y9B9R9L9U3M9E9Q9X9V2N9O9 

各行例えば、(特定の日付の船の座席の利用可能性を表す:我々は最初の行の空席状況列を取る場合、Jキャビン6席を有した、C 5などを有していますon)..

時間に応じて空き状況がどのように変化するかをチェックする必要があります。

+0

各行は、特定の日のために船の座席の利用可能性を表します。 – user8545255

+0

具体的に何を知りたいですか? – Sagar

+0

あなたが試したことに対応する期待出力とRコードを表示してください。 –

答えて

1

以下の出力があなたが探しているものに対する完全な答えであるかどうかはわかりません。私は別のcolumnsSeat Availabilityを分割しようとしました(例えば、column nameseat rowです)。今すぐplotこのデータを使用したり、必要に応じて使用したりできます。

df <- data.frame(Dates=c("01/05/2017","02/05/2017","03/05/2017","04/05/2017","05/05/2017", 
         "06/05/2017","07/05/2017","08/05/2017","09/05/2017","10/05/2017"), 
       SeatAvailability=c("J6C5D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9","J7C6D6I6Z5W9S9H9K8Y9B9R9L9U9M9E9Q9X9V9N7O9", 
            "J6C1D6I6Z5W9S9H9K9Y9B9R9L9U3M9E9Q9X9V2N9O9","J6C6D6I6Z5W9S9H9K6Y9B9R9L4U9M9E9Q9X9V9N9O9", 
            "J6C6D8I6Z5W2S9H9K9Y9B9R9L9U9M9E9Q9X9V9N8O9","J6C6D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9", 
            "J6C6D6I6Z5W9S9H9K9Y9B9R7L9U9M9E9Q7X9V9N7O9","J6C6D6I6Z5W9S9H9K9Y9B9R9L9U9M9E9Q9X9V9N9O9", 
            "J8C6D6I6Z5W9S9H8K9Y9B9R9L9U9M9E9Q9X9V9N9O9","J6C1D6I6Z5W9S9H9K9Y9B9R9L9U3M9E9Q9X9V2N9O9")) 

df$Dates <- as.character(df$Dates) 
df$SeatAvailability <- as.character(df$SeatAvailability) 
df$SeatAvailability <- gsub("[^0-9]","",df$SeatAvailability) 
df <- data.frame(cbind(df$Dates, do.call('rbind', strsplit(as.character(df$SeatAvailability),"",fixed=TRUE)))) 

colnames(df) <- c("Dates","J","C","D","I","Z","W","S","H","K","Y","B","R","L","U","M","E","Q","X","V","N","O") 

> df 
     Dates J C D I Z W S H K Y B R L U M E Q X V N O 
1 01/05/2017 6 5 6 6 5 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 
2 02/05/2017 7 6 6 6 5 9 9 9 8 9 9 9 9 9 9 9 9 9 9 7 9 
3 03/05/2017 6 1 6 6 5 9 9 9 9 9 9 9 9 3 9 9 9 9 2 9 9 
4 04/05/2017 6 6 6 6 5 9 9 9 6 9 9 9 4 9 9 9 9 9 9 9 9 
5 05/05/2017 6 6 8 6 5 2 9 9 9 9 9 9 9 9 9 9 9 9 9 8 9 
6 06/05/2017 6 6 6 6 5 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 
7 07/05/2017 6 6 6 6 5 9 9 9 9 9 9 7 9 9 9 9 7 9 9 7 9 
8 08/05/2017 6 6 6 6 5 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 
9 09/05/2017 8 6 6 6 5 9 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 
10 10/05/2017 6 1 6 6 5 9 9 9 9 9 9 9 9 3 9 9 9 9 2 9 9 

SOこのデータをプロットを参照:How to plot multiple columns in R for the same X-Axis Value

+0

は、それは私に単一の列を持っている場合 – user8545255

+0

Thanks..Itはlot..And私を助けている場合どのようなlot..And、私が「J96C75D56I96Z95W39S79H89K69Y49B99R49L49U6」のような単一の列を持っている場合は、私を助けます「J9」とその値6のような列に変換したい、「C7」と、その値は5ですので、ONNN ...(列名および第三位置として最初の二つの位置が繰り返し...列の値である) – user8545255

+0

することができますdf $ SeatAvailability < - gsub( "[AZ] [0-9]"、 "df $ SeatAvailability)'を実行し、カラム名を 'colnames(df)< - c(" Dates "、" J9 " 「C7」、「D5」、「I9」、「Z9」、「W3」、「S7」、「H8」、「K6」、「Y4」、「B9」、「R4」、「L4」、「U6 ")'。可用性が1桁の場合に限り動作します。 – Sagar

関連する問題