التواريخ في R: ‏as.Date وformat() وحساب التواريخ

التاريخ في R عدّاد أيام يرتدي زيًّا

لتحويل سلسلة نصية إلى تاريخ حقيقي استخدم as.Date()، وللحصول على تاريخ اليوم استخدم Sys.Date(). وخلف كلتيهما حيلة بسيطة: فصنف Date في R ليس سوى رقم، أي عدد الأيام منذ الأول من يناير 1970، يرتدي زيًّا يجعله يُطبع كتاريخ تقويمي. ويمكنك نزع الزي بـ unclass():

d <- as.Date("2026-08-07")
print(d)
print(class(d))
print(unclass(d))

القيمة 20672 هي عدّاد الأيام الخام، وهي ما يجعل كل شيء آخر في هذه الصفحة يعمل: فالمقارنات والطرح والمتتاليات كلها حساب أعداد صحيحة في العمق. أما الزي فهو ما يجعله قابلًا للاستخدام، إذ يُطبع الرقم نفسه تاريخًا، ويُنسَّق تاريخًا، ويُرسم على محور تواريخ.

وتحلل as.Date() بسرور ترتيب ISO أي "YYYY-MM-DD" دون أي مساعدة، وهذا أحد أسباب عدة وجيهة لتخزين التواريخ بهذه الصيغة في ملفاتك. وعادة ينبغي بناؤها مبكرًا: التحليل الفاشل يُرجع NA بصمت لا خطأً، لذا ألقِ دائمًا نظرة على النتيجة بعد تحليل شيء جديد.

والسلاسل التي تبدو تواريخ تظل مجرد سلاسل نصية: فالمقارنة "2026-08-07" < "2026-11-01" تصادف أن تكون صحيحة لأن ترتيب ISO يوافق الترتيب الأبجدي، أما "07/08/2026" فترتيبها عبث. حوّل أولًا ثم قارن.

تحليل الترتيبات الأخرى بـ format =

لا يكتب العالم تواريخه بصيغة ISO. ولكل ما عدا ذلك، تأخذ as.Date() وسيطًا اسمه format =، وهو وصفة تصف السلسلة الواردة ومبنية من رموز %.

print(as.Date("07/08/2026", format = "%d/%m/%Y"))
print(as.Date("08-07-26", format = "%m-%d-%y"))
print(as.Date("7 August 2026", format = "%d %B %Y"))

كلها الثلاثة تُحلَّل إلى اليوم نفسه. ويجب أن تطابق الوصفة السلسلة تمامًا بما فيها الفواصل: فـ "%d/%m/%Y" لن تحلل "07-08-2026". وهذه الرموز التي ستستخدمها فعلًا:

الرمز	المعنى	مثال
%Y	سنة من أربعة أرقام	2026
%y	سنة من رقمين	26
%m	رقم الشهر	08
%d	يوم الشهر	07
%b	اسم الشهر مختصرًا	Aug
%B	اسم الشهر كاملًا	August
%a	اسم اليوم مختصرًا	Fri
%A	اسم اليوم كاملًا	Friday
%H	الساعة (00-23)	14
%M	الدقيقة	30
%S	الثانية	05

والكمين الكلاسيكي هو "07/08/2026" نفسها: يوم/شهر/سنة في معظم العالم، وشهر/يوم/سنة في الولايات المتحدة، ولا يستطيع R تخمين أي منهما يقصد ملفك. والأسوأ أن التخمين الخاطئ "ينجح" غالبًا لأن القراءتين تاريخان صالحان، إلى أن يأتي اليوم الثالث عشر من شهر ما فيُحلَّل إلى NA (إذ لا يوجد شهر ثالث عشر). فاعرف عرف بياناتك قبل أن تكتب الوصفة.

تنسيق التواريخ للعرض

‏format() هي صورة as.Date() في المرآة: الرموز % نفسها لكن في الاتجاه المعاكس، إذ يدخل التاريخ وتخرج السلسلة.

d <- as.Date("2026-08-07")

print(format(d, "%B %d, %Y"))
print(format(d, "%d.%m.%Y"))
print(format(d, "%A"))

استخدم ذلك في عناوين التقارير والتسميات وأسماء الملفات، فـ format(Sys.Date(), "%Y-%m-%d") تنتج أسماء تُرتَّب زمنيًا. وتفصيلان يستحقان المعرفة: يضيف %d صفرًا بادئًا ("August 07")، وينتج %B/%A أسماءً بلغة إعدادات نظامك، فجلسة مضبوطة على الألمانية تطبع "Freitag" بدل "Friday". أبقِ التنسيق على أطراف سكربتك ومن أجل البشر، وأبقِ التواريخ داخليًا تواريخ.

حساب التواريخ والمتتاليات

لأن التاريخ عدّاد أيام، يعمل الحساب كما تتمنى. وطرح تاريخين يعطي كائن difftime:

deadline <- as.Date("2026-08-07")
start <- as.Date("2026-01-01")

gap <- deadline - start
print(gap)
print(as.numeric(gap))
print(difftime(deadline, start, units = "weeks"))

print(deadline + 7)
print(deadline - 30)

