library(ggplot2) library(plyr) #Read in and aggregate data users.df <- as.data.frame( table( read.delim ( file.path(getwd(), "matt_query.tsv"), header = TRUE, as.is = TRUE ) $skin) ) #Add percentages users.df$Percentage <- users.df$Freq/sum(users.df$Freq)*100 #Aesthetic tweak users.df <- rename( users.df, c( "Var1" = "Skin" ) ) #Graph skins.plot <- ggplot(data = users.df, aes(x = reorder(Skin,Percentage), y = Percentage, width=.5)) + geom_bar(width=.5, fill = "red", stat = "identity", position = "dodge") + labs(x = "Skin", y = "Percentage") + ggtitle("Skin usage on enwiki by user_touched in the last month") #Output graph #print the all-users plot png(filename = "matt_query_graph.png", width = 600, height = 600, units = 'px') print(skins.plot) dev.off() #Write data write.table(users.df, file = "matt_query_results.tsv", col.names = TRUE, row.names = FALSE, sep = "\t") #Die rm(list = ls())