X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;ds=inline;f=ProfList.py;h=7b593c63f7b92a60e9e4dd3d0eea947abc6ff91e;hb=efe71f52a1116aa1a3336178bfd8d6a9fbd5744f;hp=6c206ada592965313d0eba361ccb1c939212ad0d;hpb=95be18f0436f49152f463280dbe016a3ecd3dbd0;p=iramuteq
diff --git a/ProfList.py b/ProfList.py
index 6c206ad..7b593c6 100644
--- a/ProfList.py
+++ b/ProfList.py
@@ -20,14 +20,14 @@ import wx.lib.mixins.listctrl as listmix
#from tabsimi import DoSimi
from listlex import ListForSpec
from chemins import ConstructPathOut, ffr
-from dialog import PrefExport, PrefUCECarac, SearchDial, message
+from dialog import PrefExport, PrefUCECarac, SearchDial, message, MessageImage, BarFrame
from tableau import Tableau
from search_tools import SearchFrame
import webbrowser
#import cStringIO
import tempfile
import codecs
-from functions import exec_rcode, MessageImage, progressbar, treat_var_mod, doconcorde
+from functions import exec_rcode, progressbar, treat_var_mod, doconcorde
from PrintRScript import barplot
from textclassechd import ClasseCHD
from shutil import copyfile
@@ -134,7 +134,7 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
#events
#self.Bind(wx.EVT_LIST_ITEM_SELECTED, self.OnItemSelected)
- #self.Bind(wx.EVT_LIST_ITEM_ACTIVATED, self.OnItemActivated)
+ self.Bind(wx.EVT_LIST_ITEM_ACTIVATED, self.OnPopupTwo, self)
#self.Bind(wx.EVT_LIST_ITEM_DESELECTED, self.OnItemDeselected)
self.Bind(wx.EVT_LIST_COL_CLICK, self.OnColClick)
@@ -147,6 +147,7 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
#for searching
search_id = wx.NewId()
searchall_id = wx.NewId()
+ concord_id = wx.NewId()
self.parent.Bind(wx.EVT_MENU, self.onsearch, id = search_id)
self.parent.Bind(wx.EVT_MENU, self.onsearchall, id = searchall_id)
self.accel_tbl = wx.AcceleratorTable([(wx.ACCEL_CTRL, ord('F'), search_id),
@@ -273,6 +274,8 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
self.idlexdendro = wx.NewId()
self.idcloud = wx.NewId()
self.idexport = wx.NewId()
+ self.idexporttropes = wx.NewId()
+ self.idexportowledge = wx.NewId()
# self.export_classes = wx.NewId()
self.Bind(wx.EVT_MENU, self.OnPopupOne, id=self.popupID1)
@@ -295,6 +298,8 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
self.Bind(wx.EVT_MENU, self.onlexdendro, id = self.idlexdendro)
self.Bind(wx.EVT_MENU, self.oncloud, id = self.idcloud)
self.Bind(wx.EVT_MENU, self.onexport, id = self.idexport)
+ self.Bind(wx.EVT_MENU, self.onexporttropes, id = self.idexporttropes)
+ self.Bind(wx.EVT_MENU, self.onexportowledge, id = self.idexportowledge)
# self.Bind(wx.EVT_MENU, self.on_export_classes, id = self.export_classes)
# self.Bind(wx.EVT_MENU, self.OnPopupThree, id=self.popupID3)
@@ -328,6 +333,8 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
menu.Append(self.iducecarac, u"Segments de texte caractéristiques")
menu.Append(self.idcloud, u"Nuage de la classe")
menu.Append(self.idexport, u'Exporter...')
+ menu.Append(self.idexporttropes, 'Exporter pour Tropes')
+ menu.Append(self.idexportowledge, 'Exporter pour Owledge')
#menu.Append(self.popupID2, u"Concordancier")
# menu.Append(self.popupID3, "recharger")
@@ -367,13 +374,39 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
def onexport(self, evt) :
if 'corpus' in dir(self.Source):
corpus = self.Source.corpus
- corpus.export_classe(self.Source.pathout['classe_%i_export.txt' % self.cl], self.cl)
+ if self.Source.parametres['classif_mode'] != 2 :
+ uci = False
+ else :
+ uci = True
+ corpus.export_classe(self.Source.pathout['classe_%i_export.txt' % self.cl], self.cl, uci = uci)
dial = wx.MessageDialog(self, self.Source.pathout['classe_%i_export.txt' % self.cl], u"Export", wx.OK|wx.ICON_INFORMATION)
dial.ShowModal()
dial.Destroy()
#if 'corpus' in dir(self.Source):
# corpus = self.Source.corpus
#ClasseCHD(self.parent, corpus, self.cl)
+
+ def onexporttropes(self, evt) :
+ if 'corpus' in dir(self.Source):
+ corpus = self.Source.corpus
+ if self.Source.parametres['classif_mode'] != 2 :
+ uci = False
+ else :
+ uci = True
+ fileout = self.Source.pathout['export_tropes_classe_%i.txt' % self.cl]
+ corpus.export_tropes(fileout, self.cl, uci = uci)
+
+ def onexportowledge(self, evt):
+ if 'corpus' in dir(self.Source):
+ corpus = self.Source.corpus
+ if self.Source.parametres['classif_mode'] != 2 :
+ uci = False
+ else :
+ uci = True
+ repout = self.Source.pathout['export_owledge_classe_%i' % self.cl]
+ if not os.path.exists(repout) :
+ os.mkdir(repout)
+ corpus.export_owledge(repout, self.cl, uci = uci)
def getselectedwords(self) :
words = [self.getColumnText(self.GetFirstSelected(), 6)]
@@ -411,18 +444,19 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
if word in fchistable :
tableout.append(vchistable[fchistable.index(word)])
kwords.append(word)
- tmpgraph = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
- txt = barplot(tableout, kwords, title, self.Source.parent.RscriptsPath['Rgraph'], tmpgraph)
- tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
- file = open(tmpscript,'w')
- file.write(txt)
- file.close()
- exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
- win = MessageImage(self,u"Graphique", size=(700, 500))
- win.addsaveimage(tmpgraph)
- txt = "" % tmpgraph
- win.HtmlPage.SetPage(txt)
- win.Show(True)
+ BarFrame(self.Source.parent, tableout, title, kwords)
+# tmpgraph = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
+# txt = barplot(tableout, kwords, title, self.Source.parent.RscriptsPath['Rgraph'], tmpgraph)
+# tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
+# file = open(tmpscript,'w')
+# file.write(txt)
+# file.close()
+# exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
+# win = MessageImage(self,u"Graphique", size=(700, 500))
+# win.addsaveimage(tmpgraph)
+# txt = "" % tmpgraph
+# win.HtmlPage.SetPage(txt)
+# win.Show(True)
else :
dial = wx.MessageDialog(self, u"Ce n'est pas une forme du type variable_modalité", u"Problème", wx.OK | wx.ICON_WARNING)
dial.CenterOnParent()
@@ -433,6 +467,10 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
tableau = self.Source.tableau
tab = tableau.make_table_from_classe(self.cl, self.la)
pathout = ConstructPathOut(self.Source.pathout.dirout, 'simi_classe_%i' %self.cl)
+ if self.tmpchi is None :
+ self.tmpchi = os.path.join(pathout,'chi.csv')
+ with open(self.tmpchi, 'w') as f:
+ f.write('\n'.join([str(val) for val in self.lchi]))
self.filename = os.path.join(pathout,'mat01.csv')
tableau.printtable(self.filename, tab)
del tab
@@ -468,12 +506,13 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
'film': False,
'com' : 0,
'communities' : 0,
- 'halo' : 0
+ 'halo' : 0,
+ 'tmpchi': self.tmpchi
}
act = {}
tableau.chi = {}
tableau.lchi = self.lchi
- tableau.parametre['fromprof'] = True
+ tableau.parametres['fromprof'] = True
for i, val in enumerate(self.la) :
act[val] = [self.lfreq[i]]
tableau.chi[val] = [self.lchi[i]]
@@ -482,7 +521,7 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
def onwordgraph(self, evt):
word = self.getColumnText(self.GetFirstSelected(), 6)
if self.tmpchi is None :
- self.tmpchi = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
+ self.tmpchi = os.path.join(self.Source.parametres['pathout'],'chi_%i.csv' % self.cl)
with open(self.tmpchi, 'w') as f:
f.write('\n'.join([str(val) for val in self.lchi]))
index = self.la.index(word)
@@ -498,7 +537,7 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
def on_graph(self, evt):
if self.tmpchi is None :
- self.tmpchi = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
+ self.tmpchi = os.path.join(self.Source.parametres['pathout'],'chi_%i.csv' % self.cl)
with open(self.tmpchi, 'w') as f:
f.write('\n'.join([str(val) for val in self.lchi]))
parametres = {'type' : 'clustersimitxt',
@@ -512,10 +551,14 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
dlg = progressbar(self, 2)
corpus = self.Source.corpus
uces = corpus.lc[self.cl-1]
+ if self.Source.parametres['classif_mode'] != 2 :
+ uci = False
+ else :
+ uci = True
l = []
dlg.Update(1, u'Segments...')
for i in range(2,10) :
- li = corpus.find_segments_in_classe(uces, i, 1000)
+ li = corpus.find_segments_in_classe(uces, i, 1000, uci = uci)
if li == [] :
break
else :
@@ -540,7 +583,11 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
dlg = progressbar(self,maxi = 4)
corpus = self.Source.corpus
uces = corpus.lc[self.cl-1]
- tab = corpus.make_table_with_classe(uces, self.la)
+ if self.Source.parametres['classif_mode'] != 2 :
+ uci = False
+ else :
+ uci = True
+ tab = corpus.make_table_with_classe(uces, self.la, uci = uci)
tab.pop(0)
dlg.Update(2, u'score...')
if atype == 0 :
@@ -553,11 +600,12 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
ntab2 = ntab2[:limite]
nuces = [val[1] for val in ntab2]
dlg.Update(3, u'concordancier...')
- ucis_txt, ucestxt = doconcorde(corpus, nuces, self.la)
+ ucis_txt, ucestxt = doconcorde(corpus, nuces, self.la, uci = uci)
+ items = dict([[i, '
'.join([ucis_txt[i], '
' % ntab2[i][0], ucestxt[i]])] for i, uce in enumerate(nuces)])
dlg.Update(4, u'texte...')
- win = message(self, u"Segments de texte caractéristiques - Classe %i" % self.cl, (750, 600))
- win.html = '\n' + '
'.join(['
'.join([ucis_txt[i], '' % ntab2[i][0], ucestxt[i]]) for i in range(0,len(ucestxt))]) + '\n'
- win.HtmlPage.SetPage(win.html)
+ win = message(self, items, u"Segments de texte caractéristiques - Classe %i" % self.cl, (750, 600))
+ #win.html = '\n' + '
'.join(['
'.join([ucis_txt[i], '' % ntab2[i][0], ucestxt[i]]) for i in range(0,len(ucestxt))]) + '\n'
+ #win.HtmlPage.SetPage(win.html)
dlg.Destroy()
win.Show(True)
@@ -578,28 +626,29 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
tmpgraph = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
nbcl = len(title)
nbwords = len(words)
- txt = barplot(tableout, words, title, self.Source.parent.RscriptsPath['Rgraph'], tmpgraph)
- #print 'ATTENTION TEST R'
- #txt = """
- #sink('/Users/pierre/Desktop/qdfqsdfqsdfqsdf.txt')
- #Sys.getlocale()
- #sink()
- #"""
- tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
- file = open(tmpscript,'w')
- file.write(txt)
- file.close()
- exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
- w = 100 + (20 * nbwords) + (100 * nbcl)
- h = 100 + (nbwords * 15)
- if w > 1100 : w = 1100
- if h > 800 : h = 800
- if h < 450 : h = 450
- win = MessageImage(self, u"Graphique", size=(w, h))
- win.addsaveimage(tmpgraph)
- txt = "" % tmpgraph
- win.HtmlPage.SetPage(txt)
- win.Show(True)
+ BarFrame(self.Source.parent, tableout, title, words)
+# txt = barplot(tableout, words, title, self.Source.parent.RscriptsPath['Rgraph'], tmpgraph)
+# #print 'ATTENTION TEST R'
+# #txt = """
+# #sink('/Users/pierre/Desktop/qdfqsdfqsdfqsdf.txt')
+# #Sys.getlocale()
+# #sink()
+# #"""
+# tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
+# file = open(tmpscript,'w')
+# file.write(txt)
+# file.close()
+# exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
+# w = 100 + (20 * nbwords) + (100 * nbcl)
+# h = 100 + (nbwords * 15)
+# if w > 1100 : w = 1100
+# if h > 800 : h = 800
+# if h < 450 : h = 450
+# win = MessageImage(self, u"Graphique", size=(w, h))
+# win.addsaveimage(tmpgraph)
+# txt = "" % tmpgraph
+# win.HtmlPage.SetPage(txt)
+# win.Show(True)
def onlexdendro(self, evt):
if 'corpus' in dir(self.Source):
@@ -615,36 +664,7 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
fchistable = [line[0] for line in chistable]
words = self.getselectedwords()
tableout = [vchistable[fchistable.index(word)] for word in words]
- tmpgraph = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
- txttable = 'c(' + ','.join([','.join(line) for line in tableout]) + ')'
- rownames = 'c("' + '","'.join(words) + '")'
- colnames = 'c("' + '","'.join(title) + '")'
- nbcl = len(title)
- rownb = len(words)
- txt = """
- load("%s")
- di <- matrix(data=%s, nrow=%i, byrow = TRUE)
- rownames(di)<- %s
- colnames(di) <- %s
- library(ape)
- source("%s")
- height <- (30*ncol(di)) + (15*nrow(di))
- height <- ifelse(height <= 400, 400, height)
- width <- 500
- open_file_graph("%s", width=width, height=height)
- plot.dendro.lex(tree.cut1$tree.cl, di)
- """ % (self.Source.pathout['Rdendro'], txttable, rownb, rownames, colnames, self.Source.parent.RscriptsPath['Rgraph'], ffr(tmpgraph))
- tmpscript = tempfile.mktemp(dir=self.Source.parent.TEMPDIR)
- file = open(tmpscript,'w')
- file.write(txt)
- file.close()
- exec_rcode(self.Source.parent.RPath, tmpscript, wait = True)
- win = MessageImage(self, u"Graphique", size=(700, 500))
- win.addsaveimage(tmpgraph)
- txt = "" % tmpgraph
- win.HtmlPage.SetPage(txt)
- win.Show(True)
-
+ BarFrame(self.Source.parent, tableout, title, words, tree = self.Source.pathout['Rdendro'])
def make_concord(self, uces, title, color = 'red') :
corpus = self.Source.corpus
@@ -654,19 +674,28 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
last = self.GetNextSelected(last)
ListWord.append(self.getColumnText(last, 6))
ucef = []
- for word in ListWord :
- ucef += list(set(corpus.getlemuces(word)).intersection(uces))
- ucis_txt, ucestxt = doconcorde(corpus, ucef, ListWord)
- win = message(self, title, size=(750, 600))
- win.html = ('\n%s
' % ' '.join(ListWord)) + '
'.join(['
'.join([ucis_txt[i], ucestxt[i]]) for i in range(0,len(ucestxt))]) + '\n'
- win.HtmlPage.SetPage(win.html)
+ if self.Source.parametres['classif_mode'] != 2 :
+ for word in ListWord :
+ uci = False
+ ucef += list(set(corpus.getlemuces(word)).intersection(uces))
+ else :
+ for word in ListWord :
+ ucef += list(set(corpus.getlemucis(word)).intersection(uces))
+ uci = True
+ ucis_txt, ucestxt = doconcorde(corpus, ucef, ListWord, uci = uci)
+ items = dict([[i, '
'.join([ucis_txt[i], ucestxt[i]])] for i in range(0,len(ucestxt))])
+ win = message(self, items, title, (800, 500))
+ #win = message(self, title, size=(750, 600))
+ #win.html = ('\n%s
' % ' '.join(ListWord)) + '
'.join(['
'.join([ucis_txt[i], ucestxt[i]]) for i in range(0,len(ucestxt))]) + '\n'
+ #win.HtmlPage.SetPage(win.html)
return win
def OnPopupTwo(self, event):
- corpus = self.Source.corpus
- uces = corpus.lc[self.cl-1]
- win = self.make_concord(uces, "Concordancier - Classe %i" % self.cl)
- win.Show(True)
+ if 'corpus' in dir(self.Source) :
+ corpus = self.Source.corpus
+ uces = corpus.lc[self.cl-1]
+ win = self.make_concord(uces, "Concordancier - Classe %i" % self.cl)
+ win.Show(True)
def OnPopupThree(self, event):
corpus = self.Source.corpus
@@ -720,22 +749,27 @@ class ProfListctrlPanel(wx.ListCtrl, listmix.ListCtrlAutoWidthMixin, listmix.Col
rep = []
#FIXME : donner aussi eff reel a la place de nb uce
for forme in lems[word].formes :
- ucef = list(set(corpus.getworduces(forme)).intersection(uces))
+ if self.Source.parametres['classif_mode'] != 2 :
+ ucef = list(set(corpus.getworduces(forme)).intersection(uces))
+ else :
+ ucef = list(set(corpus.getworducis(forme)).intersection(uces))
#ucef = [uce for uce in corpus.formes[forme][1] if uce in uces]
if ucef != [] :
nb = len(ucef)
rep.append([corpus.getforme(forme).forme, nb])
rep.sort(key = itemgetter(1), reverse = True)
- win = message(self, u"Formes associées", wx.Size(300, 200))
- win.html = '\n' + '
'.join([' : '.join([str(val) for val in forme]) for forme in rep]) + '\n'
- win.HtmlPage.SetPage(win.html)
+ #win = message(self, u"Formes associées", wx.Size(300, 200))
+ items = dict([[i, '\t:\t'.join([str(val) for val in forme])] for i, forme in enumerate(rep)])
+ win = message(self, items, u"Formes associées", (300, 200))
+ #win.html = '\n' + '
'.join([' : '.join([str(val) for val in forme]) for forme in rep]) + '\n'
+ #win.HtmlPage.SetPage(win.html)
win.Show(True)
class wliste(wx.Frame):
def __init__(self, parent, id, title, d, fline, size=(600, 500)):
wx.Frame.__init__(self, parent, id)
- self.liste = ListForSpec(self, parent, d, fline, menu = False)
+ self.liste = ListForSpec(self, parent, d, fline[1:], menu = False)
self.button_1 = wx.Button(self, -1, "Fermer")
self.Bind(wx.EVT_BUTTON, self.OnCloseMe, self.button_1)
self.Bind(wx.EVT_CLOSE, self.OnCloseWindow)