How to | 2D散布図の点の種類と色を変える方法
ほとんどの場合，Wolfram言語で作成するプロットにはデフォルト設定を使えば十分であるが，プロットのほとんどすべての部分についてカスタマイズを行うことも可能である．2Dプロット内の点の大きさを変えるだけでなく，Wolfram言語は点の種類や色を変更することもできる．
Wolfram言語は，PlotMarkersオプションを使って，プロット内の点として使うマーカーの種類を変更することができる．
testData = Prime[Range[25]]ListPlotおよびPlotMarkersを使い，データ点にアスタリスクを使ってデータをプロットする：
ListPlot[testData, PlotMarkers -> "*"]Wolfram言語にはプロット内の点としても使える数多くの特殊文字や記号が含まれている．これらの文字や記号を使う場合は，パレットメニューにある特殊文字パレットからアクセスするか，使用したい文字のキーボードエイリアスを使うかする．文字のキーボードエイリアスを見たい場合は，パレットのその文字の上にマウスを持っていくとよい．
marker1 = Graphics[{Blue, Disk[]}]作成したグラフィックスを.07の大きさのプロットマーカーとして使う：
ListPlot[testData, PlotMarkers -> {marker1, .07}]プロット内の点の色を変える場合は，PlotStyleオプションを使う．ここではRedの色が指定されている：
ListPlot[testData, PlotMarkers -> "*", PlotStyle -> Red]Wolfram言語がサポートする色ならどの色でもプロット内の点に使うことができる．
この例では，RGBColorをManipulateと一緒に使い，色を動的に設定できるようにしている．スライダーを動かしてr，g，bに異なる値を設定する：
Manipulate[ListPlot[testData, PlotMarkers -> "*", PlotStyle -> RGBColor[r, g, b]], {r, 0, 1, Appearance -> "Labeled"}, {g, 0, 1, Appearance -> "Labeled"}, {b, 0, 1, Appearance -> "Labeled"}, SaveDefinitions -> True]ほとんど追加して作業を行うことなしに，作成中のプロットにさらにデータ集合を追加し，それにスタイルを加えることができる．
testData1 = Table[{x, Sqrt[x]}, {x, 0, 4, .2}];
testData2 = Table[{x, x^1 / 3}, {x, 0, 4, .2}];
testData3 = Table[{x, x^1 / 5}, {x, 0, 4, .18}];ListPlotを使ってデータをプロットする：
ListPlot[{testData1, testData2, testData3}]PlotMarkersを使って各データ集合の点の種類と大きさを指定する．PlotMarkersの右にあるリストにおける点の種類と大きさの指定は，それぞれListPlotの第1引数であるリスト中のデータ集合に対応している．
以下のプロットでは，{●,10}がデータ集合testData1の点の種類と大きさ，という風に順に指定されている．マーカーは特殊文字パレットからのものである：
ListPlot[{testData1, testData2, testData3}, PlotMarkers -> {{●, 10}, {▲, 10}, {■, 10}}]PlotStyleを同じような構文で使って，デフォルトスキームの色を変更する：
ListPlot[{testData1, testData2, testData3}, PlotMarkers -> {{●, 10}, {▲, 10}, {■, 10}}, PlotStyle -> {Red, Green, Blue}]Wolfram言語では，ListPointPlot3D等で生成された3Dプロットにおける点の色を変更することもできる．
例えば，PlotStyleを使ってListPointPlot3Dで生成される点の色を設定することができる：
ListPointPlot3D[Table[Sin[j ^ 2 + i], {i, 0, Pi, 0.1}, {j, 0, Pi, 0.1}], PlotStyle -> Orange]また，3Dプロットに色のグラデーションを使うこともできる．ColorFunctionを使う1つの方法として，予め定義された色のグラデーションを 
方向に実装する方法がある：
ListPointPlot3D[Table[Sin[j ^ 2 + i], {i, 0, Pi, 0.1}, {j, 0, Pi, 0.1}], ColorFunction -> "Rainbow"]