在R：如何在使用日期時間列的posixct時刪除日期 - 時間序列圖中的空白？

這是我無法在網上找到任何幫助的問題。在R：如何在使用日期時間列的posixct時刪除日期 - 時間序列圖中的空白？

這裏是鏈接到原始數據（太大，貼在這裏）： https://drive.google.com/open?id=0B5KaRU02aEnAbnM5ODNPMkYxN0E

，這裏是它的結構

> str(dfsite) 
'data.frame': 11712 obs. of 8 variables: 
$ Site_ID  : chr "02AB08-001" "02AB08-001" "02AB08-001" "02AB08-001" ... 
$ Deployment_ID: num 15352 15352 15352 15352 15352 ... 
$ RecDate  : chr "01-07-2007" "01-07-2007" "01-07-2007" "01-07-2007" ... 
$ RecTime  : chr "00:00:00" "00:30:00" "01:00:00" "01:30:00" ... 
$ Temperature : num 19.5 19.5 19.6 19.6 19.6 ... 
$ TimeStep  : num 30 30 30 30 30 30 30 30 30 30 ... 
$ RecYr  : Factor w/ 19 levels "1996","1997",..: 12 12 12 12 12 12 12 12 12 12 ... 
$ RecDT  : POSIXct, format: "2007-07-01 00:00:00" "2007-07-01 00:30:00" "2007-07-01 01:00:00" "2007-07-01 01:30:00" ...

的RecDT列由每天的數據從00 ：七月全年爲00：00至23:30:00多年： 1）2007-07-01 00：00：00-23：30：00至2007-07-30 00:00:00 -23：30：00 2）2009-07-01 00：00：00-23：30：00 to 2009-07-30 00：00：00-23：30：00 ...

我想爲每個年份創建一個時間序列圖，其中顯示特定site_id的7月1日至30日。

我當前的代碼創建一個時間序列圖 - 因爲所有的幾個月，但它應該只有七月月份 - 因爲所有的年，但它應該對不同年份

# original data 
df <- excel file 
# extract year only 
df["RecYr"] <- substr(df$RecDate,7,10) 
df$RecYr <- as.factor(df$RecYr) 

#extract date and time 
df["RecDT"] <- paste(df$RecDate,df$RecTime) 
df$RecDT <- as.character(df$RecDT) 
df$RecDT <- as.POSIXct(df$RecDT,"%d-%m-%Y %H:%M:%S", tz="UTC") 

# select specific site 
dfsite <- df[df$Site_ID == "02AB08-001",] 

# import ggplot2 and create plot 
library(ggplot2) 
p <- ggplot(dfsite, aes(x=dfsite$RecDT, y=dfsite$Temperature)) + 
    geom_point() + 
print(p)

here is my plot

創建面

非常感謝您提前。

來源

2017-10-18 poli science

任何機會，你可以使用'dput（）'共享數據？如果您提供一個[完整的最小可重現示例]（http://stackoverflow.com/help/mcve）來解決您的問題，我們就更有可能幫助您。我們可以從中學習並使用它來向您展示如何回答您的問題。另外，歡迎！ –

@EricFail請參閱數據集的谷歌驅動器鏈接。謝謝。 –

如果有任何更改，您可以創建一個較小的（即_minimal_）數據集，以便可以複製該問題？ –

一個簡單的解決辦法是：

x <- cumsum(table(dfsite$RecYr)) 
x <- cbind(c(1,x[-length(x)]),x) 
xseq <- c(apply(x,1,function(kk) round(seq(kk[1],kk[2],length.out=3)))) 

p <- ggplot(dfsite, aes(x=1:nrow(dfsite), y=Temperature)) + 
    geom_point() + facet_grid(.~RecYr, scale="free_x") + 
    scale_x_continuous("Time", breaks=xseq, 
     labels = dfsite$RecDT[xseq])+ 
theme(axis.text.x=element_text(angle=45,hjust=1)) 
print(p)

來源

2017-10-18 20:49:01

在R：如何在使用日期時間列的posixct時刪除日期 - 時間序列圖中的空白？

回答

相關問題