3

米国労働省のデータを表すグラフィックスを生成する必要がある (生成する) コードを Web で見つけました: 労働統計局:

library(ggplot2)
df <- as.data.frame(read.csv("unemp.csv", colClasses = c("Date", "numeric")))
p <- ggplot(df,aes(x=date,y=ratio))
p + geom_point() + geom_smooth() + xlab("Year") + 
ylab("Civilian Employment Population Ratio (%)") + 
labs(title="Bureau of Labor Statistics Series EMRATIO 
            (seasonally adjusted) to 2012-10-01")

しかし、それは機能せず、次のエラーが発生します。

Don't know how to automatically pick scale for object of type function. Defaulting to continuous
Error in eval(expr, envir, enclos) : object 'ratio' not found

このコードには何が欠けていますか?

「unemp.csv」にはここからのデータが含まれており、結果のグラフィックは次のようになります。

4

2 に答える 2

5

「date」と「ratio」という名前の変数がなかったため、エラーが発生しました。これはうまくいきます：

 library(ggplot2)
df <- as.data.frame(read.table("unemp.txt", header = TRUE, colClasses = c("Date", "numeric")))
names(df) <- c("date", "ratio")
p <- ggplot(df,aes(x=date,y=ratio))
p + geom_point() + geom_smooth() + xlab("Year") + 
  ylab("Civilian Employment Population Ratio (%)") +
  labs(title="Bureau of Labor Statistics Series EMRATIO (seasonally adjusted) to 2012-10-01")
于 2012-11-25T12:53:00.560 に答える