Rで解析：配列の操作が便利になります「gapfill」パッケージ

array classの操作が便利になるパッケージの紹介です。配列をヒートマップで表現するコマンドも収録されています。データの特徴を把握するのに便利です。

パッケージバージョンは0.9.6-1。実行コマンドはR version 4.2.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("gapfill")

実行コマンドの紹介

詳細はコマンド内を確認ください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("gapfill")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
TestData <- array(data = 1:10, dim = c(2, 2, 2, 2))
########

#&#37197;&#21015;&#12434;&#34892;&#21015;&#12395;&#22793;&#25563;:Array2Matrix&#12467;&#12510;&#12531;&#12489;
Array2Matrix(a = TestData)
     [,1] [,2] [,3] [,4]
[1,]    1    5    9    3
[2,]    2    6   10    4
[3,]    3    7    1    5
[4,]    4    8    2    6

#&#37197;&#21015;&#12363;&#12425;&#12487;&#12540;&#12479;&#12434;&#20491;&#21029;&#12395;&#25277;&#20986;:ArrayAround&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12434;&#21462;&#12426;&#20986;&#12377;&#20301;&#32622;&#12434;&#25351;&#23450;:mp&#12458;&#12503;&#12471;&#12519;&#12531;;c(&#21015;,&#34892;,&#27425;&#20803;,&#27425;&#20803;)
#&#12487;&#12540;&#12479;&#12434;&#21462;&#12426;&#20986;&#12377;&#31684;&#22258;&#12434;&#25351;&#23450;:size&#12458;&#12503;&#12471;&#12519;&#12531;;c(&#21015;,&#34892;,&#27425;&#20803;,&#27425;&#20803;)
#&#20363;&#12399;TestData[1:2, 1, 1:2, 2]&#12392;&#21516;&#12376;
ArrayAround(data = TestData, mp = c(1, 1, 2, 2),  size = c(1, 0, 1, 0))
, , 1, 1

[,1]
[1,]    9
[2,]   10

, , 2, 1

[,1]
[1,]    3
[2,]    4

attr(,"mp")
[1] 1 1 2 1

#&#37197;&#21015;&#12434;&#12503;&#12525;&#12483;&#12488;:Image&#12467;&#12510;&#12531;&#12489;
#&#33394;&#12398;&#35373;&#23450;:col&#12458;&#12503;&#12471;&#12519;&#12531;
#&#27424;&#25613;&#20516;&#12398;&#33394;:na.value&#12458;&#12503;&#12471;&#12519;&#12531;
Image(TestData, col = fields::tim.colors(1000), na.value = "black")

#&#25351;&#23450;&#12375;&#12383;&#12487;&#12540;&#12479;&#12398;&#31684;&#22258;&#20197;&#22806;&#12434;&#32622;&#25563;:Gapfill&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12398;&#31684;&#22258;&#12434;&#25351;&#23450;:clipRange&#12458;&#12503;&#12471;&#12519;&#12531;
GetGap <- Gapfill(TestData, clipRange = c(3, 10))

#&#12503;&#12525;&#12483;&#12488;
Image(GetGap$fill)

出力例

・Imageコマンド

・Gapfillコマンドで操作後にImageコマンド

少しでも、あなたのウェブや実験の解析が楽になりますように！！