MS Excel上で「ある曜日と時間(分単位のみ)」を管理しています。そのデータをグラフに表したいのですが、デフォルトにあるものではうまく表現できません。どなたか教えて下さい。VBAは中級レベルです。
NO. 曜日 分
1 水 05
2 土 12
3 火 31
4 月 12
5 水 45
6 日 29
7 木 16
8 金 55
・ ・
・ ・
・ ・
上記のようなデータ(重複するデータもあります)を円グラフ(というか、時計グラフ??)に散布させて何分の辺りが多いのか、また何曜日は何分が多いのか調べたいのですが可能でしょうか?ちょっと表現しにくいのですが、グラフの格好はアナログ時計そのものみたいに視覚的に分かりやすく表現し、アナログ時計の分単位のしるしから円の外側か内側に向かって棒グラフなどで表現したいのですが・・・
どなたかご指導下さい。お願いします。
No.5ベストアンサー
- 回答日時:
> Aの分データは00~59までの60行なんですが、C,D列は120行でいいのですか?
これは、散布図でウニ(?)状のグラフにするために、
グラフの中心
00分の点
グラフの中心
01分の点
グラフの中心
02分の点
…
と点を並べて、それを順番につなぐというインチキをしています。
外から内への場合はもう一点余分に追加して3倍の点数のグラフになります。
--
手間を考えるとやっぱりレーダーチャートの方がいいような…?
No.4
- 回答日時:
> 円の外側か内側に向かって棒グラフなどで表現したいのですが
ですと、
A B
1 分 当たりの回数
2 00 13
3 01 11
4 02 12
5 ・ ・
6 ・ ・
という前提で、
--
散布図(x-y図)を利用します。
内側から外側に線を引いた場合、00分の始点は(0, 0)で終点は、
C2=SIN(RADIANS($A2/60*360))*$B2 ←x座標
D2=COS(RADIANS($A2/60*360))*$B2 ←y座標
で計算できます。
これを↓向きにコピペして全部で120行に貼り付ければ、散布図でレーダーチャートで描くのと同じグラフが得られます。
これを放射線状(ウニ状?)にするために、1行おきに(0, 0)のデータを挿入します。
CD列を改めて、
C2=IF(MOD(ROW()-2,2)=0,SIN(RADIANS(OFFSET($A$2,(ROW()-2)/2,0)*6))*OFFSET($A$2,(ROW()-2)/2,1),0)
D2=IF(MOD(ROW()-2,2)=0,COS(RADIANS(OFFSET($A$2,(ROW()-2)/2,0)*6))*OFFSET($A$2,(ROW()-2)/2,1),0)
で計算を行い、CD列の120行(C2:D121)の範囲を散布図に。
線を太め、マーカーをなしに設定すると中心から各分の方向に度数分の長さの線が引かれたグラフになります。
(線をもう少し太く四角く出来ると思っていましたが、散布図を使う作戦はイマイチかも)
--
外から内の場合、更にややこしくなって、
C2=IF(MOD(ROW()-2,3)=0,SIN(RADIANS(OFFSET($A$2,(ROW()-2)/3,0)*6))*(20-OFFSET($A$2,(ROW()-2)/3,1)),IF(MOD(ROW()-2,3)=1,SIN(RADIANS(OFFSET($A$2,(ROW()-2)/3,0)*6))*20,SIN(RADIANS(OFFSET($A$2,(ROW()-2)/3+1,0)*6))*20))
D2=IF(MOD(ROW()-2,3)=0,COS(RADIANS(OFFSET($A$2,(ROW()-2)/3,0)*6))*(20-OFFSET($A$2,(ROW()-2)/3,1)),IF(MOD(ROW()-2,3)=1,COS(RADIANS(OFFSET($A$2,(ROW()-2)/3,0)*6))*20,COS(RADIANS(OFFSET($A$2,(ROW()-2)/3+1,0)*6))*20))
で、数式は全部で180(C2:D181)行に貼り付ける必要があります。
--
想定した線の書式が設定できなかったので、イマイチかも。
No.3
- 回答日時:
> NO. 曜日 分
> 1 水 05
> 2 土 12
> 3 火 31
> ・ ・
> ・ ・
NO.って、台の番号とか、意味のあるデータ項目だったのでしょうか?
> 優先順位は
> 1.時間(何分に当たりやすいのか)
> 2.曜日(例、何曜日の何分にある台が当たりやすい)
> 3.台(例、何番台はよく当たる)
2次元のグラフの場合、どれかを固定値にしてX軸、Y軸にそれぞれの項目を取れば取り敢えずのグラフになります。
3次元のグラフで、Excelで等高線を使ってグラフを書く場合、高さの軸に「量」を表す項目を選ばないと意味がありません。曜日、台番号いずれも単なる「通番」ですし、このデータの集計方法ですと、時間も曜日と同じく量を表す項目になっていません。量を表す度数(当たりの回数)を求めるとすると、どういう区分で集計するか?ってのが重要になります。
または、3次元→2次元に変換して散布図を使うと、どの辺に点が集中しているか?という図は書けます。
具体的に何のデータを集計しようとしているのか分かりませんが、あまり意味の無い集計を行おうとしているような気もします。
--
ところで、「何時に当たりやすいのか」ってのは関係ないのでしょうか?
パチンコ屋さんとかの例なら、当然お客さんの多い日曜日に当たりの数も多いはず。相対的なハズレの数、来客数も数えないと有意な分析が出来ないですね。
--
例)
分 当たりの回数
00 13
01 11
02 12
・ ・
・ ・
のデータを、
> アナログ時計の分単位のしるしから円の外側か内側に向かって棒グラフなどで表現したいのですが
などという具体的な質問に対してなら、具体的な回答がしやすいのですが。
この回答への補足
きちんと説明しなくて申し訳ありません。パチンコやスロットの当たりの仕組みを調べようとしています。ホールコンピューターなるものがパチンコ屋に存在していて、その日その日の収支を自動的に計算しています。客がお金を注ぎ込むと黒字が増えるのですが、ある程度の目標収支に抑えるために、台を当たりにさせて還元するのですが、その還元方法に法則があるような気がしています。
感覚ですが少し分かってきたのが、00分、15分、30分、45分辺りに当たりが集中するみたいです。特定の台ではなくパチンコ・スロット全てに共通していて、多くの店で共通しています。これが確かならその時間帯だけ打てばいいわけですから。
だから、当初の質問は
例)
分 当たりの回数
00 13
01 11
02 12
・ ・
・ ・
のデータを、
アナログ時計の分単位のしるしから円の外側か内側に向かって棒グラフなどで表現したいのですが
で、間違いありません。
折角だから、というか、「補足」では欲張りすぎました。
データとしては、「日付」「曜日」「時間」「台番号」などが一緒に取れるものですから。
>NO.って、台の番号とか、意味のあるデータ項目だったのでしょうか?
単なる連番でした。
>ところで、「何時に当たりやすいのか」ってのは関係ないのでしょうか?
正直そこまで知りたいです。
No.2
- 回答日時:
(1)#1のおっしゃるようにVBAで現データを
(A) (B) (C) (D)
日1214 続く
月1510
火208
水2120
木2516
金2318
土1014
のように(別シートにでもVBAで)組みなおす。
(2)マクロの記録の結果である
Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlRadarMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1:C7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
End Sub
を参考にレーダーチャートを描く。
No.1
- 回答日時:
「レーダーチャート」を使ってはどうでしょう?
元データを、
日月火水木金土
00
01
02
…
58
59
[分]
の形のヒストグラムにすると良いと思います。
この回答への補足
早速ご回答ありがとうございます。
軸は00~59で間違いなく時計の形ができあがります。ただレーダーにしたくないのですが・・・
正直言うと、あるゲームのデータで、3つのデータを1年くらい管理して解析したいのです。何曜日の何時に何番台が当たるのか。時間と曜日と台の関連性というか癖があるのか調べたいんです。
優先順位は
1.時間(何分に当たりやすいのか)
2.曜日(例、何曜日の何分にある台が当たりやすい)
3.台(例、何番台はよく当たる)
1つのグラフでは表せないと思うけどできますでしょうか?何分つまんない事調べてますけどよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelグラフについて 1 2023/05/12 16:26
- 計算機科学 エクセルのデータの表すことについて 2 2023/03/05 20:49
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルで、未来の月の数値を表示させないようにしたい 1 2022/05/07 18:58
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
- 物理学 無限に長い導体円筒の問題です。 (1)この導体円筒の単位あたりの静電容量を求めよ。 (2)内外の導体 1 2023/05/30 23:49
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) Excelグラフについて 1 2022/06/16 16:06
- 統計学 確率統計でExcelの使い方を教えてください。 3 2022/07/27 19:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 印刷プレビューでの...
-
accessデータを指定したExcel、...
-
Accessのクエリで、replace関数...
-
Accessのテキストボックスの入...
-
Microsoft365にAccessってあり...
-
Vba Userformを前面に出すについて
-
Accessのフォーム上のテキスト...
-
実行時エラー3131 FROM 句の構...
-
【Access】Dcount関数の複数条...
-
Access で半角スペースと全角ス...
-
access2019 チェックボックスと...
-
access クエリ yes/no型のクエ...
-
Accessのクエリの結果を、既存...
-
ACCESS VBA でのエラー解決の根...
-
Access VBA [リモートサーバー...
-
Access VBA でHTML文を表示したい
-
ACCESS2019でのエラーメッセージ
-
Access 複数条件検索の設定が上...
-
Accessのスプレッドシートエク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
ACCESS VBA でのエラー解決の根...
-
Accessのスプレッドシートエク...
-
Access VBA を利用して、フォル...
-
【Access】Dcount関数の複数条...
-
accessデータを指定したExcel、...
-
Accessレポートのチェックボッ...
-
Access VBA [リモートサーバー...
-
Vba Userformを前面に出すについて
-
Accessのリンクテーブルのパス...
-
実行時エラー3131 FROM 句の構...
-
Accessのフォーム上のテキスト...
-
CSVファイルの「0落ち」にVBA
-
Access 複数条件検索の設定が上...
-
アクセス 削除するレコードを含...
-
Access で半角スペースと全角ス...
-
access 更新クエリについて
-
Accessのクエリの結果を、既存...
おすすめ情報