2

日付形式を正しく取得するのに苦労しています。データはすでにmelt()形式です。データには、たまたま同じデータを共有する 4 つの変数があります。4 本の線 (個々の線として各変数) を持つ単純な折れ線グラフをプロットし、9 月 12 日を最新のデータ ポイントとして表示したいのですが? 古いggplotを使用しています。お手数ですが、質問が 2 つあります。

最初の質問: データを四半期ごとに表示するにはどうすればよいですか (日付間隔は 9 月 11 日、12 月 11 日、3 月 12 日、6 月 12 日、9 月 12 日です)。

2 番目の質問: グリッド線と灰色の背景を非表示にするにはどうすればよいですか?

  x4.1.m<-structure(list(Var.1=structure(c(1L,2L,3L,4L,5L,6L,1L,2L,3L,4L,5L,6L,1L,2L,3L,4L,5L,6L,1L,2L,3L,4L,5L,6L,1L,2L,3L,4L,5L,6L),.Label=c("I'vechangedforwork/anewjob/goneonaworkplan","Iwantaphonethat2degreesdoesn'toffer","IwantBestMates/Favourites","Iwasofferedorsawabetterofferonanothernetwork","Issueswiththe2degreesnetwork(poorcoverage)","Other"),class="factor"),YearQuarter=structure(c(1L,1L,1L,1L,1L,1L,2L,2L,2L,2L,2L,2L,3L,3L,3L,3L,3L,3L,4L,4L,4L,4L,4L,4L,5L,5L,5L,5L,5L,5L),.Label=c("2011-09-01","2011-12-01","2012-03-01","2012-06-01","2012-09-01"),class="factor"),value=c(0.23,0.23,0.121,0.25,0.223,0.14,0.39,0.22,0.05,0.37,0.25,0.2,0.09,0.14,0.05,0.3,0.4,0.12,0.13,0.1,0.26,0.38,0.28,0.15,0.33,0.05,0.06,0.44,0.32,0.43)),.Names=c("Var.1","YearQuarter","value"),row.names=c(NA,-30L),class="data.frame")

  x4.1.m$YearQuarter <- format(as.Date(x4.1.m$YearQuarter),"%b-%y")

  x4.line <- ggplot(data=x4.1.m, aes(x=factor(YearQuarter), y=value,colour=Var.1)) + 
         geom_smooth(se=F, size=1.5)+labs(y="Percentage",x="Year Quarter")

  x4.line+geom_text(aes(label =paste(round(value*100,0), "%", sep=""),group=Var.1),
                    size = 3, hjust = 0.5, vjust =1.5) +

  opts(axis.line = theme_segment(colour = "black"),
            panel.grid.major = theme_blank(),
            panel.background=theme_blank(),
                panel.grid.minor = theme_blank(),
                panel.border = theme_blank()) +
        scale_y_continuous("Percentage",labels=percent, limits=c(0,0.5)) +
        ggtitle("Percentages:Main Reasons for Leaving 2degrees by Quarter") +
        theme(plot.title = element_text(size=rel(1.2)))
4

1 に答える 1

1

残念ながら、質問は明確ではありません。私は答えを確信できません。しかし、最終結果は良いようです。

ggplot2 の最新バージョンを使用しているため、コードを変更します。日付形式に問題はありませんが、ggplot2 と少し混乱しています。

パーセント書式設定用にscalesパッケージを追加したことに注意 してください。

library(scales)
library(ggplot2)
###data 
x4.1.m$YearQuarter <- as.Date(x4.1.m$YearQuarter)
x4.1.m$label       <- paste(round(x4.1.m$value*100,0), "%", sep="")

### plot
x4.line <- ggplot(data=x4.1.m, aes(x=YearQuarter, y=value,colour=Var.1,group = Var.1))
x4.line <- x4.line + geom_smooth(se=F, size=1.5)
x4.line <- x4.line + geom_text(aes(label = label),size = 3, hjust = 0.5, vjust =1.5) 

### theme  
x4.line <- x4.line +  theme(axis.line = element_line(colour = "black"),
       panel.grid.major = element_blank(),
       panel.background=element_blank(),
       panel.grid.minor = element_blank(),
       panel.border = element_blank()) 

x4.line <- x4.line +  ggtitle("Percentages:Main Reasons for Leaving 2degrees by Quarter") +
  theme(plot.title = element_text(size=rel(1.2)))+ 
scale_y_continuous(labels=percent, limits=c(0,0.5)) +
  scale_x_date(labels = date_format("%b-%y"))+
  labs(y="Percentage",x="Year Quarter")

x4.line

ここに画像の説明を入力

于 2012-12-03T23:11:44.850 に答える