plot number of publications

citationfinder · May 10, 2016 · e88b40b · e88b40b
1 parent a9e6a7f
commit e88b40b
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 25 deletions.
diff --git a/evaluationClusterAuthors.m b/evaluationClusterAuthors.m
@@ -12,9 +12,10 @@ function evaluationClusterAuthors(name, strategies)
     % init
     effectiveness = zeros(length(strategies), 7);
     efficiency = effectiveness;
+    inspected_publications = effectiveness;
 
     % legend
-    fprintf('%s\t%s\t%s\n','effectiveness', 'efficiency', 'strategy')
+    fprintf('%s\t%s\t%s\t%s\n','effectiveness', 'efficiency', 'publications', 'strategy')
 
     for i = 1:length(strategies)
         filename = fullfile(evaluation_dir, strcat('meta_', strategies{i}, '.csv'));
@@ -62,23 +63,23 @@ function evaluationClusterAuthors(name, strategies)
 
         %fprintf('citations no:%i\tfew:%i\tmedium:%i\tmany:%i\n', length(authors_citation_no),length(authors_citation_few), length(authors_citation_medium), length(authors_citation_many))
 
-        [effectiveness(i, 1), efficiency(i, 1)] = plotStrategy(strategies{i}, authors_num_citations, num_inspected_publications, num_citations);
+        [effectiveness(i, 1), efficiency(i, 1), inspected_publications(i, 1)] = plotStrategy(strategies{i}, authors_num_citations, num_inspected_publications, num_citations);
         idx = authors_citation_few;
-        [effectiveness(i, 2), efficiency(i, 2)] = plotStrategy(strcat(strategies{i}, '_citation_few (', int2str(length(authors_citation_few)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 2), efficiency(i, 2), inspected_publications(i, 2)] = plotStrategy(strcat(strategies{i}, '_citation_few (', int2str(length(authors_citation_few)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
         idx = authors_citation_medium;
-        [effectiveness(i, 3), efficiency(i, 3)] = plotStrategy(strcat(strategies{i}, '_citation_medium (', int2str(length(authors_citation_medium)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 3), efficiency(i, 3), inspected_publications(i, 3)] = plotStrategy(strcat(strategies{i}, '_citation_medium (', int2str(length(authors_citation_medium)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
         idx = authors_citation_many;
-        [effectiveness(i, 4), efficiency(i, 4)] = plotStrategy(strcat(strategies{i}, '_citation_many (', int2str(length(authors_citation_many)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 4), efficiency(i, 4), inspected_publications(i, 4)] = plotStrategy(strcat(strategies{i}, '_citation_many (', int2str(length(authors_citation_many)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
 
         %fprintf('publications few:%i\tmedium:%i\tmany:%i\n', length(authors_publication_few),length(authors_publication_medium), length(authors_publication_many))
         %fprintf('%s\t%s\t%s\n','effectiveness', 'efficiency', 'strategy')
 
         idx = authors_publication_few;
-        [effectiveness(i, 5), efficiency(i, 5)] = plotStrategy(strcat(strategies{i}, '_publication_few (', int2str(length(authors_publication_few)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 5), efficiency(i, 5), inspected_publications(i, 5)] = plotStrategy(strcat(strategies{i}, '_publication_few (', int2str(length(authors_publication_few)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
         idx = authors_publication_medium;
-        [effectiveness(i, 6), efficiency(i, 6)] = plotStrategy(strcat(strategies{i}, '_publication_medium (', int2str(length(authors_publication_medium)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 6), efficiency(i, 6), inspected_publications(i, 6)] = plotStrategy(strcat(strategies{i}, '_publication_medium (', int2str(length(authors_publication_medium)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
         idx = authors_publication_many;
-        [effectiveness(i, 7), efficiency(i, 7)] = plotStrategy(strcat(strategies{i}, '_publication_many (', int2str(length(authors_publication_many)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
+        [effectiveness(i, 7), efficiency(i, 7), inspected_publications(i, 7)] = plotStrategy(strcat(strategies{i}, '_publication_many (', int2str(length(authors_publication_many)),')'), authors_num_citations(idx), num_inspected_publications(idx), num_citations(idx));
 
     end
 
@@ -103,10 +104,21 @@ function evaluationClusterAuthors(name, strategies)
         legend(legend_labels, 'Location', 'northwest')
 
     figure
-        bar(efficiency)
+        b = bar(efficiency);
+        b(1).LineWidth = 2;
+        b(1).EdgeColor = 'red';
         grid on
         set(gca,'xticklabel', xaxis_labels)
         ylabel('Effizienz')
+        legend(legend_labels, 'Location', 'northeast')
+
+    figure
+        b = bar(inspected_publications);
+        b(1).LineWidth = 2;
+        b(1).EdgeColor = 'red';
+        grid on
+        set(gca,'xticklabel', xaxis_labels)
+        ylabel('Anzahl untersuchte Publikationen')
         legend(legend_labels, 'Location', 'northwest')
 
 end
diff --git a/plotStrategy.m b/plotStrategy.m
@@ -1,4 +1,4 @@
-function [effectiveness_mean, efficiency_mean] = plotStrategy(strategy_name, author_num_citations, num_inspected_publications, num_citations, do_plot)
+function [effectiveness_mean, efficiency_mean, inspected_publications_mean] = plotStrategy(strategy_name, author_num_citations, num_inspected_publications, num_citations, do_plot)
 
     if nargin < 4
         error('Not enough input arguments.')
@@ -25,21 +25,7 @@
 
     if do_plot
         x_axis = 1:length(author_num_citations);
-        %{
-        figure(2+i)
-                hold on
-                
-                [ax, h1, h2] = plotyy(x_axis, effectiveness, x_axis, efficiency, 'semilogy','plot');
-                %h1.LineStyle = ':';
-                %h2.LineStyle = ':';
-                hold off
-                grid on
-                legend('nc/ac', 'nc/np')
-                title(strategies{i})
-                xlabel(ax(1),'Measurement')
-                ylabel(ax(1),'Effectiveness #Citations / #Total Citations')
-                ylabel(ax(2),'Efficiency #Citations / #Inspected Publications')
-        %}
+
         figure(1)
             hold on
             plot(x_axis, effectiveness)