Calculate the Zodiac of a Date

Calculate the sign of zodiac of a date.

Zodiac(x, lang = c("engl", "deu"), stringsAsFactors = TRUE)

Arguments

x

the date to be transformed.

lang

the language of the zodiac names, can be english (default) or german ("deu").

stringsAsFactors

logical. If set to TRUE (default) the result will consist of a factor with zodiac signs as levels.

Details

The really relevant things can sometimes hardly be found. You just discovered such a function... ;-)

The following rule to determine zodiac symbols is implemented:

Dec. 22  - Jan. 19  : Capricorn
Jan. 20  - Feb. 17  : Aquarius
Feb. 18  - Mar. 19  : Pisces
March 20 - April 19 : Aries
April 20 - May 19   : Taurus
May 20   - June 20  : Gemini
June 21  - July 21  : Cancer
July 22  - Aug. 22  : Leo
Aug 23   - Sept. 21 : Virgo
Sept. 22 - Oct. 22  : Libran
Oct. 23  - Nov. 21  : Scorpio
Nov. 22  - Dec. 21  : Sagittarius

Value

character vector or factor with the zodiac.

Author

Andri Signorell <andri@signorell.net>, based on code from Markus Naepflin

See also

Year and other date functions

Examples

Zodiac(as.Date(c("1937-07-28", "1936-06-01", "1966-02-25",
                 "1964-11-17", "1972-04-25")), lang="deu")
#> [1] Loewe     Zwillinge Fische    Skorpion  Stier    
#> 12 Levels: Steinbock Wassermann Fische Widder Stier Zwillinge Krebs ... Schuetze

d <- sample(seq(as.Date("2015-01-01"), as.Date("2015-12-31"), 1), 120)
z <- Zodiac(d)
Desc(z)
#> ────────────────────────────────────────────────────────────────────────────── 
#> z (factor)
#> 
#>   length      n    NAs unique levels  dupes
#>      120    120      0     12     12      y
#>          100.0%   0.0%                     
#> 
#>           level  freq   perc  cumfreq  cumperc
#> 1        Pisces    15  12.5%       15    12.5%
#> 2        Cancer    13  10.8%       28    23.3%
#> 3        Taurus    12  10.0%       40    33.3%
#> 4       Scorpio    11   9.2%       51    42.5%
#> 5        Gemini    10   8.3%       61    50.8%
#> 6         Virgo    10   8.3%       71    59.2%
#> 7     Capricorn     9   7.5%       80    66.7%
#> 8      Aquarius     9   7.5%       89    74.2%
#> 9   Sagittarius     9   7.5%       98    81.7%
#> 10          Leo     8   6.7%      106    88.3%
#> 11        Aries     7   5.8%      113    94.2%
#> 12        Libra     7   5.8%      120   100.0%
#>