@@ -15,11 +15,12 @@ df_cso <- read.csv('~/PycharmProjects/SoftwareTopics/data/interim/taxonomy/cso_p
1515
1616# target <- c("\\# Nodes", "\\# Edges", "\\# Leafs", "\\# Roots", "\\# Self Loops", "\\# Cycles", "\\# CC", "Pairs Acc", '\\# New Terms', "\\# Parents", "\\# Children", 'Density', 'Avg Eccentricity', 'Diameter', 'Max Parents', 'Max Children', "Avg Depth")
1717
18- target <- c(" \\ # Nodes" , ' \\ # New Terms' , ' \\ # Unlinked' , " \\ # Edges" , ' Density' , " \\ # Roots" , " \\ # Leaves" , " Avg Parents" , " Avg Children" , ' Max Parents' , ' Max Children' , " Avg Depth" , ' Diameter' ," \\ # Components" , " \\ # Loops" , " \\ # Cycles" , ' Is DAG ' )
18+ target <- c(" \\ # Nodes" , ' \\ # New Terms' , ' \\ # Unlinked' , " \\ # Edges" , ' Density' , " \\ # Roots" , " \\ # Leaves" , " Avg Parents" , " Avg Children" , ' Max Parents' , ' Max Children' , " Avg Depth" , ' Diameter' ," \\ # Components" , " \\ # Loops" , " \\ # Cycles" )
1919
2020
2121df_cso <- df_cso %> %
2222 filter(Metric %in% target ) %> %
23+ mutate(Metric = replace(Metric , Metric == " \\ # New Terms" , ' \\ # New Nodes' )) %> %
2324 mutate_at(c(' Sim_Threshold' , ' Value' ), as.numeric )%> %
2425 mutate(LLM = replace(LLM , LLM == ' all-mpnet-base-v2' , ' MP' )) %> %
2526 mutate(LLM = replace(LLM , LLM == ' all-MiniLM-L6-v2' , ' L6' )) %> %
@@ -39,6 +40,7 @@ df_wiki$Max_Depth <- as.factor(df_wiki$Max_Depth)
3940
4041df_wiki <- df_wiki %> %
4142 filter(Metric %in% target ) %> %
43+ mutate(Metric = replace(Metric , Metric == " \\ # New Terms" , ' \\ # New Nodes' )) %> %
4244 mutate_at(c(' Value' ), as.numeric ) %> %
4345 unite(" processing" , cycle : bridge : abstract : minimization , remove = FALSE , sep = ' , ' ) %> %
4446 mutate(Metric = gsub(r " (\\ )" , " " , Metric )) %> %
@@ -54,6 +56,7 @@ df_llm <- read.csv('~/PycharmProjects/SoftwareTopics/data/interim/taxonomy/LLM_p
5456
5557df_llm <- df_llm %> %
5658 filter(Metric %in% target ) %> %
59+ mutate(Metric = replace(Metric , Metric == " \\ # New Terms" , ' \\ # New Nodes' )) %> %
5760 unite(" processing" , cycle : bridge : abstract : minimization , remove = FALSE , sep = ' , ' ) %> %
5861 mutate(Metric = gsub(r " (\\ )" , " " , Metric )) %> %
5962 mutate_at(c(' Value' ), as.numeric ) %> %
@@ -68,6 +71,7 @@ df_llm_iter <- read.csv('~/PycharmProjects/SoftwareTopics/data/interim/taxonomy/
6871
6972df_llm_iter <- df_llm_iter %> %
7073 filter(Metric %in% target ) %> %
74+ mutate(Metric = replace(Metric , Metric == " \\ # New Terms" , ' \\ # New Nodes' )) %> %
7175 unite(" processing" , cycle : bridge : abstract : minimization , remove = FALSE , sep = ' , ' ) %> %
7276 mutate(Metric = gsub(r " (\\ )" , " " , Metric )) %> %
7377 mutate_at(c(' Value' ), as.numeric ) %> %
@@ -90,7 +94,7 @@ df <- df %>%
9094 mutate(src = fct_relevel(src , ' CSO' , ' Wiki' , ' LLM' , ' LLM_Iter' )) %> %
9195 mutate(Metric = replace(Metric , Metric == ' # CC' , ' Components' )) %> %
9296 mutate(Metric = factor (Metric ,
93- c(" # Nodes" , ' # New Terms ' , ' # Unlinked' , " # Edges" , ' Density' , " # Roots" , " # Leaves" , " Avg Parents" , ' Max Parents' , " Avg Children" , ' Max Children' , " Avg Depth" , ' Diameter' ," # Components" , " # Loops" , " # Cycles" , ' Is DAG' )))
97+ c(" # Nodes" , ' # New Nodes ' , ' # Unlinked' , " # Edges" , ' Density' , " # Roots" , " # Leaves" , " Avg Parents" , ' Max Parents' , " Avg Children" , ' Max Children' , " Avg Depth" , ' Diameter' ," # Components" , " # Loops" , " # Cycles" , ' Is DAG' )))
9498
9599# c("# Nodes", "# Edges", "# Leafs", "# Roots", "# Bridges", "# Intermediate", "# Self Loops", "# Cycles", "Components", "Pairs Acc", '# New Terms', "# Parents", "# Children", 'Max Parents', 'Max Children', 'Density', 'Avg Eccentricity', 'Avg Depth', 'Diameter'))
96100
0 commit comments