ثلاث عادات تؤخذ من هذه الكتلة. أولًا، غلّف difftime بـ as.numeric() قبل إجراء حسابات عليه، فهو يحمل سمة وحدات قد تفاجئ الحسابات اللاحقة. ثانيًا، حين تهم الوحدات فصرّح بها عبر difftime(units = ) بدل قبول ما يختاره R. ثالثًا، إضافة رقم مجرد تعني إضافة أيام، فلا توجد صيغة + 1 month في base R لأن "شهرًا واحدًا" ليس عددًا ثابتًا من الأيام.

وللتنقل الواعي بالتقويم استخدم seq()، فهي تفهم "day" و"week" و"month" و"quarter" و"year":

print(seq(as.Date("2026-01-01"), by = "month", length.out = 4))
print(seq(as.Date("2026-08-07"), by = "week", length.out = 3))

ومتتاليات الأشهر هي الأداة المعيارية لفترات التقارير وعلامات المحاور. وثمة طرافة واحدة: ابدأ متتالية شهرية في اليوم 31 وسيواصل R عدّ الأيام الحقيقية عبر أشهر تفتقر إليه، فتقع مدخلة "فبراير" في أوائل مارس. لذا ثبّت المتتاليات الشهرية على اليوم الأول واشتق كل شيء آخر منه.

استخراج أجزاء التاريخ

يملك base R مستخرِجَين مريحين وصيغة عامة واحدة. تُرجع weekdays() وmonths() أسماءً، أما للأرقام فمرّ عبر format() ذهابًا وإيابًا:

d <- as.Date("2026-08-07")

print(weekdays(d))
print(months(d))

print(as.integer(format(d, "%Y")))
print(as.integer(format(d, "%m")))
print(as.integer(format(d, "%d")))

تبدو حركة format() ثم as.integer() ملتوية، لكنها الصيغة المعيارية في base R، وهي متجهية، فمرّر إليها عمود تواريخ كاملًا تحصل على عمود سنوات كامل. وهذا بالضبط ما تريده بعد استيراد مجموعة بيانات مؤرخة من ملف CSV: حلّل عمود التاريخ مرة واحدة بـ as.Date()، ثم اشتق عمودَي السنة والشهر للتجميع.

حين لا تكفي الأيام: ‏POSIXct وlubridate

لا يعرف Date مفهوم الساعات. وفي اللحظة التي تحمل فيها بياناتك طوابع زمنية، كمدخلات السجلات وقراءات المستشعرات و"تم الطلب في 14:32"، تحتاج إلى POSIXct، وهو صنف التاريخ والوقت في R: عدد الثواني منذ 1970 بدل الأيام، مع إدراك المناطق الزمنية.

t1 <- as.POSIXct("2026-08-07 09:30:00", tz = "UTC")
t2 <- as.POSIXct("2026-08-07 14:00:00", tz = "UTC")

print(t1)
print(t2 - t1)

كل شيء ينتقل معه: فرموز % نفسها (وتشمل الآن %H و%M و%S) تصلح للتحليل ولـ format()، ويعطي الطرح كائنات difftime، وتمثل Sys.time() "الآن". والعبء الجديد هو المنطقة الزمنية، فمرّر tz = صراحةً عند التحليل، لأن جلستين في منطقتين مختلفتين ستقرآن السلسلة نفسها لحظتين مختلفتين لولا ذلك. وقاوم تخزين البيانات التقويمية بصيغة POSIXct "تحسبًا"، فعيد ميلاد مخزَّن كمنتصف ليل في منطقة ما قد يُطبع اليوم السابق في منطقة أخرى، وهو خلل بائس فعلًا في تتبعه. الأيام الكاملة: Date. واللحظات: POSIXct.

وأخيرًا، حزمة lubridate هي الوجه الأودّ الذي تضعه معظم شيفرة tidyverse على كل ما سبق، وتستحق التبني بعد استيعاب آليات base:

library(lubridate)

ymd("2026-08-07")            # order-based parsing: no format string
mdy("08/07/2026")            # ...you just say which order the parts come in
dmy("7 August 2026")
floor_date(Sys.Date(), "month")   # snap to the start of the period

تستبدل ymd() وmdy() وdmy() بوصفات التنسيق تصريحًا بسيطًا بترتيب الأجزاء، وتحل floor_date() مسألة "جمّع هذه الطوابع الزمنية حسب الشهر" في استدعاء واحد. وتقوم lubridate على صنفَي Date/POSIXct نفسيهما في العمق، فهي مقود أفضل لا محرك مختلف.

الخلاصة

• ‏Date عدّاد أيام منذ 1970-01-01 مكسوّ بزي يجعله يُطبع كتاريخ، وتكشف unclass() عن الرقم.
• تحلل as.Date("2026-08-07") صيغة ISO مباشرة، وأي صيغة أخرى تحتاج إلى وصفة format = من رموز %، والتحليل الفاشل يُرجع NA بصمت.
• ‏format(date, "...") هي العكس: الرموز نفسها لكنها تنتج سلاسل عرض.
• يعطي الطرح كائن difftime، فحدّد units = صراحةً واستخدم as.numeric() قبل الحساب. وتضيف + n أيامًا، وللأشهر استخدم seq(by = "month").
• تستخرج weekdays() وmonths() وصيغة as.integer(format(...)) الأجزاء، وكلها متجهية.
• ‏Date للأيام الكاملة، وPOSIXct (مع tz صريحة) للطوابع الزمنية، وlubridate تجعل كليهما أودّ.

في المستند التالي: ماذا تفعل حين يصرخ R في وجهك، أي قراءة رسائل الخطأ وتنقيحها بطريقة منهجية.