3

亲爱的智人同胞，

我使用下面的代码创建了这个图（除了没有+ scale_x_date）。

我用来执行此操作的数据集可在此处找到。它看起来像这样：

GFC1CARi<-read.csv("demo.csv")
head(GFC1CARi)
  X         XX   variable       value    Var
1 1 2008-07-17 Financials 0.001772705 Financ
2 2 2008-07-18 Financials 0.017306086 Financ
3 3 2008-07-21 Financials 0.010745136 Financ
4 4 2008-07-22 Financials 0.021152194 Financ
5 5 2008-07-23 Financials 0.031195805 Financ
6 6 2008-07-24 Financials 0.026534444 Financ

正如您将在图片中看到的，x 轴显示日期，例如“Aug”、“Sep”......。但是，我希望它类似于 "08/2007", "09/2007" ... 。所以，我的尝试如下所示，但它不起作用。

p <- ggplot(data=GFC1CARi,aes(x=XX, y=value, colour=Var)) +
        geom_line() + 
        opts(legend.position = "none") + 
        xlab(" ") + 
        ylab("Cumulative abnormal return") + 
        scale_x_date(labels = date_format("%m/%Y"),breaks = "1 month")

p <- direct.label(p+xlim(min(GFC1CARi$XX), max(GFC1CARi$XX)+20))

我尝试了许多其他变体，breaks = ??但date_format我无法显示 %m/%Y，它始终是“Aug”..“Sep”..“Oct”。根据乔兰的要求：

> str(GFC1CARi)
'data.frame':   1730 obs. of  5 variables:
 $ X       : int  1 2 3 4 5 6 7 8 9 10 ...
 $ XX      : POSIXct, format: "2008-07-17" "2008-07-18" "2008-07-21" "2008-07-22" ...
 $ variable: Factor w/ 10 levels "Financials","Industrials",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ value   : num  0.00177 0.01731 0.01075 0.02115 0.0312 ...
 $ Var     : chr  "Financ" "Financ" "Financ" "Financ" ...

我什至尝试将日期格式从 POSIXct 更改as.Date为如下：

GFC1CARi[,2]<-as.Date(GFC1CARi[,2])
str(GFC1CARi)
'data.frame':   1730 obs. of  5 variables:
 $ X       : int  1 2 3 4 5 6 7 8 9 10 ...
 $ XX      : Date, format: "2008-07-16" "2008-07-17" ...
 $ variable: Factor w/ 10 levels "Financials","Industrials",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ value   : num  0.000983 0.015822 0.008339 0.017987 0.027186 ...
 $ Var     : chr  "Financ" "Financ" "Financ" "Financ" ...

这并不能解决问题。相反，X 轴现在是 {“Oct”、“Jan”、“Apr”}，就是这样。

谢谢大家。

4

1 回答 1

2

抱歉，我太密集了。我认为您遇到的错误发生在尝试使用之前directlabels，而不是之后。

调用xlim只是简单地踩在 x 轴格式上。只需将scale_x_date调用放在direct.labels对我有用的命令中：

p <- direct.label(p + 
                  xlim(min(dat$XX), max(dat$XX)+20) + 
                  scale_x_date(labels = date_format("%m/%Y"),breaks = "1 month"))

在此处输入图像描述

于 2012-07-07T18:48:53.863 回答