人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelについての質問です。1列目に地点番号、2列目にx座標、3列目にy座標が、数値で入力されているデータがあります。

1,9,3
2,4,7
3,10,8

という感じです。散布図を描き、各地点のラベルとして、1カラム目の地点番号を、図中の点のすぐ横に表示させたいのです。

Excelはあまり詳しくありません。いろいろ試しましたが、グラフのプロットエリア外に、凡例として系列名を表示させることしか、できていません。地図的な図面が欲しいので、図中の点の横(上でも下でもよい)に、表示させたいのです。

可能であれば、方法を教えていただけると、幸いです。地点番号は、「大阪」など、地点名の表示にすることも、考えています。

# Mathematicaでも結構です

●質問者: Mugicha2004
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:Excel Mathematica エリア カラム グラフ
○ 状態 :終了
└ 回答数 : 5/6件

▽最新の回答へ

1 ● hkonno
●10ポイント

http://www.google.com/

Google

URLは,ダミーです。

各行をそれぞれ別の系列として,1カラムめを系列名,2カラムめをX座標,3カラムめをY座標とした各系列の要素を1件として,データラベルの内容を「系列名」とすることで可能です。

マーカーの色やスタイルがそれぞれ別になるので必要ならすべての系列で色とスタイルを同じにしてやれば良いと思います。


2 ● aki73ix
●10ポイント

http://www.d4.dion.ne.jp/~sekiya_z/abl002/a231ae13.html

URLはダミーです

こんな感じでかけますがいかがですか?

INDEXを入れたり倍率を変えれば、任意の場所に書くことがで着ます

’1〜3セル分読み込み

For I = 1 To 3

’10倍

PX = Cells(I, 2).Value * 10

PY = Cells(I, 3).Value * 10

ActiveSheet.Shapes.AddShape(msoShapeOval, PX, PY, 5, 5). _

Select

’赤色

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.Solid

Selection.ShapeRange.Line.ForeColor.SchemeColor = 10

ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, PX + 8, PY, 0# _

, 0#).Select

Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue

Selection.Characters.Text = Cells(I, 1).Value

Next I

End Sub


3 ● kiichigo
●5ポイント

http://www.ir.rikkyo.ac.jp/~kazunori/stat/Excel/scatmacro.html

◎質問者からの返答

このページに記載されているマクロでは、10箇所以外はNGになるようです。Excelは詳しくないので、マクロの改変もできません。


4 ● kiichigo
●0ポイント

http://www.jomon.ne.jp/~hayakari/PCA.htm

Excelアドイン工房「主成分分析」

◎質問者からの返答

ツールが提供停止になっているようです。すみませんが、もう少し、確認されてからご回答をいただけると幸いです。


5 ● nankichi
●55ポイント

http://backno.mag2.com/reader/BackBody?id=2004042011000000000624...

ひとつずつやるか、VBAを組むか、です。

このページのは比較的簡単にまとまっています。A2からラベルが始まるデータなら、縦に何行あってもokです。

表記の3*3のデータで動くことを確認しました。(excel2002)

Sub 質問762()

ActiveSheet.ChartObjects(1).Activate

ActiveChart.ApplyDataLabels

For i = 1 To Range(”A2”, Range(”A2”).End(xlDown)).Cells.Count

ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = ActiveSheet.Cells(i + 1, 1).Value

Next

Range(”A1”).Select

End Sub

1.まず、新しいシートのA2-C4に上記データを張り付けます。

2.散布図を作ります。

系列は1つ、

xの値 =Sheet1!$B$2:$B$4

yの値 =Sheet1!$c$2:$c$4

とします。

3.以下は参照urlの通りです。

http://www.datamining.jp/ma/20021010.htm

データマイニングで宝物を見つける! 2002年10月10日号

未確認ですが、ユーザーインターフェイスが必要なら。

◎質問者からの返答

ひとまず、上手くいきました! ありがとうございました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