Wiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

できたあああああああああああああああああああ

# http://enjoygame.at.webry.info/200908/article_37.html#9をコピペ
df <- read.delim("clipboard", as.is = TRUE)
head(df)

##                              X3DS DS.DSL.Dsi PS.Vita    PSP   Wii   PS3
## 2010年12月27日～2011年1月2日    -      99578       - 108786 77307 76422
## 2011年1月3日～1月9日            -      87118       -  32841 56547 59612
## 2011年1月10日～1月16日          -      32824       -  31014 21291 33190
## 2011年1月17日～1月23日          -      22238       -  35834 14547 23792
## 2011年1月24日～1月30日          -      22561       -  34928 19448 25149
## 2011年1月31日～2月6日           -      22565       -  30611 14972 23846
##                              XB360
## 2010年12月27日～2011年1月2日  3708
## 2011年1月3日～1月9日          3859
## 2011年1月10日～1月16日        2636
## 2011年1月17日～1月23日        2338
## 2011年1月24日～1月30日        3513
## 2011年1月31日～2月6日         2282

df$period <- gsub("～.+", "", rownames(df)
df$period <- as.Date(gsub("年|月|日", "-", df$perio`
library(reshape2)
df.m <- melt(df, id.var = "period")
df.m$value <- as.numeric(df.m$value)

## Warning message:  強制変換により NA が生成されました 

colnames(df.m) <- c("period", "name", "count")
library(ggplot2)

## Need help? Try the ggplot2 mailing list: http://groups.google.com/group/ggplot2.

ggplot(df.m, aes(x = period, y = count, group = name)) + geom_line(aes(color = name)) + 
    geom_point(aes(color = name)) + opts(title = "Video game sales") + labs(y = "count")

## Warning message: Removed 58 rows containing missing values (geom_path).

## Warning message: Removed 58 rows containing missing values (geom_point).