Posted at

R as kidpics

More than 3 years have passed since last update.

お絵描きソフトの使い方すぐ忘れる

データ読み込んでヘッダを修正する

d<-read.delim("./col3.flatten.list")

colnames(d)<-c("value")

ラベル長すぎるから適当に置換して\nを入れて改行させる

d$value <- sub("-( | )", "\n ", d$value)

カウントごとにbarplot並べるためにソートしたやつをggplotに食わせる

p <- ggplot(d, aes(x=reorder(value,value,function(x)-length(x))))

p <- p + geom_bar(binwidth=.1)

日本語はデフォルトで文字化けする

p <- p + theme_bw(base_family = "HiraKakuProN-W3")

長いラベルは回転させたりとかしないで横にすればいい

p <- p + coord_flip()

文字の大きさとタイトルを修正

p <- p + theme(text = element_text(size=10))

p <- p + labs(title="Sessions of Interest", x="talks")