Thursday, July 9, 2015

クリップボードからRにデータを取り込む。

前回の投稿のスライドを、とあるページのテキストをコピーして実行してみた。
> data <-scan -o="" br="" pipe="" what="character" xclip="">Read 2882 items
> data_list <- br="" data="" strsplit="">> data_unlist <- br="" data_list="" unlist="">> sort_data <- br="" data_unlist="" sort="">> uniq_data <- br="" sort_data="" unique="">> length(data_unlist)
[1] 2882
> data_all <- br="" data_unlist="" table="">> data_type <- br="" length="" uniq_data="">> data_type
[1] 1091
> write.table(data_all, file="freq.txt", sep="\t")
 警告メッセージ:
1:  使われていないコネクション 6 (xclip -o) を閉じます
2:  使われていないコネクション 5 (xclip -o) を閉じます
3:  使われていないコネクション 4 (xclip -o) を閉じます
4:  使われていないコネクション 3 (xclip -o) を閉じます
> length(grep("^A,?", data_unlist, fixed=FALSE, value=TRUE))
[1] 27
> length(grep("^The,?", data_unlist, fixed=FALSE, value=TRUE))
[1] 41
> freq <- 41="" br="" c="">> barplot(freq, names=c("A", "The"))
一行目は、MacやWinでは、下のようになることに注意。
data <-scan ac="" br="" pbpaste="" pipe="" what="character">data <-scan blockquote="" clipboard="" in="" what="character">