我不確定以下輸出是否是您正在尋找的任何完整答案。我試圖將Seat Availability
拆分成不同的columns
(例如column name
是seat 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
,從而可以參照繪製這樣的數據:How to plot multiple columns in R for the same X-Axis Value
每一行代表在特定一天船舶座位的可用性。 – user8545255
你想知道什麼? – Sagar
請顯示相應的預期輸出和您嘗試過的R代碼。 –