{"id":808,"date":"2016-01-19T15:40:56","date_gmt":"2016-01-19T06:40:56","guid":{"rendered":"http:\/\/www.climb.co.jp\/blog_espress\/?p=808"},"modified":"2017-12-12T09:44:42","modified_gmt":"2017-12-12T00:44:42","slug":"%e7%b5%b1%e8%a8%88%e8%a7%a3%e6%9e%90%e5%90%91%e3%81%91r%e8%a8%80%e8%aa%9e%e3%81%a8espresschart%e3%81%a8%e3%81%ae%e8%9e%8d%e5%90%88","status":"publish","type":"post","link":"https:\/\/www.climb.co.jp\/blog_espress\/archives\/808","title":{"rendered":"\u7d71\u8a08\u89e3\u6790\u5411\u3051R\u8a00\u8a9e: EspressChart\u306e\u9023\u643a\u3067\u30c7\u30fc\u30bf\u3092\u7c21\u5358\u306b\u53ef\u8996\u5316\u3092\u5b9f\u73fe : JRI (Java R Interface) \u4e8b\u4f8b"},"content":{"rendered":"

\"\"<\/a>R\u8a00\u8a9e<\/strong>\u306f\u3001\u30aa\u30fc\u30d7\u30f3\u30bd\u30fc\u30b9\u3067\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u306e\u7d71\u8a08\u89e3\u6790\u5411\u3051\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3001\u53ca\u3073\u305d\u306e\u958b\u767a\u5b9f\u884c\u74b0\u5883\u3067\u3059\u3002R\u8a00\u8a9e\u306f\u300c\u30d9\u30af\u30c8\u30eb\u51e6\u7406\u300d\u3068\u547c\u3070\u308c\u308b\u5b9f\u884c\u6a5f\u69cb\u306b\u3088\u308a\u3001\u67d4\u8edf\u306a\u51e6\u7406\u3092\u7c21\u4fbf\u306a\u8a18\u6cd5\u3067\u5b9f\u73fe\u3057\u307e\u3059\u3002<\/p>\n

\u4e16\u754c\u4e2d\u306eR\u30e6\u30fc\u30b6\u304c\u958b\u767a\u3057\u305f\u81a8\u5927\u306aR\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30d1\u30c3\u30b1\u30fc\u30b8\uff09\u304c\u300cCRAN\u300d\u3068\u3057\u3066\u914d\u5e03\u7528\u306e\u5f62\u5f0f\u306b\u4fdd\u5b58\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u305d\u306eCRAN\u30d1\u30c3\u30b1\u30fc\u30b8\u6570\u306e\u98db\u8e8d\u7684\u306a\u5897\u5927\u306b\u898b\u3089\u308c\u308b\u3068\u304a\u308a\u3001\u7d71\u8a08\u5b66\u3092\u8d85\u3048\u3066\u5b66\u554f\u5206\u91ce\u3084\u696d\u754c\u3092\u554f\u308f\u305a\u3001\u91d1\u878d\u5de5\u5b66\u30fb\u6642\u7cfb\u5217\u5206\u6790\u30fb\u6a5f\u68b0\u5b66\u7fd2\u30fb\u30c7\u30fc\u30bf\u30de\u30a4\u30cb\u30f3\u30b0\u30fb\u30d0\u30a4\u30aa\u30a4\u30f3\u30d5\u30a9\u30de\u30c6\u30a3\u30af\u30b9\u306a\u3069\u3001\u67d4\u8edf\u306a\u30c7\u30fc\u30bf\u89e3\u6790\u3084\u8996\u899a\u5316\u305d\u3057\u3066\u77e5\u8b58\u5171\u6709\u306e\u9700\u8981\u306b\u5fdc\u3048\u3046\u308bR\u8a00\u8a9e\u306e\u666e\u53ca\u306f\u4e16\u754c\u7684\u306b\u5e83\u304c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u30c7\u30fc\u30bf\u306e\u30b0\u30e9\u30d5(\u30c1\u30e3\u30fc\u30c8)\u30fb\u56f3\u89e3\u5316\u6a5f\u80fd\u306f\u3042\u308a\u307e\u3059\u304c\u3001\u30b0\u30e9\u30d5\u753b\u50cf\u51fa\u529b\u306f\u30b7\u30f3\u30d7\u30eb\u306a\u3082\u306e\u3057\u304b\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n

\u25cfJava\u3068R\u8a00\u8a9e\u306e\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u65b9\u6cd5<\/strong><\/p>\n

Java\u306e\u3088\u3046\u306a\u30cf\u30a4\u30ec\u30d9\u30eb\u306a\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306f\u76f4\u63a5R\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u30a2\u30af\u30bb\u30b9\u3067\u304d\u307e\u305b\u3093\u3002JRI (Java R Interface)<\/a>\u3068\u3044\u3046\u30bd\u30d5\u30c8\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067Java\u304b\u3089R\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3078\u306e\u30a2\u30af\u30bb\u30b9\u304c\u53ef\u80fd\u3068\u306a\u308a\u307e\u3059\u3002\u3053\u308c\u3092\u4f7f\u7528\u3057\u3066JRI\u30af\u30e9\u30b9\u3092java\u30af\u30e9\u30b9\u306b\u30a4\u30f3\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002<\/p>\n

JRI\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u3092\u4f7f\u7528\u3057\u3066\u30e9\u30a4\u30f3\u30c1\u30e3\u30fc\u30c8\u306e\u63cf\u753b\u65b9\u6cd5\uff08\u4e00\u90e8\uff09\uff1a<\/p>\n

import java.awt.BorderLayout;
\nimport java.awt.Dimension;
\nimport java.awt.Graphics;
\nimport java.awt.Image;
\nimport java.io.File;
\nimport java.io.IOException;
\nimport javax.imageio.ImageIO;
\nimport javax.swing.JFrame;
\nimport javax.swing.JPanel;
\nimport org.rosuda.JRI.Rengine;<\/p>\n

public class LineChart{
\npublic static void main(String[] args) throws IOException
\n{
\n\/\/Set some labels for the plot
\n\/\/Start R
\nRengine r = new Rengine(args, false, null);
\n\/\/Do some calcs and plot the chart but save as a png in the working folder
\nr.eval(“data(cars)”);
\nr.eval(“plot(cars, main = \\”lowess(cars)\\”)”);
\nr.eval(“lines(lowess(cars), col = 2)”);
\nr.eval(“lines(lowess(cars, f = 0.2), col = 3)”);
\nr.eval(“legend(5, 120, c(paste(\\”f = \\”, c(\\”2\/3\\”, \\”.2\\”))), lty = 1, col = 2:3)”);
\nr.eval(“png(file=\\”LineChart.png\\”,width=800,height=600)”);
\nr.eval(“dev.off()”);<\/p>\n

(\u4ee5\u4e0b\u7701\u7565)
\n\"\"<\/a>
\n\u56f3\uff11<\/p>\n

\u25cfEspressChart\u3068R\u8a00\u8a9e\u3068\u306e\u878d\u5408<\/strong><\/p>\n

EspressChart\u306f\u9ad8\u5ea6\u3067\u3001\u8c4a\u5bcc\u306a\u30c1\u30e3\u30fc\u30c8\u3092\u4f5c\u6210\u3059\u308b\u305f\u3081\u306eAPI\u3092\u63d0\u4f9b\u3057\u307e\u3059\u3002\u4e00\u65b9R\u8a00\u8a9e\u306f\u7d71\u8a08\u5206\u6790\u7528\u306e\u6a5f\u80fd\u69cb\u7bc9\u3092\u63d0\u4f9b\u3057\u307e\u3059\u3002EspressChart\u306f\u30c7\u30fc\u30bf\u5206\u6790\u306bR\u8a00\u8a9e\u3092\u4f7f\u7528\u3057\u3001\u305d\u308c\u3092\u9ad8\u5ea6\u306a\u30c1\u30e3\u30fc\u30c8\u3078\u5c55\u958b\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\u3067\u3059\u3002<\/p>\n

\u30d1\u30a4\u30fb\u30c1\u30e3\u30fc\u30c8\u306e\u30b5\u30f3\u30d7\u30eb\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0\u4f8b\uff1a<\/p>\n

import java.applet.Applet;
\nimport java.awt.BorderLayout;
\nimport java.awt.Dimension;
\nimport java.awt.Graphics;
\nimport java.awt.Image;
\nimport java.io.File;
\nimport java.io.FileOutputStream;
\nimport java.io.IOException;
\nimport javax.imageio.ImageIO;
\nimport javax.swing.JFrame;
\nimport javax.swing.JPanel;
\nimport org.rosuda.JRI.REXP;
\nimport org.rosuda.JRI.Rengine;<\/p>\n

(\u4e2d\u7565)<\/p>\n

QbChart.setEspressManagerUsed(false);
\nQbChart chart=new QbChart((Applet)null,QbChart.VIEW2D,IChartTypeConstants.PIE,data,false,colinfo,null);<\/p>\n

(\u4ee5\u4e0b\u7701\u7565)
\n\"\"<\/a>
\n\u56f32 EspressChart\u3067\u306e\u30d1\u30a4\u30c1\u30e3\u30fc\u30c8\u51fa\u529b<\/p>\n

\u7d50\u8ad6\uff1a<\/strong>
\n\u30e6\u30fc\u30b6\u306fR\u8a00\u8a9e\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u7d71\u8a08\u5206\u6790\u3001\u30c7\u30fc\u30bf\u30de\u30a4\u30cb\u30f3\u30b0\u306b\u5fc5\u8981\u306a\u6a5f\u80fd\u3092\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u6570\u3092\u524a\u6e1b\u3057\u3066\u53ef\u80fd\u3068\u3057\u307e\u3059\u3002\u3055\u3089\u306bEspressChart\u3092\u6d3b\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u9ad8\u54c1\u8cea\u30fb\u9ad8\u6a5f\u80fd\u306a\u30c1\u30e3\u30fc\u30c8(\u30b0\u30e9\u30d5)\u3092\u7c21\u5358\u306bWeb\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306b\u5c55\u958b\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

R\u8a00\u8a9e\u306f\u3001\u30aa\u30fc\u30d7\u30f3\u30bd\u30fc\u30b9\u3067\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u306e\u7d71\u8a08\u89e3\u6790\u5411\u3051\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3001\u53ca … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[3],"tags":[26,27,28,69,89,95,96],"class_list":["post-808","post","type-post","status-publish","format-standard","hentry","category-espresschart","tag-r","tag-27","tag-28","tag-69","tag-microsoft-r-server","tag-jri","tag-java-r-interface"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/posts\/808","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/comments?post=808"}],"version-history":[{"count":24,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/posts\/808\/revisions"}],"predecessor-version":[{"id":1720,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/posts\/808\/revisions\/1720"}],"wp:attachment":[{"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/media?parent=808"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/categories?post=808"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.climb.co.jp\/blog_espress\/wp-json\/wp\/v2\/tags?post=808"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}