मैं आर में एक नौसिखिया हूं, और मेरे पास 2 चर के साथ एक सीएसवी फ़ाइल है। कॉलम नाम <> में 12 महीनों के लिए प्रत्येक दिन के लिए दिनांक और समय मान संयोजन होता है और चर के पास दिनांक से संबंधित <> कॉलम होता है। यह डेटा का उदाहरण है: यहां चित्र विवरण दर्ज करें

मैं प्रत्येक महीने के संबंधित दिन और समय की वायु गुणवत्ता देखने के लिए एक साधारण प्लॉट बनाना चाहता हूं। कुछ इस तरह अपेक्षित चित्र

मुझे कोई गणना करने की आवश्यकता नहीं है क्योंकि डेटा पहले से ही प्रति घंटा औसत है। लेकिन मैं प्लॉट बनाने के लिए काफी संघर्ष कर रहा हूं।

इस तरह मैं डेटा लोड करता हूं।

Data= read.csv("EarthSense.csv") ** फिर मैंने समय और घंटों को अलग करने की कोशिश की लेकिन यह काम नहीं कर रहा है क्योंकि यह सब कुछ NA में बदल देता है।

**Hours <- format(as.POSIXct(strptime(Data$date,"%d/%m/%Y %H:%M",tz="")) 
,format = "%H:%M")
 glimpse(Hours)
 Dates <- format(as.POSIXct(strptime(Data$date,"%d/%m/%Y %H:%M",tz="")) 
 ,format = "%d/%d/%Y")
 glimpse(Dates)
 **

Chr [१:८७५०] ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना ना...

**ggplot(data=Data,aes(x=date, y=value)) + 
  geom_path(colour="red") + 
  ylab("Temperatura (ºC)") + 
  xlab("Fecha")

**

0
tashu 20 जिंदा 2020, 16:10

1 उत्तर

सबसे बढ़िया उत्तर

संपादित करें: यह आपके उदाहरण डेटा का उपयोग करता है। दिनांक का प्रारूप %Y-%m-%d %H:%M:%S प्रतीत होता है।

df$fdate <- as.POSIXct(df$date, format = "%Y-%m-%d %H:%M:%S")
df$hour <- as.numeric(format(df$fdate, "%H"))
df$mo_yr <- as.factor(format(df$fdate, "%b-%Y"))

ggplot(data=df, aes(x=hour, y=PM2P5, col=mo_yr)) + 
  geom_line() + 
  ylab("Temperatura (ºC)") + 
  xlab("Hora")

edited plot of temp vs hour

ध्यान दें कि यह एक महीना-वर्ष कारक बनाता है। महीने-वर्ष की वस्तुओं से निपटने के अन्य तरीकों में शामिल हैं yearmonth में tsibble पैकेज और yearmon में zoo पैकेज।

डेटा

df <- structure(list(date = c("2019-01-01 02:00:00", "2019-01-01 03:00:00", "2019-01-01 04:00:00", "2019-01-01 05:00:00", "2019-01-01 06:00:00", "2019-01-01 07:00:00"), 
               PM2P5 = c(20.8, 7.1, 6.1, 9.7, 6.8, 12.2 )), row.names = c(NA, 6L), class = "data.frame")
1
Ben 20 जिंदा 2020, 18:16