扩大x轴

Question

我做了一张图。但是，x轴的文本是重叠的。这是我的图表和代码。

    library("ggplot2")

    fx_rates <- read.csv(file="NRUSD2.csv", head=TRUE, sep=",")

    fx_rates = fx_rates[,1:5]

    head(fx_rates)

    library(reshape)
    mdata <- melt(fx_rates, id=c("time"))


    head(mdata)

    library(scales)


    p1 <- ggplot(mdata, aes(x=time, y=value, colour=factor(variable), group=variable)) +
          geom_line() +
          ggtitle("Global Fx rate")

    p1 +  theme_bw()
    p1

在此图表中，时间文本重叠。所以我将矩形更改为90。

p1 <- ggplot(mdata, aes(x=time, y=value, colour=factor(variable), group=variable)) +
      geom_line() +
      ggtitle("Global Fx rate")+
      theme(axis.text.x = element_text(face="bold", color="#993333", 
                                       size=8, angle=90))

但我想宽x轴。很多人说“使用scale_x_continuous”。但我不知道怎么用......

您可以在此链接下载csv文件。 http://blog.naver.com/tjdudwo93/220842781714