2018/04/15
Rや
Pythonのプログラムでパラメータのみを変更して何回も同じプログラムを実行したい際に、GUIがあると便利だなと思うことが多々あります。
PythonではPyQtで簡単にGUIを作成できることを
以前のブログでお話しました。今回は、PyQtとPype
Rを使って、
Python経由で
RプログラムをGUIから実行させることにしました。
Pythonプログラムは、PyQtで作成したGUI部分(
R_GUI_test.py)と、ファイル読み込み、Pype
Rを使ったを
Rの解析部分(pyper_test.py)に分けました。GUIの外観はこんな感じです。
データファイル名を入力するplainTextEdit、解析生データを表示するtableWidget、ファイルを読み込み、解析を実行させるpushButtonと、解析結果を表示するtextBrowserから構成しています。GUI部分のプログラムは以下の通りです。
# -*- coding: utf-8 -*-
# R_GUI_test.py
from PyQt5 import QtCore, QtGui, QtWidgets
import os
import pyper_test as pyp
class Ui_MainWindow(object):
def setupUi(self, MainWindow):
MainWindow.setObjectName("MainWindow")
MainWindow.resize(580, 300)
self.centralwidget = QtWidgets.QWidget(MainWindow)
self.centralwidget.setObjectName("centralwidget")
self.tableWidget = QtWidgets.QTableWidget(self.centralwidget)
self.tableWidget.setGeometry(QtCore.QRect(10, 50, 250, 220))
self.tableWidget.setObjectName("tableWidget")
self.tableWidget.setColumnCount(2) # Column number : 2
self.tableWidget.setColumnWidth(5, 5)
self.tableWidget.setRowCount(50) # Row number : 50
item = QtWidgets.QTableWidgetItem()
self.tableWidget.setHorizontalHeaderItem(0, item)
item = QtWidgets.QTableWidgetItem()
self.tableWidget.setHorizontalHeaderItem(1, item)
self.pushButton = QtWidgets.QPushButton(self.centralwidget)
self.pushButton.setGeometry(QtCore.QRect(360, 10, 115, 30))
self.pushButton.setObjectName("pushButton")
self.textBrowser = QtWidgets.QTextBrowser(self.centralwidget)
self.textBrowser.setGeometry(QtCore.QRect(270, 50, 300, 220))
self.textBrowser.setObjectName("textBrowser")
self.plainTextEdit = QtWidgets.QPlainTextEdit(self.centralwidget)
self.plainTextEdit.setGeometry(QtCore.QRect(80, 5, 230, 30))
self.plainTextEdit.setObjectName("plainTextEdit")
self.label = QtWidgets.QLabel(self.centralwidget)
self.label.setGeometry(QtCore.QRect(20, 10, 60, 15))
self.label.setObjectName("label")
MainWindow.setCentralWidget(self.centralwidget)
self.menubar = QtWidgets.QMenuBar(MainWindow)
self.menubar.setGeometry(QtCore.QRect(0, 0, 320, 22))
self.menubar.setObjectName("menubar")
MainWindow.setMenuBar(self.menubar)
self.statusbar = QtWidgets.QStatusBar(MainWindow)
self.statusbar.setObjectName("statusbar")
MainWindow.setStatusBar(self.statusbar)
self.retranslateUi(MainWindow)
self.pushButton.clicked.connect(self.func1) # func1 call
QtCore.QMetaObject.connectSlotsByName(MainWindow)
def retranslateUi(self, MainWindow):
_translate = QtCore.QCoreApplication.translate
MainWindow.setWindowTitle(_translate("MainWindow", "MainWindow"))
item = self.tableWidget.horizontalHeaderItem(0)
item.setText(_translate("MainWindow", "X"))
item = self.tableWidget.horizontalHeaderItem(1)
item.setText(_translate("MainWindow", "Y"))
self.pushButton.setText(_translate("MainWindow", "Analysis"))
self.label.setText(_translate("MainWindow", "Data File"))
def func1(self):
dtfilename = str(self.plainTextEdit.toPlainText())
if os.path.isfile(dtfilename): # check file existence
pt = pyp.pyper_test(dtfilename)
pt.LoadDataFile(dtfilename)
self.textBrowser.append("Data Rows:"+str(pt.data_rows))
self.textBrowser.append("Data Columns:"+str(pt.data_columns))
for i in range(pt.data_rows): # data setting
for j in range(pt.data_columns):
item = QtWidgets.QTableWidgetItem(str(pt.data.iat[i, j]))
self.tableWidget.setItem(i, j, item)
pt.R_proc(pt.data)
self.textBrowser.append(str(pt.data_summary))
self.textBrowser.append(str(pt.data_result))
if __name__ == "__main__":
import sys
app = QtWidgets.QApplication(sys.argv)
MainWindow = QtWidgets.QMainWindow()
ui = Ui_MainWindow()
ui.setupUi(MainWindow)
MainWindow.show()
sys.exit(app.exec_())
データファイル名を入力し、「Analysis」ボタンを押すと、解析生データがグリッド(tableWidget)、Rで解析された結果がテキストボックスに表示されました。データファイルは、以下のスタイルのcsvファイルで実行するpythonプログラムと同じフォルダに置いておきます。
X,Y
235,591
216,539
･･･
問題なく結果が出力されました。ファイル読み込みとPypeRを使ったをRの解析部分のプログラムは以下の通りです。それぞれLoadDataFile関数、R_proc関数で実行しています。
# R_GUI_test.py
import pandas as pd
import pyper
class pyper_test(object):
def __init__(self, data_filename):
self.data_filename = data_filename
def LoadDataFile(self, data_filename):
self.data = pd.read_csv(data_filename) #Read data
self.data_rows = len(self.data.index)
self.data_columns = len(self.data.columns)
def R_proc(self, data):
r = pyper.R(use_pandas='True')
r.assign('df', data) # Send data to R
r("result <- lm(Y~X, data=df)") # Regression
# Results output
self.data_summary = r("summary(df)")
self.data_result = r("summary(result)")
GUIから身近にRのプログラムを実行できるので、何かと便利に使えそうです。いろいろ触ってみようと思います。
CH1のみ配線しており、信号を入れていない状態なので、0Vを示しています。
10ms/divの時間軸で、20msec(50Hz)の信号が確かに入力され、オシロで表示できました。
確かに、ON時間が50%の半分の25%になりました。
これも問題なしです。
いい感じです。簡易オシロとは言え、クオリティが高いですね。また、安価にオシロが構築できるのも◎です。今後も何かに使いたいものです・・。 
