https://www.mediawiki.org/wiki/Special:Code/MediaWiki/112748
Revision: 112748
Author: rfaulk
Date: 2012-03-01 00:43:33 +0000 (Thu, 01 Mar 2012)
Log Message:
-----------
added script for performing basic visualizations on the data
Added Paths:
-----------
trunk/tools/wsor/message_templates/R/visualize_edits_decrease.R
Added: trunk/tools/wsor/message_templates/R/visualize_edits_decrease.R
===================================================================
--- trunk/tools/wsor/message_templates/R/visualize_edits_decrease.R
(rev 0)
+++ trunk/tools/wsor/message_templates/R/visualize_edits_decrease.R
2012-03-01 00:43:33 UTC (rev 112748)
@@ -0,0 +1,105 @@
+
+#
source('/home/rfaulkner/trunk/projects/WSOR/message_templates/R/visualize_edits_decrease.R')
+#
+# Ryan Faulkner, February 28th 2012
+#
+# Prepare data and visualize
+#
+
+source('/home/rfaulkner/trunk/projects/WSOR/message_templates/R/template_analysis.R')
+# library(ggplot2)
+
+# FUNCTION :: plot.control.vs.test
+#
+# Basic plotting for te st vs. control
+#
+
+plot.control.vs.test <- function(title, x_label, y_label, test_samples,
control_samples) {
+
+ # Define axis range
+
+ scaling_factor = 10
+ shift_factor = 0.1
+ y_axis_range = ((scaling_factor + shift_factor) * min(c(test_samples,
control_samples, 0))) : ((scaling_factor + shift_factor) * max(c(test_samples,
control_samples)))
+ y_axis_range = round(y_axis_range / scaling_factor, digits=2)
+ g_range <- range(y_axis_range)
+
+ # Graph cars using a y axis that ranges from 0 to 12
+ plot(edit_decrease_means_test, type="o", col="blue",
ylim=c(g_range[1],g_range[2]), axes=FALSE, ann=FALSE)
+
+ # Make x axis using Mon-Fri labels
+
+ axis(1, at=1:length(test_samples))
+ axis(2, las=1, at=y_axis_range)
+ box()
+
+ # Create a title with a red, bold/italic font
+ title(main=title, col.main="red", font.main=4)
+
+ # Make x axis using Mon-Fri labels
+ # Label the x and y axes with dark green text
+ title(xlab=x_label, col.lab=rgb(0,0.5,0))
+ title(ylab=y_label, col.lab=rgb(0,0.5,0))
+
+ # Graph trucks with red dashed line and square points
+ lines(edit_decrease_means_control, type="o", pch=22, lty=2, col="red")
+
+ # Create a legend at (1, g_range[2]) that is slightly smaller
+ # (cex) and uses the same line colors and points used by
+ # the actual plots
+ legend(1, 1, c("test","control"), cex=0.8,
+ col=c("blue","red"), pch=21:22, lty=1:2);
+}
+
+
+plot.control.vs.test.ggplot <- function(test_samples, control_samples) {
+
+ df <- data.frame(x=1:length(test_samples), y_test=test_samples,
y_ctrl=control_samples)
+
+ ggplot(df,aes(x)) + geom_line(aes(y=y_test,colour="Test")) +
geom_line(aes(y=y_ctrl,colour="Control"))
+}
+
+
+# IMPORT DATA
+
+# c(84, 0) c(107,109,111,113,115) c(78,81) c(1,4) c(84,99,101,103,105)
+template_indices_control <- c(60,62,64,66,68,70,72,74,76)
+
+# c(85, 0) c(108,110,114,116) c(79,82) c(2,3) c(85,86,100,102,104,106)
+template_indices_test <- c(61,63,65,67,69,71,73,75,77)
+
+# paste(home_dir,"output/metrics_1108_1202_z",sep="")
paste(home_dir,"output/metrics_1122_1222_z",sep="")
paste(home_dir,"output/metrics_1109_1209_z",sep="")
paste(home_dir,"output/metrics_pt_z",sep="")
"/home/rfaulk/WSOR/message_templates/output/metrics_pt_z"
+fname_first_part <- paste(home_dir,"output/metrics_1018_1119_z",sep="")
+
+import.experimental.metrics.data(template_indices_test,
template_indices_control, fname_first_part)
+
+
+
+# PROCESS DATA
+
+edit_count_before_filter <- 1:10
+
+edit_decrease_means_test <- c()
+edit_decrease_means_control <- c()
+
+for (i in edit_count_before_filter)
+{
+ process.data.frames(i,0,Inf,Inf)
+
+ edit_decrease_means_test <- c(edit_decrease_means_test,
mean(merged_test$edits_decrease))
+ edit_decrease_means_control <- c(edit_decrease_means_control,
mean(merged_control$edits_decrease))
+}
+
+# PLOT DATA
+
+# plot.control.vs.test("Huggle Short 2 Experiment - Decrease in Editor
Activity", "Minimum Edits before Template Posting", "Mean % Decrease in Edit
Activity", edit_decrease_means_test, edit_decrease_means_control)
+
+# ggplot
+
+plot_title = "Huggle 3 - % decrease of Edit Actitivity after Posting"
+
+df <- data.frame(x=1:length(edit_decrease_means_test),
y_test=edit_decrease_means_test, y_ctrl=edit_decrease_means_control)
+p = ggplot(df,aes(x)) + geom_line(aes(y=y_test,colour="Test")) +
geom_line(aes(y=y_ctrl,colour="Control"))
+p + scale_x_continuous('Minimum Edits before Template Posting') +
scale_y_continuous('Mean % Decrease in Edit Activity') + opts(title =
plot_title, legend.title = theme_blank())
+ggsave('/home/rfaulkner/trunk/projects/WSOR/message_templates/R/plots/huggle_3.png',width=8)
+
_______________________________________________
MediaWiki-CVS mailing list
[email protected]
https://lists.wikimedia.org/mailman/listinfo/mediawiki-cvs
