ggplotはとても便利ですが、普通に使うとラベルがうまく貼れないですよね。

そんな時はdirectlabels！

こんな感じ。とっても綺麗！

library(ggplot2)
market.price<-c(1267,137,952,1662,139,601,1412,629)
book.value<-c(32, 137, 824, 1278, 111, 304, 1649, 135)
z<-c("gunho", "matsukiyo", "asahikasei", "kirin", "aoki", "shiseido", "daiichi", "sharp")
ggplot(book.value, market.price)+geom_point(aes(colour=z))
direct.label(q, "smart.grid")