# export LC_CTYPE=en_US.UTF-8 # export LC_ALL=en_US.UTF-8 library(ggplot2) data <- read.csv("mine_cat.csv", stringsAsFactors=FALSE) data$Category <- factor(x=data$category, levels=c("1","2","4", "3", "0"), labels=c("APP", "FMW", "EXT", "EXP", "MISC")) p1 <- ggplot() + geom_point(data=data, mapping=aes(x=file_count, y=selenium_file_count, colour=Category, shape=Category)) + scale_x_log10() + scale_y_log10() + theme(legend.position="none", axis.text=element_text(size=14), axis.title=element_text(size=18)) + xlab("File") + ylab("Sel File") ggsave("../git_paper/2014-icpc-seleniumusage/relevant_data/plot/cat_p1.png") p2 <- ggplot() + geom_point(data=data, mapping=aes(x=loc, y=selenium_loc, colour=Category, shape=Category)) + scale_x_log10() + scale_y_log10() + theme(legend.position="none", axis.text=element_text(size=14), axis.title=element_text(size=18)) + xlab("LoC") + ylab("Sel LoC") ggsave("../git_paper/2014-icpc-seleniumusage/relevant_data/plot/cat_p2.png") p3 <- ggplot() + geom_point(data=data, mapping=aes(x=selenium_file_count, y=selenium_loc, colour=Category, shape=Category)) + scale_x_log10() + scale_y_log10() + theme(legend.position="none", axis.text=element_text(size=14), axis.title=element_text(size=18)) + xlab("Sel File") + ylab("Sel LoC") ggsave("../git_paper/2014-icpc-seleniumusage/relevant_data/plot/cat_p3.png") p4 <- ggplot() + geom_point(data=data, mapping=aes(x=file_count, y=loc, colour=Category, shape=Category)) + scale_x_log10() + scale_y_log10() + theme(legend.position="right") + xlab("LoC") + ylab("File") ggsave("../git_paper/2014-icpc-seleniumusage/relevant_data/plot/cat_p4.png") quit(save="no")