1

13 の平行座標プロット ラインを作成しました。各プロットには x ラインがあり、それぞれ 5 つの点があります。変更したい点は以下の3点です。

  1. グラフの下に突き出ている非常に長い垂直の x 軸の目盛りを削除したい
  2. 各プロットの x 軸ラベルを「N」、「1」、「2」、「3」、「4」に変更したいと思います。
  3. 各プロットの y 軸にラベルを付けたいと思います。現在はありません。各プロットの最大 y 値は max(input) です。したがって、私は 4 つの y 軸ラベルが好きです: max(input)、3/4 max(input)、1/2 max(input)、および 1/4 max(input) (整理するためにすべて最も近い整数にします) .
  4. すべてのグラフにメイン タイトルを付けたいです (今は単に「メイン タイトル」と呼びます)。

現在、私のコードは次のとおりです。

par(mfrow = c(3,5))
par(mar=c(0.1,0.1,0.1,0.1))
# For each color (cluster) in the random network
for (i in 1:max(net$colors)){
  color = mergedColors[which(net$colors == i)[1]]
  input = countTable[which(net$colors==i),]
  parcoord(input, lty = 1, var.label = FALSE, col = color)
}

ここで、str(input) は、5 つの変数の x 観測の data.frame です。

x.label = c("N","1","2","3","4") のようなものを追加しようとしましたが、うまくいきませんでした。

編集:

提案に従って、いくつかのサンプルデータを次に示します。他に何かを含める必要がある場合はお知らせください。

net <- data.frame(colors=as.numeric(sample(1:15, 100, replace = T)))

mycols <- c("brown", "blue", "turquoise", "greenyellow", "red", 
    "pink", "green", "yellow", "magenta", "black","purple",      
    "tomato1","peachpuff","orchid","slategrey")
mergedColors = mycols[net$colors]

countTable <- data.frame(matrix(sample(1:100,100*5, replace=T), 
    ncol=5, dimnames=list(NULL, c("Norm","One","Two","Three","Four"))))
4

1 に答える 1