R中的日月與年圖

Question

我有一個包含以下行的csv文件：

V1     V2
1979   05/11/1979
1980   06/14/1980
1981   06/22/1981
1982   06/02/1982
1983   05/21/1983

我需要將其繪制為Y軸中的Day-Month和X軸中的Year

我嘗試執行以下操作：

dat    <-read.csv("test.csv",header=FALSE,sep=",")
dat$V3 <-as.Date(dat$V2,format="%m/%d/%y")
plot(dat$V1,dat$V3)

輸出是Year vs Year，這不是我想要的。 誰能提供有關如何繪制此類內容的提示？

輸出是這樣的：

我想要的應該是這樣的：

我將不勝感激。

提前謝謝了

Answer 1

不是解決這個問題的最優雅的方法，但是應該可以：

df$date <- as.Date(df$V2, format="%m/%d/%Y")
df$mm <- format(df$date, "%m") %>% as.numeric
df$dd <- format(df$date, "%d") %>% as.numeric

df$V3 <- df$mm + df$dd/30

plot(df$V1, df$V3, type="l", yaxt="n", ylim=c(5, 7))
points(df$V1, df$V3, pch=16)
axis(2, at=5:7, labels=c("May", "June", "July"))

使用的數據：

df <- structure(list(V1 = 1979:1983, V2 = structure(c(1L, 4L, 5L, 3L, 
2L), .Label = c("05/11/1979", "05/21/1983", "06/02/1982", "06/14/1980", 
"06/22/1981"), class = "factor"), date = structure(c(3417, 3817, 
4190, 4535, 4888), class = "Date"), dm = c(5.11, 6.14, 6.22, 
6.02, 5.21), mm = c(5, 6, 6, 6, 5), dd = c(11, 14, 22, 2, 21), 
V3 = c(5.36666666666667, 6.46666666666667, 6.73333333333333, 
6.06666666666667, 5.7)), .Names = c("V1", "V2", "date", "dm", 
"mm", "dd", "V3"), row.names = c(NA, -5L), class = "data.frame")